Problem mit POS und COPY

[Sharky]

Hai Trax,

ich habe das eben mal so gemacht:

Delphi-Quellcode:

procedure TForm1.Sucheeee(datei, suchwort: string; var mem: TMemo);
var
  sl: TStringList;
  ndx: Integer;
  position: Integer;
  tmpstr1: string;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(datei);  // Datei laden
    for ndx := 0 to sl.Count - 1 do //alle Zeilen des Textes durchgehen
    begin
      tmpstr1 := sl.Strings[ndx];
      position := 0;

      // solange noch Text in der aktuellen Zeile ist der dem suchwort
      // entsprächen könnte suche weiter
      while (length(tmpstr1) > (Length(suchwort))) do  
      begin
        if (copy(tmpstr1, 1, Length(suchwort)) = suchwort) then  //vergelichen
        begin
          mem.Lines.Add(Format('Suchwort gefunden Zeile %d an position %d', [ndx + 1, position + 1]));
        end;
        Delete(tmpstr1, 1, Length(suchwort));
        INC(position,Length(suchwort));
      end;
    end;
  finally
    FreeAndNil(sl);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
  begin
    Sucheeee(OpenDialog1.FileName, Edit1.Text, memo1);
    Application.ProcessMessages;
  end;
end;

Benötigt werden: 1xButton, 1xEdit ein 1xMemo und 1xOpenDialog