s2.tools.ts2string.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 28 行

unit S2.Tools.TS2String;

interface

uses
  Types;

type
  TS2String = class
  public
    class function PackDynArray(Buffer: array of string): TStringDynArray;
  end;

implementation

{ TS2String }

class function TS2String.PackDynArray(Buffer: array of string): TStringDynArray;
var
  Index: Integer;
begin
  SetLength(Result, Length(Buffer));
  for Index := 0 to High(Buffer) do
    Result[Index] := Buffer[Index];
end;

end.