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;