Code:
s:='0.001 abc 1.45'; //zum Testen
zahl:=false;
for i:=1 to length(s) do begin
if (ord(s[i])>=48) and (ord(s[i])<=57) and (not zahl) 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);
pos:=sl.add(zahlstring);
end;
end;
end;
end;
probiers so mal ... pos:=sl.add(zahlstring); musst du am ende jetzt wegnehmen weils in der schleife steht -
ganz wichtig das "and (not zahl)"
@ub60
kann es sein das dein ding nicht für mehrere Zahlen in einem String funktioniert?
habs mir aber net so genau angeschaut...