Daten aus INI-Datei lesen und mit Stringlist bearbeiten

[Minz]

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...