TStringList, Pos, PosEx usw.311

[Jumpy]

Ginge es nicht sinngemäß auch so mit einer Verwaltung der RichEdits?

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 of TRichEdit;
begin
  load := tstringlist.create;
  try
    load.loadfromfile('C:\1.txt');
    switch := 0;
    Re[0]:=RichEdit1;
    Re[1]:=RichEdit2;
    For i=0 To load.count-1 do
      begin
      If IsSameText('hallo eins:', load[i]) Then switch:=0;
      If IsSameText('hallo zwei:', load[i]) Then switch:=1;
      Re[switch].Lines.Add(load[i])
      end
  finally
    load.Free;
  end;
end;