сабж. 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 хз що ПС нужно слушать компілятор... он наверника тебе говорил об етом
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);