03.07.2008, 01:50
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
С нами:
9905879
Репутация:
337
|
|
Nightmarе
str - строка из memo1, просто берешь по строке прогоняешь в цикле пока строки не закончатся...
В memo2 - uin, в memo3 - пароль.
Чуть изменил:
Код:
i: integer;
str: string;
........
for i:=1 to N do
begin
str:=memo1.lines.strings[i];
insert(copy(str,1,pos(';',str)-1), memo2.lines.add, 1);
insert(copy(str,pos(';',str)+1,length(str)-pos(';',str)), memo3.lines.add, 1);
end;
|
|
|