sample - tstrings.pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

var
  SS: TStringList;
begin
  SS := TStringList.Create;
  SS.Add('Line 0');
  SS.Add('Line 1');
  Result := '! ' + SS[1] + ' !';
  SS.Free;
end;