Показать сообщение отдельно
  #2  
Старый 03.05.2009, 12:37
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

Код:
var
  Form1: TForm1;
  Matrix: array of array of Integer;

.........................

procedure LoadMatrix(_FileName: TFileName);
var
  SList, RList: TStringList;
  i, j, RowCnt, ColCnt: Integer;
begin
  if not FileExists(_FileName) then Exit;
  SList := TStringList.Create;
  RList := TStringList.Create;
  try
    SList.LoadFromFile(_FileName);
    RowCnt := SList.Count;
    SetLength(Matrix, RowCnt);
    RList.Delimiter := ' ';
    for i := 0 to RowCnt - 1 do
    begin
      RList.DelimitedText := SList.Strings[i];
      ColCnt := RList.Count;
      SetLength(Matrix[i], ColCnt);
      for j := 0 to ColCnt - 1 do Matrix[i][j] := StrToInt(RList.Strings[j]);
    end;
  finally
    SList.Free;
    RList.Free;
  end;
end;
Ответить с цитированием