Verschiebungsfaktor in delphi ?

[the_seed]

Hi , weiss jemand wie ich es hinbekommen das ich ein memo feld hab wo ich einen beliebigen string eingeben kann der dann durch auswahl des verschiebungsgaktors ausgewertet wird?
zb. das alle "a" durch "b" ersetzt werden etc.

[Christian Seehase]

Moin The Seed,

klingt irgendwie nach [dp]Cäsar Verschlüsselung[/dp]
Dazu hatten wir, glaube ich, auch schon Beiträge.

[the_seed]

ja so ähnlich ich will aber kein zufallsgeneriertes pw od. verschlüsselung, es soll nur durch angabe von 1-26 verschoben werden.

[Skiron]

wenn ichs nicht falsch verstanden habe:

Delphi-Quellcode:

procedure verschiebText(var Text: string; um: integer);
var
  i: integer;
begin
  for i := 1 to length(Text) do
    Text[i] := chr((ord(Text[i]) - ord('A')) mod 26 + ord('A'));
end;

[the_seed]

thx für die schnelle antwort!
@skiro wie lass ich mir das ergebnis ausgeben?

[the_seed]

hallo ??????

[xineohp]

einfach die Variable die als Eingabe übergeben wurde verwenden.