Где ошибка*?!

сабж.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to memo1.lines.Count-1 do

begin
ICQClient1.Create(nil);
ICQClient1.UIN:=Copy(memo1.lines[i],1,pos(';',memo1.lines[i])-1);
ICQClient1.Password:=(memo1.Lines[i],pos('',memo1.Lines[i]+1,Lengt(memo1.lines[i]));
ICQClient1.Login();
end;

end;

 

И что дальше?! Что что что?!

Благо используя навыки телепатии и удаленного компилирования удалось выяснить что вот:
ICQClient1.Password:=(memo1.Lines,pos('',memo1.Lines+1,Lengt(memo1.lines));


Учись вопросы задавать и читать что компилятор в случае ошибки выкидывает.

ок?

 

Что описывать то?! Вот тут возникает ошибка, в выше сказанном коде. Вопрос я по моему прямо поставил, да и дополнений тут возникать не должно.
Суть процедуры заключается в том, что бы загружала номера + пароль вида uin;pass из memo1, и подкл.
---
Но ошибка всё равно осталась.

 

ICQClient1.Password:=(memo1.Lines,pos('',memo1.Lines+1,Lengt(memo1.lines))
передайош Pos 3 параметра вместо 2...

memo1.Lines+1
несовместимие типи: string i integer

ICQClient1.Password:=(memo1.Lines,pos('',memo1.Lines+1,Lengt(memo1.lines))
несовместимие типи: string i хз що


ПС нужно слушать компілятор... он наверника тебе говорил об етом

 

Да и для ICQClient1.Password также должна использоваться функция Copy.

 

уродский код

лучше используй отдельные переменные

 

Code:

ICQClient1.Password:=cope(
  memo1.lines[i],
  Pos(
        ';',
        memo1.lines[i])+1,
   Length(memo1.lines[i]))

так паше?

 

+++
ну такой код еще при проверке какой то идеи можно увидеть тонны говнокода а в релиз то да такой код не пойдет все стереть и переписать нормально а при проверке какой то идеи ничуть не странно видеть такой код ведь там главное совсем другое а не как написан код а ближе к релизу и код можно привести в порядок но тут есть два противоречивых фактора 1) лень потом пеписывать работающий код да и отчасти трудно иногда так что лучше сразу нормально писать 2) а второй фактор сразу при проверке какой то идеи не будеш же вылизывать код иначе так до понедельника не закончиш хочется побыстрее проверить ))

 

нет. Проблема осталась в именно в этой строчке.
Лог:
[Error] Unit1.pas(37): Incompatible types: 'Cardinal' and 'String'

 

а Password єто Cardinal?? тогда

Code:

ICQClient1.Password:=StrToInt(cope(
  memo1.lines[i],
  Pos(
        ';',
        memo1.lines[i])+1,
   Length(memo1.lines[i])))

другой ошибки здесь не вижу...
а так где ошибка:
str:=memo1.lines;
int:=Pos(';',str)+1;
ICQClient1.Password:=cope(str,int,MaxInt);

 

Да ну? А мне всегда казалось что значение UIN типа integer а не string