verschachtelte schleifen

[baala]

Zitat:

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.

[3_of_8]

Das Delete und das Copy könntest du evtl. noch zusammenlegen, muss aber nicht sein.

[Silentium]

Hi, meine Idee war Folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer, output:string;
  laenge, i:integer;
begin
  output := '';

  laenge := Edit1.GetTextLen;
  buffer := Edit1.Text;

  for i := 1 to laenge do begin
    case buffer[i] of
      'Ä':output := output + 'Ae';
      'ä':output := output + 'ae';
      'Ö':output := output + 'Oe';
      'ö':output := output + 'oe';
      'Ü':output := output + 'Ue';
      'ü':output := output + 'ue';
    else
      output := output + buffer[i];
    end;
  end;

  Edit1.Text := output;
end;

Hoffe, du kannst was mit anfangen.

Gruß Sil