16,748
社区成员
发帖
与我相关
我的任务
分享
function f(var a: TStrings): Boolean;
procedure TForm1.Button1Click(Sender: TObject);
function a(): TStrings;
begin
Result := TStringList.Create();
Result.Add('a');
end;
begin
ShowMessage(a()[0]);
end;
procedure TForm1.Button1Click(Sender: TObject);
function a(): TStrings;
begin
Result := TStringList.Create();
Result.Add('a');
end;
begin
ShowMessage(a()[0]);
end;
procedure TForm1.Button1Click(Sender: TObject);
function a(): TStrings;
begin
Result := TStringList.Create();
Result.Add('a');
end;
begin
with a() do
begin
ShowMessage(Strings[0]);
Free;
end;
end;