Hallo Q-Dog,
nimm ein Memo:
Delphi-Quellcode:
var
i, j : integer;
r : real;
// ....
for i := 0 to mem.Lines.count - 1 do begin
s := mem.Lines.Strings[i];
hs := '';
for j := 1 to length(s) do
if Pos(s[j], '0123456789+-.') > 0 then hs := hs + s[j];
if hs = '' then hs := '0';
r := StringToFloat(hs);
speicherort_fuer_verarbeitung_der_zahlen := r;
end;
Nicht getestet, aber so in etwa sollte es gehen.
mfg
eddy