String in Value konvertieren

[cyberrowdy72]

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