VPF::[Delphi] Сохранение и открытие массива

Phenom

Дата 9.4.2008, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

Код

const
  MAX = 5;

type
  TArray = array [1..MAX] of Double;
var
  a : TArray;


procedure PrintArray(a : TArray; Strings : TStrings);
var
  i : integer;
begin
  if not Assigned(Strings) then
    Exit;
  Strings.Clear;
  for i := 1 to MAX do
    Strings.Add(FloatToStr(a[i]));
end;

procedure MaxSort(var iArray : TArray);
var
  i, j, pmax : integer;
  tmp : double;
begin
  for i := 1 to MAX do
    begin
      pmax := i;
      for j := i+1 to MAX  do
        if iarray[j] > iarray[pmax] then
          pmax := j;
      tmp := iarray[i];
      iarray[i] := iarray[pmax];
      iarray[pmax] := tmp;
    end;
end;  

function MaxI(a : TArray) : double;
var
  i : integer;
begin
  result := a[1];
  for i := 2 to MAX do
    if a[i] > result then
      result := a[i];
end;

function MinI(a : TArray) : double;
var
  i : integer;
begin
  result := a[1];
  for i := 2 to MAX do
    if a[i] < result then
      result := a[i];
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to MAX do
    a[i] := StrToFloat(IntToStr(Random(1000)) + ',' + IntToStr((Random(1000))));//к примеру:)

  PrintArray(a, ListBox1.Items);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MaxSort(a);
  PrintArray(a, ListBox2.Items);
  ShowMessage('Максимальный элемент: ' + FloatToStr(MaxI(a)));
  ShowMessage('Минимальный элемент: ' + FloatToStr(MinI(a)));
end;

end.

Нужно отсортированный массив, хранящийся в ListBox2 сохранить как двоичный файл с использованием стандартного диалога(SaveDialog), затем открыть с использованием(OpenDialog) и вывести в поле memo в таком же виде как он выглядет в ListBox2. Потоки и блоки использовать нельзя. Алгоритм должен быть как можно более простой, но без использования заранее заготовленных программистами дельфи фишек.

Это сообщение отредактировал(а) Phenom - 9.4.2008, 17:59

Phenom

Дата 10.4.2008, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

Задача решена smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »