Delphi DELPHI / Sayı Karşılaştırması

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.

böyle programlar neden yapılır ki saçma bence size yararı olsun yeter bana.
 
Üst