Question

Delphi数据类型问题

procedure Memo12OnAfterData(Sender: TfrxComponent);
var b:integer;

begin
if Memo13.text<>''
then
begin

b:=strtoint(Memo11.text)-strtoint(Memo13.text);
Memo12.text:=inttostr(b);
end;
end;

memo11是文本型的正确，如果memo11为整型的该怎么写呢？

Answer 1

在MEMO里输入数字比如100，你认为是整型，而实质上用其TEXT实属得到的值仍然是文本型。所以代码写法与你上面的完全一样。

Answer 2

memo11怎么可能为整型?

如果你实在是不放心那就用VarType检查一下类型.

if varType(memo11.Lines[0])=varInteger then
begin
...
end;

Answer 3

怎么可能是整形的呢，MEMO只能输入的是字符串类型的，因为是是属于String类型的

Answer 4

不可能