Ok hab das mit der Fehlermeldung gelöst, ich würde jetzt gerne dafür sorgen das diese Funktion nicht mehr die Anzahl der längsten Ziffernfolge ausgibt sondern die längste Ziffernfolge selbst, anscheinend ist es schwerer als gedacht oder übersehe ich einfach etwas
Delphi-Quellcode:
function longestNumber(s: string): byte;
var
run, number, longNum: byte;
begin
longNum := 0;
number := 0;
for run := 1 to length(s) do
begin
case s[run] of
'0' .. '9':
inc(number)
else
begin
if number > longNum then
longNum := number;
number := 0;
end;
end;
end;
if number > longNum then
begin
longNum := number;
longestNumber := longNum;
end;
end;