Código Delphi [-] PROCEDURE TForm2.Button1Click (Sender: TObject); BEGIN Edit1.Text := IntToSTr (StrToIntDef (Edit1.Text, 0) + 1) END;
PROCEDURE TForm2.Button1Click (Sender: TObject); BEGIN Edit1.Text := IntToSTr (StrToIntDef (Edit1.Text, 0) + 1) END;