|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.163 Beiträge
Delphi 12 Athens
|
Re: Verschlüsselungstool
9. Nov 2009, 15:24
wenn dann eher
normedKey := StrToInt(Form1.Edit1.Text);
also wenn in dem edit eine Zahl steht
ansonsten für jedes zu verschlüsseönde Zeichen ein Zeichen aus dem Schlüssel nehmen
normedKey := Ord(Edit1.Text[(i - 1) mod Length(Edit1.Text) + 1]) - Ord('A');
Aber da das einzelne Funktionen sind, verwendet man da nicht direkt Edit1, sondern ändert die Parameter ... wie ich es oben schon erwähnte.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. 
 my Delphi wish list : BugReports/FeatureRequests
|