在线等待！求帮忙
我是delphi新手...我自定义的delphi方法，一运行就报错。。。谁能告诉我正确的写法咯，加点注释最好了
[解决办法]
这问题问的, 你把报错的贴出来看看
function func(Aparam; integer): integer;
procedure proc(Aparam; integer);
[解决办法]
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm16 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure proc(const Value : string);
function fun(const Value : string) : string;
public
{ Public declarations }
// procedure proc(const Value : string); //上边的两个过程放在这里就是公有的
// function fun(const Value : string) : string;
end;
var
Form16: TForm16;
implementation
{$R *.dfm}
procedure TForm16.FormCreate(Sender: TObject);
var
s : string;
begin
s := fun('abc');
proc(s);
end;
function TForm16.fun(const Value: string): string;
begin
Result := Value + 'aa';
end;
procedure TForm16.proc(const Value: string);
begin
ShowMessage(Value);
end;
end.
