unit testStringClassList;

interface

uses
  XPtest,

  StringClassList,
uses_end;

type TTestMyStringList = class(TStringClassList);

procedure testGetSetText;

implementation

function GetIndexString(StrList: TStringClassList; i: Integer): String;
begin
  Result := StrList.Items[i].Item;
end;

{$include TestMyStringList.inc.pas}

end.