Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

[Mavarik]

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

[himitsu]

Ord(A[0]) = Length(A)
bei einem ShortString (deswegen fangen Strings auch mit 1 an)
PS: Man spart damit keinen einzigen Prozessortakt, also der Zugriff auf [0] würde ich möglichst vermeiden.


PS: Bedenke, daß beim einfachen "Verschieben" der Chars auch sogenannte Steuerzeichen (bestimmte "Buchstaben") entstehen können, welche z.b. ein Memo nicht so gern hat, bzw. nicht (richtig) darstellen kann.

[Mavarik]

Zitat von himitsu:

Ord(A[0]) = Length(A)

Siehe oben...

a : Array of Byte absolute S;