Wenn Du weißt, dass es 2 Elemente sind, dann ist ein dynamisches Array ja witzlos, Du könntest also auch bei einem statischen bleiben. Außerdem müsstest Du nach dem Befüllen des 2. RichEdits aus der Schleife springen, sonst kopierst Du die anschließenden Abschnitte ja mit ("hallo eins" kommt in dem Beispiel ja mehrfach vor).
[edit] Rein akademische Überlegung (würde ich persönlich nicht so machen):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function IsSameText(const str1, str2: string): Boolean;
begin
Result := AnsiStrIComp(PChar(str1), PChar(Str2)) = 0;
end;
var
load: tstringlist;
switch, i: integer;
RE : Array[0..1] of TRichEdit;
begin
load := tstringlist.create;
try
load.loadfromfile('C:\1.txt');
switch := -1;
Re[0]:=RichEdit1;
Re[1]:=RichEdit2;
For i=0 To load.count-1 do
begin
If IsSameText('hallo eins:', load[i]) Then inc(switch);
If IsSameText('hallo zwei:', load[i]) Then inc(switch);
If switch in [0..1] then Re[switch].Lines.Add(load[i])
end
finally
load.Free;
end;
end;
Ich weiß allerdings nicht, ob das wirklich so funktioniert, das müsste man mal ausprobieren. [/edit]
[edit2] Nee, würde nicht klappen, wenn die Reihenfolge in der Datei nicht stimmt. [/edit2]