Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#11

Re: Quelltext für Text entsperren und Text verschlüsseln?

  Alt 27. Apr 2007, 10:37
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
Klaus
  Mit Zitat antworten Zitat