Изъятие данных из файла.

@итернал · Регистрация: 17.09.2012

Author24 — интернет-сервис помощи студентам

добрый день, можете подсказать как из файла можно извлечь данные в матрицу, ну всмысле есть файл в котором хранится матрица со значениями, вот эти значения надо извлечь и записать в память программ
как извлекать из файла я знаю, ранше делал из файла построчно извлекал данные и записывал их значение в скроллбар, но тут у меня по условия именно матрица и чет немогу сообразить как это можно придумать? как можно придумать или вопще хоть какие нибут идеи

@MLPMan · 07.12.2013, 02:38

Смотря какой файл, текст, или бинарный.

@итернал · 07.12.2013, 02:45 **[ТС]**

текстовый

@RAZETKO · 07.12.2013, 03:44

Delphi

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;

@итернал 4 / 4 / 6 Регистрация: 17.09.2012 Сообщений: 325
		1
	Изъятие данных из файла. 07.12.2013, 01:45. Показов 544. Ответов 3 Метки нет (Все метки) добрый день, можете подсказать как из файла можно извлечь данные в матрицу, ну всмысле есть файл в котором хранится матрица со значениями, вот эти значения надо извлечь и записать в память программ как извлекать из файла я знаю, ранше делал из файла построчно извлекал данные и записывал их значение в скроллбар, но тут у меня по условия именно матрица и чет немогу сообразить как это можно придумать? как можно придумать или вопще хоть какие нибут идеи 0

@MLPMan Кандёхаем веселее! 296 / 328 / 76 Регистрация: 02.10.2012 Сообщений: 2,175
	07.12.2013, 02:38	2
	Смотря какой файл, текст, или бинарный. 0

@итернал 4 / 4 / 6 Регистрация: 17.09.2012 Сообщений: 325
	07.12.2013, 02:45 [ТС]	3
	текстовый 0

	07.12.2013, 03:44