Delphi Function 返回值忘记默认赋值的一些问题

Delphi function 函数的返回值,也就是Result,建议直接在函数开始就做一些初始化

例如下面的代码

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
  str:string;
begin
  Memo1.Lines.Clear;
  for I:=0 to 2 do
   begin
     str:=GetindexName(I);
    Memo1.Lines.Add(IntToStr(I)+':'+str);
   end;
end;

function TForm1.GetindexName(index: integer): String;
begin
if index=0 then
Result:='传入了0'
else if index=1 then
Result:='传入了1';
end;

  我以为的结果是

 

 事实上的结果是

 

 正确的代码应该是在GetindexName函数的开始时做一个初始化

function TForm1.GetindexName(index: integer): String;
begin
 Result:=''; //新增的代码
 if index=0 then
 Result:='传入了0'
 else if index=1 then
 Result:='传入了1';
end;

  这个并不是什么漏洞,只是不好的代码习惯给自己挖的坑。这里只是记录一下。

posted @ 2021-04-10 21:26  似水@流年  阅读(222)  评论(0编辑  收藏  举报
悠悠记得当天笑 仿佛入迷 又带一点惘 种种喜悦 令人为你鼓掌 眉飞色舞千千样 你是个妙人 是个少年狂