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;

[DeddyH]

Damit würdest Du aber auch alle Zeilen vor "hallo eins" ins erste RichEdit kopieren, wenn ich das richtig sehe (switch steht ja initial auf 0).

[Cirec]

Hallo,
nur ganz kurtz
In D7 "AnsiSameText" ist in SysUtils

mfg

[DeddyH]

Das hatte ich zwar bereits hier vermutet, trotzdem Danke für die Bestätigung .

[Jumpy]

Lieber TE,
you made my day.

Hintergrund: Ein MySQL-DBMS bei uns schreibt in ein SQL LOG alle Datenmanipulierenden Anfragen rein. Für mehrere Datenbanken. Und am "use DBName" kann man sehen wann er die Datenbank wechselt. Jetzt sollte ich das Log auf die DBs aufspalten. Was meinst du wie ich das gemacht habe?