работа с txt в delphi

[/Boom\]

Я гуружу текст в memo1, как сделать так чтоб с memo1 выдергивался текст в memo2 по маске.
Подскожите плз
или стукните 775474

[.:KeepeR:.]

Напиши маску,а я код соображу....

[/Boom\]

@mail.ru

[.:KeepeR:.]

Тебе просто парсер мыл нужен?

[De-visible]

Каждая запись с новой строки или все в смешку?!

pos(искомая_строка,обрабатыв аемая_строка) - Или это не в моде? ;)

[/Boom\]

каждая в новой строке

[.:KeepeR:.]

для перехода на новую строку используй #13

[De-visible]

k,i:integer; ;)
For i:=1 to Memo1.lines.count Do
Begin
k:=pos('@mail.ru',Memo1.Lines[i])
If k<>0 then Memo2.Lines.add(Memo1.lines[i]);
End.

Будет что-то в этом роде!
Пока ни Делфи ни паскаля!

[.:KeepeR:.]

i:=1;
while not eof do
Begin
search:= pos("@mail.ru",i);
masiv[i]:= search;
i:=i+1;
End;


В итоге у тебя будут все отпарсиные мыла в масиве - masiv

De-visible: Теги [code]

[desTiny]

i:=1;
while not eof do
Begin
search:= pos("@mail.ru",i);
masiv[i]:= search;
i:=i+1;
End;


В итоге у тебя будут все отпарсиные мыла в масиве - masiv

Чё? Если честно, то это даже не скомпилится

[zl0y]

На форму кидаем одну кнопку и один мемо.

procedure TForm1.Button1Click(Sender: TObject);
var myFile : TextFile; Temp : string;
begin
Memo1.Clear;
AssignFile(myFile,'mails.txt'); //назначим имя файла.
Reset(myFile); //Открываем файл только для чтения.
while not eof(myFile) do //Пока не кончиться файл,читаем построчно.
begin
ReadLn(myFile,Temp);//Читаем построчно в строку с именем "Temp".
Temp:=LowerCase(Temp);//все буквы в нижний регистр
if Pos('@mail.ru',Temp<>0 then Memo1.Lines.Add(Temp);
end;
CloseFile(myFile);//Закроем файл.
end;

[De-visible]

Вопрос решен....closed
/Boom\, если надо будет открыть пиши в ПМ!