In Textdatei suchen und Zeile einfügen

[RWarnecke]

Mit dieser Funktion suchst Du Dein Wort :

Delphi-Quellcode:

function PosN(Substring, Mainstring: string; n: Integer): Integer;     // Funktion zum Suchen ob ein Zeichen im String enthalten ist
begin                                                                           //
  if Pos(substring, mainstring) = 0 then begin                                  //
    posn := 0;                                                                  //
    Exit;                                                                       //
  end else begin                                                                //
    if  n = 1 then posn := Pos(substring, mainstring)                           //
    else begin                                                                  //
      posn := Pos(substring, mainstring) + posn(substring, Copy(mainstring,     //
         (Pos(substring, mainstring) + 1), Length(mainstring)), n - 1);         //
    end;                                                                        //
  end;                                                                          //
end;                                                                            //

Diese Funktion gibt Dir die Position zurück. Diese Funktion habe ich von der Seite SwissDelphiCenter.

Nun kannste das folgendermaßen machen :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemoText : String;
  Selected : Integer;
  Text : String;
begin
  MemoText := Memo1.Text;
  Selected := posn(Edit1.Text, MemoText, 1);
  Text := 'Das ist ein Test';
  Insert(Text, MemoText, Selected + 1);
  Memo1.Text := MemoText;
end;

Du brauchst dazu einen Button, ein Edit-Feld und ein Memo-Feld. Dann sollte beim anklicken das Wort aus dem Edit-Feld gesucht werden und an dieser Position der Text aus der Variable 'Text' eingefügt werden.
So müsste es klappen. Habe es nicht ausprobiert.