Problem mit einem "leeren" String

[DeddyH]

Unter neueren Delphis geht auch eine for-in-Schleife.

Delphi-Quellcode:

function countthenumbers(const a:string):integer;
var
  c: char;
begin
  Result := 0;
  for c in a do
    if c in ['0'..'9'] then
      inc(Result);
end;

Wobei der Compiler da ggf. auch eine Warnung ausgibt, je nach Version.