unit testWideStringRecordList;

interface

uses
  XPtest,

  WideStringRecordList,
uses_end;

type TTestMyStringList = class(TWideStringRecordList);

procedure testGetSetText;

implementation

function GetIndexString(StrList: TCommonStringRecordList; i: Integer): TRecord;
begin
  Result := StrList.Items[i];
end;

{$include TestMyStringList.inc.pas}

end.