buchstaben aus String rausfiltern ??

[eddy]

Hallo Leute,

scrat1979 hat die Lösung doch schon geliefert.

Delphi-Quellcode:

const
  AllowNumString        = '0123456789';


function StrToNum(s : string) : real;
var
  hs : string;
  i : integer;
begin
  s := trim(s);
  if length(s) > 0 then begin
    hs := '0';
    for i := 1 to length(s) do
      if Pos(s[i], AllowNumString +'.') > 0 then hs := hs + s[i];
    Result := StrToFloat(hs);
  end
  else Result := 0;
end;

//Nutzung:
// ....
  Edit2.Text := FloatToStr(StrToNum(Edit1.Text));

mfg