gpt4 book ai didi

delphi - 不兼容的类型 : 'Integer' and 'procedure, untyped pointer or untyped parameter'

转载 作者:行者123 更新时间:2023-12-02 01:32:46 29 4
gpt4 key购买 nike

我在为变量提供计数值时遇到错误(不知道这是否有意义)。

iCount := inc(iCount,1);

这是我的代码:

var
iCount : Integer;
procedure TForm1.FormActivate(Sender: TObject);
begin
edtOutput.SelAttributes.size := 10;
edtOutput.SelAttributes.name := 'Courier';
edtOutput.Lines.Add(('Name') + #9 + #9 + ('Age') + #9 + #9 + ('Child or adult'));
end;

procedure TForm1.btnOKClick(Sender: TObject);
var
sName :String;
iAge :Integer;
begin
iCount := inc(iCount,1); // <--- HERES THE ERROR
sName := edtName.text;
iAge := edtAge.value;

当我给 iCount 其值时,我收到此错误:

不兼容的类型:“整数”和“过程、无类型指针或无类型参数”

哦,edtOutput 是一个RichEdit。我完全按照教科书所说的方式复制了它(不是整个程序,只是 iCount 的东西)

任何有关如何解决此问题的建议将不胜感激!

最佳答案

inc 的签名在 documentation 中描述。 :

procedure Inc(var X: Ordinal; [ N: Integer]); overload;
procedure Inc(var X: Ordinal; [ N: Integer]); overload;

换句话说,它是一个接收要作为 var 参数递增的变量的过程。它不是函数,也不返回值。

您的代码应该是:

inc(iCount);

关于delphi - 不兼容的类型 : 'Integer' and 'procedure, untyped pointer or untyped parameter' ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21802534/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com