[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

04.04.2010, 01:07

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

Провел на форуме:
188563

Репутация: 52

Цитата:

Сообщение от TENMAX

Плиз нужен совет.
Нужно вывести мыло:пароль

существуют строки:
1. Пароль

try
Fil.LoadFromFile('password1.txt');
Fil.LoadFromFile('password2.txt');
except
Showmessage('Файл не найден');
end;
Temp:=fil.strings[random (fil.count-1)];
Data.add ('user.password1='+temp);
Data.add ('user.password2='+temp);

2. Логин (от мыла , до @)
Data.Add('user.login='+fil.strings[random(fil.count-1)]);

Как мне то что получилось после реги, то есть мыло:пароль вывести в мемо ?

Memo1.Lines.Add(''); - что в скобках писать ? или как то строки можно вписать, то есть их номера.

Спасибо заранее!

1. Обрезать логин от мыла:
2. Записать строкой в Мемо Логин:Пароль

PHP код:


		
			
const

  str='Administrator@mail.ru';

  Password= '123456';

var

  Login:string;

begin

  Login:=Copy(str,1,Pos('@',str)-1); {1. В Login сохранится Administrator}

  Memo1.Lines.Add(Login+':'+Password); {2. В мемо добиватся строка Administrator:123456}

end;