unit testStringRecordList;

interface

uses
  XPtest,

  StringRecordList,
uses_end;

type TTestMyStringList = class(TStringRecordList);

procedure testGetSetText;

implementation

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

{$include TestMyStringList.inc.pas}

end.