Hoşgeldin, Ziyaretçi:

Üye Ol
Yeni Tema ! Yeni temamız forumumuza hayırlı olsun.Bu konuda fikirlerinizi beyan edebilirsiniz.
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Dephi Pozitif Negatif Kontrolü
#1
Kod:
procedure TForm1.Button1Click(Sender: TObject); var
sakat:integer;
begin
sakat:=strtoint(edit1.Text );
if sakat<0 then label2.Caption :='sonuç= negatif'
else
label2.Caption :='sonuç= pozitif'

end;
end.



Delphi aşkı Big Grin


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Dephi Değişkenler Kim-Jong 0 173 09-07-2015, Saat: 09:31
Son Yorum: Kim-Jong
  Dephi font seçimi ekrana çıkarmak Kim-Jong 0 177 09-07-2015, Saat: 09:29
Son Yorum: Kim-Jong
  Dephi Sayıları birbirleriyle değiştirmek Kim-Jong 0 168 09-07-2015, Saat: 09:28
Son Yorum: Kim-Jong

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri:MCTR MyBB, © 2002-2016 MyBB Group.
Desing and Coding By Mustafa SEVİM