Forum: Sonstige Fragen zu Delphi
Delphi
by tomsel,
2. Jan 2006
So zum Beispiel:
procedure TForm1.Encode;
var i,j:integer;
s,key:string;
begin
key := Edit1.Text;
s := memo1.lines.text;
for j := 1 to length(key) do begin
for i := 1 to length(s) do begin
Forum: Sonstige Fragen zu Delphi
Delphi
by tomsel,
1. Jan 2006
Bei mir funktioniert's, aber eben nur im Alphabet 'A'..'Z'. Man darf insbesondere auch kein Leerzeichen und keine Umlaute verwenden. Hast du dies beim testen beachtet?
Forum: Sonstige Fragen zu Delphi
Delphi
by tomsel,
31. Dez 2005
Ich hab deine Verschlüsselung leicht abgeändert (Klammerung) und die passende Entschlüsselung mitgeliefert. Das Ganze funktioniert aber nur im Bereich der Grossbuchstaben.
procedure Encode;
var i,j:integer;
s,key:string;
begin
key:=Edit1.Text;
s:=memo1.lines.text;
for j:=1 to length(key) do begin