08.03.2009, 15:59
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 360
С нами:
9671366
Репутация:
332
|
|
Memo1.Lines:=dat.readstrings('UINs','DATA',Memo1.L ines);
попробуй memo1.lines .text
|
|
|
08.03.2009, 16:06
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Сообщение от KIR@PRO
попробуй memo1.lines.text
Таже самая ошибка =(
|
|
|
|
08.03.2009, 17:45
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от KIR@PRO
попробуй memo1.lines.text
Memo1.Lines.add(dat.readstrings('UINs','DATA',Memo 1.L ines));
|
|
|
|
08.03.2009, 16:46
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 360
С нами:
9671366
Репутация:
332
|
|
2 Maxxxtri23
[Error] Unit2.pas(125): Incompatible types: 'TStrings' and 'procedure, untyped pointer or untyped parameter'
т.к. readstrings является процедурой (исходя из ошибки) то естественно присваивать её результат переменной нельзя т.к. процетура не имеет результата.... следоватьельно надо убрать вот ето:
memo1.lines:=dat.readstrings('UINs','DATA',Memo1.Lines);
тка попробуй скорее всего должно работать
p.s. должно остаться только
Код:
...
dat.readstrings('UINs','DATA',Memo1.Lines);
...
Последний раз редактировалось KIR@PRO; 08.03.2009 в 16:49..
|
|
|
|
08.03.2009, 16:54
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
дай описание процедуры
|
|
|
|
08.03.2009, 17:49
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Все уже вопрос решен, способом который предложил KIR@PRO
|
|
|
|
08.03.2009, 18:05
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
program icqsend;
uses
Windows, sysutils, ICQClient;
{$R *.res}
procedure ewq;
begin
end;
procedure qwe;
begin
end;
procedure FormCreate;
var ICQClient: TICQClient;
begin
ICQClient:= TICQClient.Create(nil);
ICQClient.DisableDirectConnections:= True;
ICQClient.ICQServer:= 'login.icq.com';
ICQClient.ICQPort:= 5190;
ICQClient.UIN:= StrToIntDef(Trim('438***043'), 0);
ICQClient.Password := Trim('XC****DI');
ICQClient.OnLogin:= qwe; +++++
ICQClient.OnMessageRecv:= ewq; +++++
ICQClient.Login();
end;
begin
end.
Пишу прогу которая просто при запуске законектится к аське и отправит сообщение
Но непойму как задать процедуру ОнЛогин и онмессаджРесерв Компилятор постоянно ругается на то место где я поставил +++++ Ошибка Incompatible types: 'method pointer and regular procedure'
До этого собирал все с формой работало отлично А сейчас ппц
|
|
|
|
08.03.2009, 18:19
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
Сообщение от Uname-A
Пишу прогу которая просто при запуске законектится к аське и отправит сообщение
Но непойму как задать процедуру ОнЛогин и онмессаджРесерв Компилятор постоянно ругается на то место где я поставил +++++ Ошибка Incompatible types: 'method pointer and regular procedure'
До этого собирал все с формой работало отлично А сейчас ппц
бле, к чему такой гемор?
помести сам компонент на форму, вместо его создания, а уже в самом компоненте в закладках event ты найдешь онмесседжресив и онлогин
кстати сам компонент инсталится в закладки Samples
|
|
|
|
08.03.2009, 18:25
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
Форма ненужна вообще.....
Мне размер файла максимально ужать надо...
|
|
|
|
08.03.2009, 18:45
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
на какой ты размер расчитываешь?
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
