TStringList, Pos, PosEx usw.311

[PredatorMask]

hey jungs, letzter vorschlag funktioniert!

nur könntet ihr mir sagen, warum die gauge (sowie eine progressbar) ums verrecken nicht macht, was sie machen soll ?

Delphi-Quellcode:

  function IsSameText(const str1, str2: string): Boolean;
  begin
    Result := AnsiStrIComp(PChar(str1), PChar(Str2)) = 0;
  end;

var
  load: TStringlist;
  i: integer;
  RE : TRichEdit;
begin
  RE := nil;
  load := TStringlist.Create;
  gauge1.Progress := 0;
  gauge1.MaxValue := load.Count;
  label2.caption := 'work in progress ... please wait';
  try
    load.LoadFromFile('C:\1.txt');
    for i := 0 to load.count - 1 do
      begin
        gauge1.Progress := i;
        application.ProcessMessages;
        if IsSameText('hallo eins:', load[i]) then
          RE := RichEdit1
        else if IsSameText('hallo zwei:', load[i]) then
          RE := RichEdit2;
        if Assigned(RE) then
          RE.Lines.Add(load[i]);
          application.ProcessMessages;
          label1.caption := inttostr(i) + ' / ' + inttostr(load.count) + ' lines done';
      end;
  finally
    load.Free;
    label2.caption := 'waiting ...';
  end;

der "counter" funktioniert, aber die gauge nicht ... total bescheuert