我是新手,对function 不是很理解,以下的自定义有错吗?没错的话应该怎样调用呢?我想单击button,弹出对话框并给出当前的系统目录路径,谢谢!!function w:string;
var
ss:array[0..255]of char;
s:string;
begin
getwindowsdirectory(ss,255);
result:=ss;
if copy(result,length(result),1)<>'\' then
result:=result+'\'
end;
var
ss:array[0..255]of char;
s:string;
begin
getwindowsdirectory(ss,255);
result:=ss;
if copy(result,length(result),1)<>'\' then
result:=result+'\'
end;
解决方案 »
- 导出到txt
- 使用OpenProcess出错,调用getlasterror返回代码5
- 如何一次性将数据库中的每条记录都更新
- Delphi6专业版没法在WinXP以非管理员身份安装,如何解决,个人版可以么?
- 100分:我刚学写的一个windows服务程序,不能启动,大家帮我看看。附全部代码。
- 有谁能提供UDP协议的实例?
- 如何不让程序停下来又在断点处停下来呢?
- 上传后的问题,请赐教!
- Delphi7能自动获得上一个事件吗?
- SQLServer的Image类型可以存储何种格式的图形。。。
- 怎样判断现在的时间在某几个时间段里面?
- ActiveX form 编写程序在网页中使用。怎么才能读取IE的cookies值?
函数要有返回值
-->function (var w:string):string;
begin
showmessage(w);
end;
就可以了
确没有在函数里调用,编译的时候会有警告的。
另外, result:=result+'\';//这里要加“;”的,应该是笔误了吧。