
03.05.2009, 12:37
|
Активный
|
|
Регистрация: 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;
|