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.