real bir degeri 1 artırma konusunda

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
mertcenk
Üye
Mesajlar: 71
Kayıt: 03 Tem 2003 05:46

real bir degeri 1 artırma konusunda

Mesaj gönderen mertcenk »

if snsonuc.cevap[j].sonuc then inc(dogru) else inc(yanlis);


bu şekilde inc ile deger artırımı var...dogru ve yanlis degiskenleri interger di real e çevirdim...tabiki hata verdi...real bir deger için 1 artırma olayını nasıl halledebilirim...

TŞK.
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Real değişken tipi uyumluluk için vardır. Double kullanın.

bir artırmak içinde :

Degisken := Degisken + 1;

Kolay gelsin.
ertug
Üye
Mesajlar: 82
Kayıt: 10 Ara 2004 05:41

Mesaj gönderen ertug »

Kendi Inc prosedürünüzü yazabilirsiniz, böylece kodunuzu değiştirmeniz gerekmez.

Eğer bir kütüphane uniteniz varsa aşağıdaki kodu ona ekleyiniz, yoksa yeni bir ünite (File->New->Unit) açarak aşağıdakileri yazınız ve formların "uses" alanına bu üniteyi ekleyiniz:

Kod: Tümünü seç

unit Unit2;

interface
  procedure Inc(var X: Integer; const N: Integer = 1); overload;
  procedure Inc(var X: Int64; const N: Integer = 1); overload;
  procedure Inc(var X: Double; const N: Integer = 1); overload;

implementation

procedure Inc(var X: Integer; const N: Integer);
begin
  System.Inc(X, N);
end;

procedure Inc(var X: Int64; const N: Integer);
begin
  System.Inc(X, N);
end;

procedure Inc(var X: Double; const N: Integer);
begin
  X := X + 1;
end;

end.
Inc "overload" ile kullanıldığından hem integer hem de double değişkenler için çalışacaktır.

Kolay gelsin.
Cevapla