String durchsuchen

[MondoShiva]

Mich würde dringend interessieren wie ich eine such funktion erstellen kann!
jedoch nicht nach einem ganzen string nur nach einem teil des strings!
das beste währe das er nach einem wort sucht das ich geschrieben habe!

[mirage228]

Hi,

Schau Dir mal die Funktion Pos bzw. PosEx an.

mfG
mirage228

[MondoShiva]

Delphi-Quellcode:

procedure TForm1.searchClick(Sender: TObject);
var
  i :integer;
begin
  i := 0;
  while (i < richedit.Lines.Count) do
  begin
    if richedit.Lines.Strings[i] = edit.Text then
    begin
      ShowMessage('Gefunden!!! Zeile: ' + IntToStr(i+1));
      richedit.Lines.Strings[i] := InputBox('Eingabe','Bitte geben Sie hier ihren text ein!','Text');
      Break;
    end;
    inc(i);
  end;

end;

end.

so siehts momentan aus aber mit der pos funktion komm ich nicht weiter

[raiguen]

Delphi-Quellcode:

    if Pos(edit.Text, richedit.Lines.Strings[i] ) > 0 then
    ...