Kontrolle eines Codes

[angos]

hier die Grundlage. Den Rest musst dir dann aber noch selber basteln

Delphi-Quellcode:

for i:1 to Length(s) do
begin
if not (s[i] in [0..9]) then
begin
  ShowMessage('Falscher String');
end;

[edit] roter kasten, wo warste wieder?