Problem mit einem "leeren" String

[diavy]

Also ich hab's mal mit der for .. in-Schleife probiert und das hat nicht hingehauen.

Code:

program ex53;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
a:string;

function countthenumbers(a:string):integer;
var
x:integer;
c:char;
begin
x:=0;
for c in a do
if c in ['0','1','2','3','4','5','6','7','8','9'] then x:=x+1;
result:=x;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Please enter a string:');
readln(a);
writeln('The amount of numbers in your string is:',countthenumbers(a));
readln;
end.

--> [Error] ex53.dpr(16): Operator not applicable to this operand type
--> [Error] ex53.dpr(17): Incompatible types: 'Boolean' and 'procedure, untyped pointer or untyped parameter'
--> [Error] ex53.dpr(19): Expression expected but 'END' found

[himitsu]

For-In gibt es erst ab Delphi 2006 / Turbo Delphi.



PS:
Es gibt auch einen [delphi]-Tag, für die Codes.
Und 'ne halbwegs ordentliche Codeformatierung macht das alles bestimmt lesbarer.

[Dalai]

Zitat von himitsu:

For-In gibt es erst ab Delphi 2006 / Turbo Delphi.

Oder auch im Lazarus, jedenfalls kann ich seinen Code damit kompilieren (im Gegensatz zu Delphi 5).

Zitat:

Und 'ne halbwegs ordentliche Codeformatierung macht das alles bestimmt lesbarer.

Dem kann - oder besser gesagt muss - ich mich anschließen.

MfG Dalai