real bir degeri 1 artırma konusunda

[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.

[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]

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.