Здравствуйте, у меня возникла проблема с передачей массива в качестве параметра процедуре
| Код |
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...
Как правильно передать данный массив процедуре, чтобы не происходило обнуление????
|