unit Unit2;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.Edit;
type
TForm2 = class(TForm)
first: TEdit;
second: TEdit;
Button1: TButton;
third: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
procedure TForm2.Button1Click(Sender: TObject);
var
first:integer;
second:integer;
begin
third.text:=intToStr(first+second);
end;
uj5u.com熱心網友回復：
procedure TForm2.Button1Click(Sender: TObject);
begin
third.text:=inttostr(strtointdef(first.text,0)+strtointdef(second.text,0));
end;
uj5u.com熱心網友回復：
works fine.Thankyou,but it looks like very complicated!
uj5u.com熱心網友回復：
why division doesn't work when I put the (/) instead of(+)?
uj5u.com熱心網友回復：
自己去學習delphi基礎吧，多看看別人的代碼。不要再問問題了。uj5u.com熱心網友回復：
先把資料型別，控制元件型別等等了解一下，或者去看看書上的例程，弄清楚例程是怎么回事再說~~~
uj5u.com熱心網友回復：
在網上搜denphi 運行錯誤對照表，自己根據提示錯誤的意思去排查，這樣你學到的東西會更扎實······uj5u.com熱心網友回復：
這是沒有一點基礎的哈。first: TEdit;
second: TEdit;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/52146.html
標籤：語言基礎/算法/系統設計