Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.143 Beiträge
Delphi 10.3 Rio
|
AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D
18. Jan 2012, 15:34
hmm
Delphi-Quellcode:
Var
i : integer;
S : ShortString;
A : array[0..255] of byte absolute S;
V : byte;
begin
V := strtoint(Edit1.Text); // <-- Edit!
S := Edit2.Text;
for i:=1 to A[0] do
inc(A[i],V);
end;
Mavarik
Geändert von Mavarik (18. Jan 2012 um 17:02 Uhr)
|