TStringList, Pos, PosEx usw.311

[DeddyH]

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]

[PredatorMask]

hey!

danke für die schnelle antwort.

zumal ich ein paar sachen nicht verstehe, mit denen ich dich aber nicht nerven will und mir im internet mal näheres dazu anschaue, funktioniert folgendes nicht:

er meint, StrUtils.AnsiSameText() wär ein undeclared identifier

[mkinzler]

Hast du die Unit eingebunden?

[PredatorMask]

Zitat von mkinzler:

Hast du die Unit eingebunden?

jep, deswegen wunderts mich auch

//edit: ja bin schon etwas länger in der community, nur zwischenzeitlich keine zeit gefunden zum programmieren

[DeddyH]

Oh, sry, die Funktion scheint aus SysUtils zu stammen. Ob das unter Delphi 7 auch so ist musst Du selbst probieren.