procedure guocheng (var Value: string);
begin
Value := '这是一个过程';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=guocheng;//缺少参数,要如何写呢?
end;
begin
Value := '这是一个过程';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=guocheng;//缺少参数,要如何写呢?
end;
var s:string;//s是用来接收guocheng过程返回的结果
begin
guocheng(s);
Button1.Caption:=s;//缺少参数,要如何写呢?
end;