Работа со строками.

[indexx]

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

я учащийся на программиста

Вот и изучай PosEx. Код пишется в три строки с этой функцией.

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

на C++ прмерно так:

Толку ему от Си, если он делфи учит? С таким же успехом можно и на ассемблере дать решение.

[min@y™]

У нас тут сотрудник на пенсию уходит, щас провожать/бухать будем. Торопят.
Поэтому вот тебе быдлокод, написанный на заборе. Если чо не понравится, доработай напильником или жди до завтра.

uses
  SysUtils, Classes, StrUtils;

function FilterEMails(const S: string; AList: TStrings): Integer;
var
  pBegin, pEnd: Integer;
begin
  pEnd:= 1;
  Result:= 0;
  repeat
    pBegin:= PosEx('###', S, pEnd);

    if pBegin = 0
      then Break;
      
    pEnd:= PosEx('@@@', S, pBegin);

    if pBegin < pEnd
      then begin
             AList.Add(Copy(S, pBegin + 3, pEnd - pBegin - 3));
             Inc(Result);
           end;  
  until (pBegin + pEnd = 0) or (pEnd <= pBegin);
end;

[vaximan]

Итак господа, благодарю всех! К счастью решил разобраться сам (ведь так лучше учиться)
20 минут за учебником и вот (вдруг кому понадобится)

procedure TForm1.sButton1Click(Sender: TObject);
var
 F: TextFile;
begin
AssignFile(F, '1.txt');
 Reset(F);
 while not Eof(F) do
 begin
 Readln(F, S);
 smemo1.Text:=s;
 end;
 CloseFile(F);
end;

procedure TForm1.sButton2Click(Sender: TObject);
var
zikl:integer;
j:string;
begin
zikl:=1;
While zikl<1000 do
begin
n:=Copy(s,Pos('###',s),Length(s));
Delete(n, 1, 3);
j:=Copy(n,Pos('@@@',n),Length(n));
Delete(j, 1, 3);
s:=j;
Delete(n,Pos('@@@',n),Length(n));

t:=n;
final:=final+#13#10+t;
smemo1.Text:=final;
zikl:=zikl+1;
end;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
      sMemo1.Lines.LoadFromFile(OpenDialog1.FileName);
      s:=sMemo1.Text;
end;

procedure TForm1.sButton4Click(Sender: TObject);
begin
if SaveDialog1.Execute then
 sMemo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

Еще раз спасибо всем! Ваши варианты тоже работают)
Можно закрывать тему)

[indexx]

procedure TForm1.sButton1Click(Sender: TObject);
var
 F: TextFile;
begin
AssignFile(F, '1.txt');
 Reset(F);
 while not Eof(F) do
 begin
 Readln(F, S);
 smemo1.Text:=s;
 end;
 CloseFile(F);
end;

Memo1.Lines.LoadFromFile('1.txt');

Круто, да?

[vaximan]

Да так короче.Но я использовал open dialog .Это просто так было (проверял одну возможность).Спасибо все равно.