TXT to StringGrid Опции

[Desktop_4]

Файл например содержит:

0 0 1 0 0 1 0 0 0 0 
0 0 0 1 0 0 1 0 1 0 
1 1 1 0 0 0 0 0 1 0 
0 0 1 0 1 1 0 1 1 0 
0 0 1 0 1 0 1 1 1 1 
1 0 1 1 1 1 1 0 1 0 
0 1 0 1 1 1 1 1 0 0 
1 1 1 1 0 0 1 1 1 1 
1 0 0 1 0 1 0 0 1 1 
0 0 0 0 1 0 0 0 1 1 

Надо этот файл загрузить в StringGrid не трогая FixedRows/Cols...

Есть процедура:

    procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName) ;
var f: TextFile; iTmp, i, k: Integer;
strTemp: String ;
begin
AssignFile(f, FileName) ;
Reset(f) ;
with StringGrid do
begin
// Get number of columns
Readln(f, iTmp) ;
ColCount := iTmp;
// Get number of rows
Readln(f, iTmp) ;
RowCount := iTmp;
// loop through cells & fill in values
    for k := FixedRows to RowCount - 1 do begin
      for i := FixedCols to ColCount - 1 do
      begin
      Readln(f, strTemp) ;
      Cells[i, k] := strTemp;
      end ;
    end ;
  CloseFile(f) ;
  end ;
  end;

Но грузится первая строка в одну ячейку.
Как правильно загрузить из файла в StringGrid ?
И как сделать проверку соотвецтвия формату файла который загружается ?

[Ozzя]

Этот пример файла реальный?
Потому что, ты сначала грузишь кол-во строк и кол-во столбцов из файла.
А в файле этого нет.

10
10
0 0 1 0 0 1 0 0 0 0
0 0 0 1 0 0 1 0 1 0
1 1 1 0 0 0 0 0 1 0
0 0 1 0 1 1 0 1 1 0
0 0 1 0 1 0 1 1 1 1
1 0 1 1 1 1 1 0 1 0
0 1 0 1 1 1 1 1 0 0
1 1 1 1 0 0 1 1 1 1
1 0 0 1 0 1 0 0 1 1
0 0 0 0 1 0 0 0 1 1

По твоему коду файл должен быть таким.
И ты читаешь полностью всю строку, разбивай ее.