achso keine feste Position:
Dann durchläufst du solange den String:
- bis du eine Zahl findest
- bis die Zahl von einem anderen Zeichen abgebrochen wird
- bis der String zuende ist
Code:
zahl: boolean;
zahlstart, zahllength: integer;
zahlstring: string;
zahl:=false;
for i:=low(s) to high(s) do begin
if (ord(s[i])>=48) and (ord(s[i])<=57) then begin
zahl:=true;
zahlstart:=i;
end;
if zahl then begin
if (s[i]<>'.') then begin
if (ord(s[i])<48) or (ord(s[i])>57) then begin
zahl:=false;
zahllength:=i-zahlstart;
zahlstring:=copy(s,zahlstart,zahllength);
end;
end;
end;
end;