16,747
社区成员




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;