Edit Sayı Çevirme

[OZCANK]

(10-09-2019, Saat: 15:07)faktoral Adlı Kullanıcıdan Alıntı: Edit5.Text := FloatToStr(Value(Edit5.Text))

Burada artık "Value(Edit5.Text)"  Float değil onun için hata veriyor.

Kod: (Select All)

function SadeceRakamlar(s: string): string;
var
  i: integer;
  rsp: string;
begin
  Result := s;
  if Length(s) < 1 then Exit;
  rsp := '';
  for i := 1 to Length(s) do
  begin
    if s[i] in ['0'..'9'] then
      rsp := rsp + s[i];
  end;
  Result := rsp;
end;

Bunu Kullanın. Ve convert etmeyin. Sonuc size rakamlardan ouşan bir string olarak dönecek.

SadeceRakamlar(Edit5.Text); bu şekilde kullandım sonuç  "5.000"  ondalıksız  "5000" olarak görmem gerekiyor.