TStringList, Pos, PosEx usw.311

[DeddyH]

Dann eben so:

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;
  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 IsSameText('hallo eins:', load[counter]) do
      inc(counter);
    //alle folgenden Zeilen bis zur "Ende"-Zeile ins erste RichEdit kopieren
    while (counter < load.Count) and not IsSameText('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 IsSameText('hallo eins:', load[counter]) do
      begin
        RichEdit2.Lines.Add(load[Counter]);
        inc(Counter);
      end;
  finally
    load.Free;
  end;
end;