VPF::Передача масивов в качестве параметров процедуре

Staraus

Дата 17.9.2009, 03:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте, у меня возникла проблема с передачей массива в качестве параметра процедуре

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TRaw = record
     str: string;
     int: integer;
  end;

  TArrayOfRaw = record
     Arr: array[1..4] of TRaw;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    Procedure Show(Arr: Array of TArrayOfRaw);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ArrayOfRaw : array [1..4] Of TArrayOfRaw;

implementation

{$R *.dfm}
procedure TForm1.Show(Arr: Array Of TArrayOfRaw);
begin
label1.Caption := IntToStr(Arr[1].Arr[1].int);
label1.Caption := Label1.caption + IntToSTr(Arr[1].Arr[4].int);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ArrayOfRaw[1].Arr[1].int := 3;
ArrayOfRaw[1].Arr[4].int := 5;
Form1.Show(ArrayOfRaw);
end;

end.

При нажатии на кнопку1 на лейбле выводится 00, а не 35...
Как правильно передать данный массив процедуре, чтобы не происходило обнуление????

Это сообщение отредактировал(а) Staraus - 17.9.2009, 04:09

Присоединённый файл ( Кол-во скачиваний: 2 )

________.7z 2,43 Kb

CodeMonkey

Дата 17.9.2009, 08:27 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Array Of TArrayOfRaw - это не тоже самое, что Array[1..4] Of TArrayOfRaw. И индексы там начинаются с нуля.

Наверное, вам стоит объявить типы так:

Код

type
  TArrayOfRaw = array[1..4] of TRaw;
  T2DimArrayOfRaw = array[1..4] of TArrayOfRaw;

...

var
  ArrayOfRaw: T2DimArrayOfRaw;

...
procedure TForm1.Show(const Arr: T2DimArrayOfRaw);

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

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