Question

delphi 简单的自定义函数问题

我定义了个函数
function xx(var i:string):string;

函数返回一个字符数据
function Tform1.xx(var i:string):string;
begin
result:=inttostr(strtoint(i)*3);
end;
但是老调用出错
Label1.Caption:= xx(edit1.text);

不知道哪里有问题????????

Answer 1

函数中使用var定义的是variable parameters,调用的时候应该传递一个变量给函数xx.

edit1.text是一个常量,调用自然出错了。

可以把函数定义时参数前面的var去掉.

参考delphi帮助Value and variable parameters

Answer 2

function xx(var i:string):string;
把参数的var 去掉看看。

Answer 3

貌似看不出问题
你抱什么错误？

Answer 4

不会出错啊，只要你的edit1.text里是数字参考下面代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
edt1: TEdit;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function xx(var i:string):string;

implementation

{$R *.dfm}

function xx(var i:string):string;
begin
result:=IntToStr(StrToInt(i)*3);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
a:string;
begin
a:=Trim(edt1.Text);
lbl1.Caption:=xx(a);
end;

end.