0 değerinin çıkmaması

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
HakanY
Üye
Mesajlar: 9
Kayıt: 13 Eyl 2021 07:20

0 değerinin çıkmaması

Mesaj gönderen HakanY »

Merhaba,


Databasede speed değeri 60, veriyi çektikten sonra Second ile 000 daha eklemet isitiyorum; Fakat ne yaptıysam 60000 değerini alamıyorum 60 olalarak showmessageye yansıyor bu sorun neden kaynaklı oluyor?

Kod: Tümünü seç

procedure TMainForm.LOpenClose(Sender: TObject);
var
  FDQ: TFDQuery;
  Second: Integer;
begin
  Second := 000;
  FDQ := TFDQuery.Create(Self);
  try
    FDQ.Active := False;
    FDQ.Close;
    FDQ.SQL.Clear;
    FDQ.SQL.Add('Select * From Fiyat');
    FDQ.Prepared := True;
    FDQ.Open;
    showmessage(IntToStr(FDQ.FieldByName('speed').AsInteger + Second));
    
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: 0 değerinin çıkmaması

Mesaj gönderen mkysoft »

Cok temel bir matematik kuralindan; sifir toplama ve cikarma islemlerinde etkisiz elemandir.
HakanY
Üye
Mesajlar: 9
Kayıt: 13 Eyl 2021 07:20

Re: 0 değerinin çıkmaması

Mesaj gönderen HakanY »

mkysoft yazdı: 02 Eki 2021 08:32 Cok temel bir matematik kuralindan; sifir toplama ve cikarma islemlerinde etkisiz elemandir.
Haklısınız, teşekkür ederim
Kullanıcı avatarı
maxpaynen
Üye
Mesajlar: 14
Kayıt: 14 Tem 2018 03:20
İletişim:

Re: 0 değerinin çıkmaması

Mesaj gönderen maxpaynen »

Second := 1000;
olarak değiştir.
showmessage(IntToStr(FDQ.FieldByName('speed').AsInteger + Second));
yerine
showmessage(IntToStr(FDQ.FieldByName('speed').AsInteger * Second));
* çarpma işlemi kullan.
Cevapla