Array mit Werten bestücken

[Chemiker]

Hallo Thomas,

hier noch ein Beispiel, habe es getippt und war nur kurz Zigretten holen und schon war einer Schneller.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
const
  Arr: array[0..1,0..1,0..2] of String = ((('10','20','30'),
                                           ('40','50','60')),
                                          (('70','80','90'),
                                           ('100','110','120')));
var
  I: Integer;
  z: Integer;
  y: Integer;
begin
  for I := 0 to 2 - 1 do
  begin
    for z := 0 to 2 - 1 do
    begin
      for y := 0 to 3 - 1 do
      begin
        ShowMessage(inttostr(i)+' '+inttostr(z)+' '+inttostr(y)+' '+arr[i,z,y]);
      end;
    end;
  end;
end;

Bis bald Chemiker