Vielleicht so?
Delphi-Quellcode:
Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string);
var i:integer;
l:integer;
Begin
l:= length(wort);
i:=1;
entsperrtext:='';
repeat
entsperrtext:=entsperrtext+wort[i];
i:= i + 2
until i > l;
end;
Dein Code hat das Problem, dass
a) delete mit den falschen Parametern aufgerufen wurde
b) Wenn Du ein Zeichen aus dem Wort löscht, Du mit der Nummerierung durcheinanderkommst
Beispiel:
Code:
H A L L O i=2
HA L L O
HA L O i=4
..
Delphi-Quellcode:
Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string);
var i:integer;
l:integer;
Begin
l:= length(wort);
i:=2;
repeat
delete(wort,1,i); //<----
i:= i + 2
until i > l;
end;
Grüße
Klaus