Pozitif Negatif Kontrolu

Hazırlayan: batuhan
4. Dersi
Açıklama: Pozitif negatif kontrolü...
ALINTIDIR

<!---delphidersleri.tr.gg başlangıc--->
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. <SCRIPT LANGUAGE="JavaScript">
<!--
Code0 = "%3Cp%3E%3Cfont%20size%3D%221%22%3E%3Cspan%20style%3D%22background-color%3A%20%23FFFFFF%22%3E%0D%0A%3Ca%20href%3D%22http%3A//www.delphidersleri.tr.gg/%22%3ESitene%20Ekle%3C/a%3E%3C/span%3E%3C/font%3E%3C/p%3E";
document.write(unescape(Code0));
//-->
</SCRIPT>

<!---delphidersleri.tr.gg kod bitişi--->