Hallo und Willkommen in der
DP 
,
versuch es einmal so (ungetestet):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
load: tstringlist;
Counter: integer;
begin
load := tstringlist.create;
try
load.loadfromfile('C:\1.txt');
counter := 0;
//zunächst die Anfangszeile suchen
while (counter < load.Count) and not StrUtils.AnsiSameText('hallo eins:', load[counter]) do
inc(counter);
//alle folgenden Zeilen bis zur "Ende"-Zeile ins erste RichEdit kopieren
while (counter < load.Count) and not StrUtils.AnsiSameText('hallo zwei:', load[counter]) do
begin
RichEdit1.Lines.Add(load[Counter]);
inc(Counter);
end;
//alle folgenden Zeilen bis zur "Ende"-Zeile ins zweite RichEdit kopieren
while (counter < load.Count) and not StrUtils.AnsiSameText('hallo eins:', load[counter]) do
begin
RichEdit2.Lines.Add(load[Counter]);
inc(Counter);
end;
finally
load.Free;
end;
end;
Falls ich keine allzugroßen Denkfehler gemacht habe, sollte das im Wesentlichen so funktionieren.
[edit] *Oops* ich hatte gar nicht auf das Anmeldedatum geachtet. Naja, eine freundliche Begrüßung kann ja nie schaden
[/edit]