unit testStringClassList;

interface

uses
  XPtest,
  StringClassList,
uses_end;

type TTestMyStringList = class(TStringClassList);

procedure testGetSetText;

procedure testTStringClassList;


implementation

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

{$include TestMyStringList.inc.pas}

procedure testTStringClassList;
var
  StringClass1: TStringClass;
  StringClassList1: TStringClassList;
begin
  StringClassList1 := TStringClassList.Create;
  try
    StringClass1 := TStringClass.Create;
    StringClass1.Item := 'あいうえお';
    StringClassList1.Add(StringClass1);

    StringClass1 := TStringClass.Create;
    StringClass1.Item := 'かきくけこ';
    StringClassList1.Add(StringClass1);

    StringClassList1.Exchange(0, 1);

    Check('かきくけこ', StringClassList1.Items[0].Item);
    Check('あいうえお', StringClassList1.Items[1].Item);

    StringClassList1.Insert(0, TStringClass.Create('さしすせそ'));
    StringClassList1.Insert(0, TStringClass.Create('たちつてと'));

    Check('たちつてと', StringClassList1.Items[0].Item);
    Check('さしすせそ', StringClassList1.Items[1].Item);
    Check('かきくけこ', StringClassList1.Items[2].Item);
    Check('あいうえお', StringClassList1.Items[3].Item);

  finally
    StringClassList1.Free;
  end;

end;



end.