(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:
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.
[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.
[
attachment=684]
(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 ' +
Sorunun çözülmesine katkıda bulunabildiysem ne mutlu. Özre gerek yok.
Hepimiz aynı yollardan geçtik.
Ben teşekkür ederim. Kolay gelsin.
