buchstaben aus String rausfiltern ??

[marabu]

Guten Morgen,

noch eine Methode:

Delphi-Quellcode:

function FloatStr(const s: string): string;
var
  value: Extended;
  index: Integer;
begin
  Result := s;
  Val(s, value, index);
  if index > 0 then
    SetLength(Result, Pred(index));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  Edit2.Text := FloatStr(Edit1.Text);
end;

Grüße vom marabu