verschachtelte schleifen

[baala]

Zitat von 3_of_8:

AnsiCompareText meinte ich. sry.

macht ja nichts ^^
so ich denke nun, dass ich das habe, ist zwar immer noch etwas buggy, aber im prinzip geht es...
hat vll noch einer einen verbesserung vorschlag? *hoff* sonst muss das für morgen reichen

Delphi-Quellcode:

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

if stra[i] = 'ö' then begin
   stra:=stra+'#';
   //börse
   stra[i]:= 'o'   ;
   //borse
   stra[i+1]:='e'    ;
   //boese
   for j:=i+2 to length(stra)  do
   stra[j]:= strb[j-1];
end;
edit1.Text:=stra;    
end;