20-01-2014, 12:51 AM
مثال سريع
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:Integer;
begin
if edt1.Text = '' then edt1.Text := '0';
if edt2.Text = '' then edt2.Text := '0';
a := StrToInt(edt1.Text) ;
b := StrToInt(edt2.Text) ;
c := a + b;
edt3.Text := IntToStr(c);
end;
end.
لن يفشل ابداا انسان يحاول ثم..... يحاول