Cäsar-Code

[implementation]

Zitat von CASA:

Delphi-Quellcode:

procedure TForm1.CodierenClick(Sender: TObject);
var n : Integer;
begin
    ...
    if ASCII < ord(n)
    ...
end;

Sicher, dass du nicht Ord(c) meinst?