delete ,insert funktionieren nicht richtig

[Versus]

wort:String;
begin
wort:=edit1.Text;
delete(wort,3,1);
insert('ae',wort,3);
end;

Am Anfang hatte ich vor einen bestimmten Character zu suchen und diesen dann zu ersetzten dies klappte jedoch nicht deswegen begab ich mich auf Fehlersuche und löschte immer mehr bis ich nun zu den delte und insert Funktionen kam. Als ich dann versuchte das Programm auszuführen sollte in dem feld edit 1, der 3 Buchstabe gelöscht werden und dann an der stelle ein ae erscheinen. Das klappt jedoch nicht und ich frag mich jetzt wo der Fehler liegt...

[Schokohase]

Warum die "Zeile" gelöscht wird kann ich dir nicht sagen, vor allem weil es deiner Aussage "und nichts passier" wiederspricht.

Entweder die Zeile wird gelöscht (es passiert also etwas) oder es passiert nichts (auch kein Gelösche von Zeilen).

Beschreibe doch auch mal, was du denn erwartest. Von deinem Code kann ich dir schon mal sagen, es wundert mich nicht, dass da nichts (sichtbares) passiert, denn du schreibst nichts zurück in die Anzeige.

[Versus]

überarbeitet

[Zacherl]

Du weist den neuen Wert nicht wieder zu.

Delphi-Quellcode:

var
  wort: String;
begin
  wort := edit1.Text;
  delete(wort, 3, 1);
  insert('ae', wort, 3);
  // Das hier fehlt
  edit1.Text := wort;
end;

Btw: Du kannst deinen Code hier im Forum in [ DELPHI]mein Code hier[ /DELPHI] Tags einschließen, damit er ein wenig schöner formatiert dargestellt wird.

[Versus]

Danke

[KodeZwerg]

Zitat von Versus:

Delphi-Quellcode:

wort:String;
begin
     wort:=edit1.Text;
     delete(wort,3,1);
     insert('ae',wort,3);
end;

Vielleicht ist es ja das was Du eigentlich möchtest: edit1.Text := StringReplace(edit1.Text, 'ä', 'ae', [rfReplaceAll]); ?