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.