Ereignis in ein Array an Procedure übergeben

[himitsu]

Jupp sind ja schließlich zwei verschiedene Typendefinitionen

So:

Delphi-Quellcode:

Type TSArray = Array of String;

// Procedure 
procedure create_menu(a : TSArray); 
  var b : TButton; 
      i : Integer;  // Schleifenvariable 
begin 
  for i:=0 to Length(a) - 1 do 
    begin 
      b:=TButton.Create(Form1); 
      b.Caption:=a[i]; 
      b.Top:=30 * i; 
      b.Left:=10; 
      b.Parent:=Form1; 
    end; 
end; 

// Aufruf 
procedure TForm1.Button1Click(Sender: TObject); 
  var a : TSArray; 
begin 
  SetLength(a, 5); 

  a[0]:='Menu1'; 
  a[1]:='Menu2'; 
  a[2]:='Menu3'; 
  a[3]:='Menu4'; 
  a[4]:='Menu5'; 

  create_menu(a); 
end;