Codierung

[moment_]

Delphi-Quellcode:

function Box1.checked[color=#ffff00]mach was, bei mir also box1 ankreuzen, fehler meldung:Funktion benötigt Ergebnistyp.. hab ich dann (.checked)weggemacht[/color][color=#1fff00][/color](var i_lokal:char):char;

   begin
   Wort:=WortEdit.Text;
   codiertesWort:='';
   for i_lokal=1[color=#ffff3f]Fehlermeldung:Inkompatible Typen?!?![/color] to length(Wort) do
                begin
                Zeichen:=Wort[i_lokal];
                Nummer:=Ord(Zeichen);
                Nummer:=Nummer+3;
                Zeichen:=Chr(Nummer);
                codiertesWort:=codiertesWort+Zeichen;
                codiertesWortEdit.Text:=codiertesWort; [color=#ffff7f]wird dann hier wieder aufgerufen[/color]
                end;
  end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]