请大虾帮我看看源码关于取得系统目录。

Question

我是新手，对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;

Answer 1

function w:string定义错误
函数要有返回值

Answer 2

function (w:string):string;

Answer 3

function (w:string):string;
-->function (var w:string):string;

Answer 4

在button 事件下如何调用？小弟愚。。

Answer 5

楼主定义没有错误,函数可以不输入参数procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(w);
end;
就可以了

Answer 6

jinjazz(三个小时上下班)的正确，直接调用就可以了，不过函数里定义了s:string；
确没有在函数里调用，编译的时候会有警告的。
另外， result:=result+'\'；//这里要加“；”的，应该是笔误了吧。