07-09-2015, 04:11 PM
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.
Temelllerini sağlam atarsan bir Dağ sağlam atamassan bir ova gibi olursun.