sample - tstrings 2.pas

来自「East make Tray Icon in delphi」· PAS 代码 · 共 14 行

unit U;

function main: string;
var
  SS: TStringList;
begin
  SS := TStringList.Create;
  SS.Add('Line 0');
  Result := SS[0];
  SS.Free;
end;

end.