Delphi Dephi Pozitif Negatif Kontrolü

Kim-Jong

Onursal
Onursal
Katılım
18 May 2015
Mesajlar
1,226
Tepkime puanı
0
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ı :D
 
Üst