procedure testGetSetText;
var
  StrList: TTestMyStringList;
begin
//  StrList := TTestMyStringList.Create; try
//
//  StrList.SetText('');
//  Check(0, StrList.Count);
//  Check('', StrList.GetText);
//
//  StrList.SetText(' ');
//  Check(1, StrList.Count);
//  Check(GetIndexString(StrList, 0), ' ');
//  Check(' ', StrList.GetText);
//
//  StrList.SetText('あいうえお');
//  Check(1, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお');
//  Check('あいうえお', StrList.GetText);
//
//  StrList.SetText('あいうえお'#13#10);
//  Check(1, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13#10);
//  Check('あいうえお'#13#10, StrList.GetText);
//
//  StrList.SetText('あいうえお'#13#10'かきくけこ');
//  Check(2, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13#10);
//  Check(GetIndexString(StrList, 1), 'かきくけこ');
//  Check('あいうえお'#13#10'かきくけこ', StrList.GetText);
//
//  StrList.SetText('あいうえお'#13#10'かきくけこ'#13#10);
//  Check(2, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13#10);
//  Check(GetIndexString(StrList, 1), 'かきくけこ'#13#10);
//  Check('あいうえお'#13#10'かきくけこ'#13#10, StrList.GetText);
//
//  StrList.SetText('あいうえお'#13#10'かきくけこ'#13#10'さしすせそ');
//  Check(3, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13#10);
//  Check(GetIndexString(StrList, 1), 'かきくけこ'#13#10);
//  Check(GetIndexString(StrList, 2), 'さしすせそ');
//  Check('あいうえお'#13#10'かきくけこ'#13#10'さしすせそ', StrList.GetText);
//
//  StrList.SetText(#13#10#13#10#13#10#13#10'あいうえお'#13#10#13#10);
//  Check(6, StrList.Count);
//  Check(GetIndexString(StrList, 0), #13#10);
//  Check(GetIndexString(StrList, 1), #13#10);
//  Check(GetIndexString(StrList, 2), #13#10);
//  Check(GetIndexString(StrList, 3), #13#10);
//  Check(GetIndexString(StrList, 4), 'あいうえお'#13#10);
//  Check(GetIndexString(StrList, 5), #13#10);
//  Check(#13#10#13#10#13#10#13#10'あいうえお'#13#10#13#10, StrList.GetText);
//
//  StrList.SetText('あいうえお'#13);
//  Check(1, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13);
//  Check('あいうえお'#13, StrList.GetText);
//
//  StrList.SetText('あいうえお'#13'かきくけこ');
//  Check(2, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13);
//  Check(GetIndexString(StrList, 1), 'かきくけこ');
//  Check('あいうえお'#13'かきくけこ', StrList.GetText);
//
//  StrList.SetText('あいうえお'#13'かきくけこ'#13);
//  Check(2, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13);
//  Check(GetIndexString(StrList, 1), 'かきくけこ'#13);
//  Check('あいうえお'#13'かきくけこ'#13, StrList.GetText);
//
//  StrList.SetText('あいうえお'#13'かきくけこ'#13'さしすせそ');
//  Check(3, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#13);
//  Check(GetIndexString(StrList, 1), 'かきくけこ'#13);
//  Check(GetIndexString(StrList, 2), 'さしすせそ');
//  Check('あいうえお'#13'かきくけこ'#13'さしすせそ', StrList.GetText);
//
//  StrList.SetText(#13#13#13#13'あいうえお'#13#13);
//  Check(6, StrList.Count);
//  Check(GetIndexString(StrList, 0), #13);
//  Check(GetIndexString(StrList, 1), #13);
//  Check(GetIndexString(StrList, 2), #13);
//  Check(GetIndexString(StrList, 3), #13);
//  Check(GetIndexString(StrList, 4), 'あいうえお'#13);
//  Check(GetIndexString(StrList, 5), #13);
//  Check(#13#13#13#13'あいうえお'#13#13, StrList.GetText);
//
//  StrList.SetText('あいうえお'#10);
//  Check(1, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#10);
//  Check('あいうえお'#10, StrList.GetText);
//
//  StrList.SetText('あいうえお'#10'かきくけこ');
//  Check(2, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#10);
//  Check(GetIndexString(StrList, 1), 'かきくけこ');
//  Check('あいうえお'#10'かきくけこ', StrList.GetText);
//
//  StrList.SetText('あいうえお'#10'かきくけこ'#10);
//  Check(2, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#10);
//  Check(GetIndexString(StrList, 1), 'かきくけこ'#10);
//  Check('あいうえお'#10'かきくけこ'#10, StrList.GetText);
//
//  StrList.SetText('あいうえお'#10'かきくけこ'#10'さしすせそ');
//  Check(3, StrList.Count);
//  Check(GetIndexString(StrList, 0), 'あいうえお'#10);
//  Check(GetIndexString(StrList, 1), 'かきくけこ'#10);
//  Check(GetIndexString(StrList, 2), 'さしすせそ');
//  Check('あいうえお'#10'かきくけこ'#10'さしすせそ', StrList.GetText);
//
//  StrList.SetText(#10#10#10#10'あいうえお'#10#10);
//  Check(6, StrList.Count);
//  Check(GetIndexString(StrList, 0), #10);
//  Check(GetIndexString(StrList, 1), #10);
//  Check(GetIndexString(StrList, 2), #10);
//  Check(GetIndexString(StrList, 3), #10);
//  Check(GetIndexString(StrList, 4), 'あいうえお'#10);
//  Check(GetIndexString(StrList, 5), #10);
//  Check(#10#10#10#10'あいうえお'#10#10, StrList.GetText);
//
//  StrList.SetText(StringOfChar(' ', 250));
//  Check(1, StrList.Count);
//  Check(StringOfChar(' ', 250), StrList.GetText);
//
//  StrList.SetText(StringOfChar(' ', 2500));
//  Check(1, StrList.Count);
//  Check(StringOfChar(' ', 2500), StrList.GetText);
//
//  finally StrList.Free; end;
end;