Работа с компонентом StringGrid в Delphi7

[Nursoltan]

Помогите пожалуйста!!!
У меня возникла такая проблема:
Я Пытаюсь взять данные с файла с помощью StringGrid и после перенести их в двухмерный массив, для работы с этими данными. Дело в том, что я не могу указать размерность массива, так как в файле неизвестное количество строк, а значит и в StringGrid-е неизвестно сколько будет строк и столбцов, ну конечно не зная эти данные нельзя создать двухмерный массив в var-e. Как можно уже из StringGrid-а Вытащить данные в массив???

Заранее спасибо!!

[Karabash]

Нужно почитать о динамических массивах.
В тексте модуля набераем "array". Нажимаем F1. В списке, который появится, первым пунктом будет "Dynamic arrays". Нажимаем "Показать". В открывшейся странице в самом низу ссылка "Multidimensional dynamic arrays". Через эту ссылку открываем страницу со справкой, где написано как объявлять и применять многомерные динамические массивы. В т.ч. и двумерные.

[W0LF]

with StringGrid1 do
SetLength(массив, ColCount * RowCount);

Задаст размер массива = количеству ячеек таблицы.
Ну или пробегаете двойным цыклом по ячейкам проряя, что они <>'', тогда +1 в числовую переменную и в конце задать размер массива равного этой переменной...

[Nursoltan]

Спасибо всем!!!
С массивами я разобрался, но возник другой вопрос:
Как можно при случайной выборке строк из файла (точнее вопросов и ответов) делать проверку на то, что бы не было совпадений.

Т.е. есть кнопки с ответами и вопросом при нажатии на любой ответ прога вынимает random-мом любой другой вопрос но бываю повторения.

Хотя у меня и есть догадки, но пока, что-то не получается.
help me please!!!

[Volt]

Как можно при случайной выборке строк из файла (точнее вопросов и ответов) делать проверку на то, что бы не было совпадений.

var
  L1 : TStringList;
  K, Kol  : integer; ///Кol кол-во вопросов
begin
  L1 := TStringList.Create;
  Randomize;

  Kol:=20;

  while L1.Count<Kol
  do begin
    K := Random(Kol);
    if L1.IndexOf(IntToStr(K))=-1 then
       L1.Add(IntToStr(K));
  end;

  // для демонстрации
  Memo1.Lines.Clear;
  Memo1.Lines := L1;


  L1.Free;