verschachtelte schleifen

[baala]

Zitat von 3_of_8:

Du verwendest Copy. Damit geht das. Vielleicht gibts auch sowas wie Insert, weiß ich jetzt nicht auswendig.

nee einen insert gibt es leider nicht, außer man schreibt sich einen -> zu komplex^^
zu deiner idee mit copy:

Delphi-Quellcode:

c:=length(stra);
for I := 1 to length(stra) do

if stra[i] = 'ö' then begin
   stra[i]:= 'o'   ;
   stra[i+1]:='e'    ;
   Delete(stra,i+2,c) ;
   stra:=stra+copy(strb,i+1,c);
end;
edit1.Text:=stra;    
end;

müsste ja das in etwa sein, geht auch so einigermaßen, nur ist das problem, dass die halt das 2te for fehlt
weil das muss ja so gehen: 1. for prüft die zeichen, 2. for verschiebt im falle das im ersten for ein ö aufgetaucht ist, die ganzen zeichen um eine stelle.