Memo1.Lines[0] prüfen!

[p80286]

Delphi-Quellcode:

function IstZifferinString(const s:string):boolean;
var
  i : integer,
begin
  result:=false; 
  if length(s)>0 then
    for i:=1 to length(s) do
      if s[i] in ['0'..'9'] then result:=true;
end;

Könnte man auch mit repeat until oder while lösen wenn die Ziffer relativ weit vorne steht. Das spart ein paar Takte.

Gruß
K-H