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.

[faktoral]

[attachment=684 Adlı Kullanıcıdan Alıntı:OZCANK pid='31028' dateline='1568118246']
SadeceRakamlar(Edit5.Text); bu şekilde kullandım sonuç  "5.000"  ondalıksız  "5000" olarak görmem gerekiyor.

Size örnek proje gönderiyorum.


  SadeceRakam.zip (Dosya Boyutu: 54,33 KB / İndirme Sayısı: 1)

[OZCANK]

(10-09-2019, Saat: 15:34)faktoral Adlı Kullanıcıdan Alıntı:

(10-09-2019, Saat: 15:24)OZCANK Adlı Kullanıcıdan Alıntı: SadeceRakamlar(Edit5.Text); bu şekilde kullandım sonuç  "5.000"  ondalıksız  "5000" olarak görmem gerekiyor.

Size örnek proje gönderiyorum.

Faktoral  Kardeşim özür dilerim senden. Bu şekilde kullanınca sorunum halloldu emeği geçen arkadaşlara yürekten teşekkür ediyorum.

 'HAVING (Sum(TBLFATUIRS.BRUTTUTAR - SAT_ISKT - GEN_ISK1T - GEN_ISK2T - GEN_ISK3T)>=$'+SadeceRakamlar(Edit5.Text)+' AND TBLFATUIRS.FTIRSIP=''1'' AND month(tarih)='+#39+''+Edit1.Text+''+#39+')) AS TT ' +

[faktoral]

Sorunun çözülmesine katkıda bulunabildiysem ne mutlu. Özre gerek yok.
Hepimiz aynı yollardan geçtik.
Ben teşekkür ederim. Kolay gelsin.