在线等待!求帮忙 我是delphi新手...我自定义的delphi方法,一运行就报错谁能告诉我正确的写法咯,加点注释最好了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这问题问的, 你把报错的贴出来看看function func(Aparam; integer): integer;procedure proc(Aparam; integer); unit Unit16;interfaceuses 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. 我觉得自已方法完全可以模仿 控件的事件来写啊。主要用好几个快捷键Ctrl+Shift+C/↑/↓ C:写完函数声明后,自动写出实现部分↑/↓ :在函数声明和实现部分切换 高手们,请教关于gprs传输模块的 数据集里面的 字节数组 的显示问题 Delphi连接FoxBase问题 不太懂这是什么意思~ 如何更新dbgrid的隐藏列的内容: delphi 分类汇总求助 如何按行写入文本文件??即每次写入一行 Delphi有何用? 求助:FastReport的文本框能设置为水平镜像显示和垂直镜像显示吗? 急,如果要发送大量的数据TServerSocket和TClientSocket组件稳不稳定呢? 两个小问题!!! Delphi7显示中文乱码 如何让EXCEL导入SQL的数据不能有重复?
function func(Aparam; integer): integer;
procedure proc(Aparam; integer);
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.
主要用好几个快捷键Ctrl+Shift+C/↑/↓
C:写完函数声明后,自动写出实现部分
↑/↓ :在函数声明和实现部分切换