Für alle die eine solche Fkt. benötigen hier ist sie. Wird als linked true angegeben, werden alle enthaltenen Zahlen aneinandergereiht, andernfalls wird nach der ersten zusammenhängenden Zahl abgebrochen. Ist keine Zahl enthalten liefert die Funktion den Wert 0.
Delphi-Quellcode:
function StrToVal(str:string;linked:boolean):integer;
var i:integer; res:string;
begin
for i:=1 to length(str) do begin
if str[i] in ['0'..'9'] then res:=res+str[i];
if (not (str[i] in ['0'..'9'])) and (res <> '') and (linked=false) then break;
end;
if res <> '' then result:=strtoint(res) else result:=0;
end;
Bei Fragen ruhig fragen
