[Archer666]

Здравствуйте, нужна помощь, не могу создать программу, в которой необходимо считать из внешнего файла 9 чисел(записанных через пробел в строку), и сформировать на форме массив (3х3) этих чисел, проблема в том что я не понимаю как из файла со строкой чисел сделать массив...
как открывать файл понятно, но вот как обработать нет.
наведите на мысль пожалуйста...

[NumLock]

TStrings
property Delimiter
property DelimitedText

[Archer666]

Сообщение от NumLock

TStrings
property Delimiter
property DelimitedText

а как из этого сделать массив 3х3?

[orion_asm]

На форму добавить поле Memo и диалог открытия файлов OpenDialog. Ну и кнопку, вот ее обработчик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
mass : array [0..2] of array [0..2] of integer;
i,j : integer;
begin
if OpenDialog1.Execute then
begin
  AssignFile(F, OpenDialog1.FileName);
  Reset(F);
  while not EOF(F) do
  begin
    for i := 0 to 2 do
      for j := 0 to 2 do
      Read(F, mass[i][j]);
  end;
end;
for i := 0 to 2 do
  for j := 0 to 2 do
  Memo1.Lines.Add('mass [' + IntToStr(i) + ']' + '[' + IntToStr(j) + ']' + ' = ' + IntToStr(mass[i][j]));
end;

[Archer666]

Сообщение от orion_asm

На форму добавить поле Memo и диалог открытия файлов OpenDialog. Ну и кнопку, вот ее обработчик:
[/code]

спасибо, помогло

а как реализовать вывод в Label в виде таблицы 3х3?

[orion_asm]

Сообщение от Archer666

спасибо, помогло

а как реализовать вывод в Label в виде таблицы 3х3?

Это глупая затея. А если задача будет вывод массив 100*100 к примеру, вы будете 10000 лейблов на форму кидать ? Лучше использовать компонент StringGrid. Удалите мемо, добавьте StringGrid. В свойствах (Properties) этого компонента значения FixedCols и FixedRows поставить в 0. RowCount и ColCount задать 3. Хотя это можно и программным способом сделать. Обработчик теперь такой:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
mass : array [0..2] of array [0..2] of integer;
i,j : integer;
begin
if OpenDialog1.Execute then
begin
  AssignFile(F, OpenDialog1.FileName);
  Reset(F);
  while not EOF(F) do
  begin
    for i := 0 to 2 do
      for j := 0 to 2 do
      Read(F, mass[i][j]);
  end;
end;
for i := 0 to 2 do
  for j := 0 to 2 do
  StringGrid1.Cells[i,j] := IntToStr(mass[i][j]);
end;
end.

[Archer666]

Сообщение от orion_asm

Это глупая затея.

точно, так и сортировать потом проще

большое спасибо!

[Archer666]

orion_asm, а как можно отсортировать? по возрастанию например..

[M.A.D.M.A.N.]

Я делал на TFileStream и TMemoryStream подобия n-мерных массивов.

[orion_asm]

В секции implementation добавляешь такое: (SgSort взят и частично изменен с cyberforum.ru)

Код:

implementation
// Процедура сортировки StringGrid
procedure SgSort(aSg : TStringGrid; const aCol : Integer; aCompare : TStringListSortCompare = nil);
var
  SlSort, SlRow : TStringList;
  i, j : Integer;
begin
  SlSort := TStringList.Create;
  for i := aSg.FixedRows to aSg.RowCount - 1 do begin
    SlRow := TStringList.Create;
    SlRow.Assign(aSg.Rows[i]);
    SlSort.AddObject(aSg.Cells[aCol, i], SlRow);
  end;
  if Assigned(aCompare) then SlSort.CustomSort(aCompare)
  else SlSort.Sort;
  j := 0;
  for i := aSg.FixedRows to aSg.RowCount - 1 do begin
    SlRow := Pointer(SlSort.Objects[j]);
    aSg.Rows[i].Assign(SlRow);
    SlRow.Free;
    Inc(j);
  end;
  FreeAndNil(SlSort);
end;

// Сортировка по возрастанию
function CompNumAsc(aSl: TStringList; aIndex1, aIndex2: Integer) : Integer;
var
  N1, N2 : Extended;
begin
  N1 := StrToFloatDef(aSl[aIndex1], 0);
  N2 := StrToFloatDef(aSl[aIndex2], 0);
  if N1 < N2 then Result := -1
  else if N1 > N2 then Result := 1
  else Result := 0;
end;

// По убыванию
function CompNumDesc(aSl: TStringList; aIndex1, aIndex2: Integer) : Integer;
var
  N1, N2 : Extended;
begin
  N1 := StrToFloatDef(aSl[aIndex1], 0);
  N2 := StrToFloatDef(aSl[aIndex2], 0);
  if N1 > N2 then Result := -1
  else if N1 < N2 then Result := 1
  else Result := 0;
end;

В обработчике:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
mass : array [0..2] of array [0..2] of integer;
i,j : integer;
begin
if OpenDialog1.Execute then
begin
  AssignFile(F, OpenDialog1.FileName);
  Reset(F);
  while not EOF(F) do
  begin
    for i := 0 to 2 do
      for j := 0 to 2 do
      Read(F, mass[i][j]);
  end;
end;
for i := 0 to 2 do
  for j := 0 to 2 do
  begin
  StringGrid1.Cells[i,j] := IntToStr(mass[i][j]);
end;
// Сортируем все столбцы по возрастанию
SgSort(StringGrid1, 0, CompNumAsc);
SgSort(StringGrid1, 1, CompNumAsc);
SgSort(StringGrid1, 2, CompNumAsc);
end;
end.

Функция принимает 3 параметра - имя StringGrid которое нуждается в сортировке, потом индекс столбца в котором должна выполнятся сортировка, и функция сортировки либо по убыванию, либо по возрастанию

[Archer666]

Сообщение от orion_asm

Функция принимает 3 параметра - имя StringGrid которое нуждается в сортировке, потом индекс столбца в котором должна выполнятся сортировка, и функция сортировки либо по убыванию, либо по возрастанию

проблема в том что, отсортированные должны быть в соседней таблице..

[orion_asm]

Сообщение от Archer666

проблема в том что, отсортированные должны быть в соседней таблице..

А что мешает добавить еще один стринг грид, заполнить его аналогично в одном цикле вместе с первым, а потом вызвать сортировку указав нужный стринггрид? Допустим добавили еще один, пусть называется StringGrid2:
Здесь его заполняем вместе с первым:

Код:

...
for i := 0 to 2 do
  for j := 0 to 2 do
  begin
  StringGrid1.Cells[i,j] := IntToStr(mass[i][j]);
  StringGrid2.Cells[i,j] := IntToStr(mass[i][j]);
end;

А здесь сортируем:

Код:

SgSort(StringGrid2, 0, CompNumAsc);
SgSort(StringGrid2, 1, CompNumAsc);
SgSort(StringGrid2, 2, CompNumAsc);

Обыкновенная копипаста и замена единственного числа.

[Archer666]

Сообщение от orion_asm

Обыкновенная копипаста и замена единственного числа.

извиняюсь, затупил..
спасибо за помощь.