verschachtelte schleifen

[baala]

@Klaus01,
stimmt schon, dass in der aufgabe nichts von einer verschachtelung steht. Nur meinte der lehrer das zusätzlich, dass wir das damit machen sollen. Als ich ihm, meine ganz oben gepostet lösung zeigte, meine er gut, nur habe ich mich erfolgreich um den einsatz der verschachtelung gedrückt, was eingentlich wir eingentlich in dieser aufgane übenen sollte.
Vielen dank auf für deine lösung, ich werde sie ebenfalls studieren
vll kann ich sie auch in der arbeiten benutzen, da wird der lehrer aber schauen, da wir noch nie mit funktionen gearbeitet haben...

Ich habe selbst etwas weiter an der verschachtelung geschrieben, es gibt zwar noch einen fehler, den werde ich aber auch bestimmt noch finden, wenn einer von euch einmal drauf schauen möchte :
ich nehme an, dass ich einfach noch den orginal string brauche um dann von ihm weiter auszulesen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
stra:string;
begin
stra:=edit1.text;
for I := 1 to length(stra) do

if stra[i] = 'ö' then begin
   stra[i]:= 'o'   ;
   stra[i+1]:='e'    ;
   for j := i+1 to length(stra)  do
   stra[j]:= stra[j-1];
end;
edit1.Text:=stra;    
end;