Array ausgeben

[xxsasch4xx]

Delphi-Quellcode:

// Das Array habe ich global angelegt
var x: array [1..3] of integer;

procedure test;
begin
  unit1.x[1]:=strtoint(form1.edit1.text);
end;

{$R *.dfm}

button1.click..
begin
  test;
  label1.caption:=inttostr(unit1.x[1]); 
end;

Dann hat es geklappt.