Я в мемо загрузил текст вида
log;pas
как сделать что бы все что до ";" шло в
data.add('login=');
а все что после ;
шло в
data.add('pass=');
=)
Я типо пробую брут написать))
var
Data:TstringList;
a,log,pas:string;
begin
Data:=TstringList.Create;
log:=copy(a,1,pos(';',a)-1);
pas:=copy(a,pos(';',a)+1,length(a)-pos(';',a));
data.add('login='+log);
data.add('pass='+pas);
end;
В переменной A должна быть запись в формате:
Логин;Пароль
________________
Для того чтобы написать программу нужны мозги, а для того чтоб её сломать, их отсутствие.
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Последний раз редактировалось <=SlAvA-96=>; 14.04.2012 в 14:13.
Регистрация: 14.01.2011
Сообщений: 7
Популярность: 12
Сказал(а) спасибо: 0
С копированием)
