1:
2:
3:

zahl1 : array of INTEGER;
zahl2 : array of INTEGER;
zahl3 : array of INTEGER;

1:
2:

feld : TARRAYFIELD;
t : STRING;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Var name1 : STRING;
    zahl1 : Array of Integer;
    variable_fuer_zugriff : Tiwas;

begin

  setlength(zahl1,5);
  name1 := 'zahl1';
  variable_fuer_zugriff.name := name1;
  variable_fuer_zugriff[1] := 16;

end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TIntegerArray = array of Integer;
var
  zahl1: TIntegerArray;
  zahl2: TIntegerArray;
  zahl3: TIntegerArray;
  MeineZahl: TIntegerArray;
begin
  ...
  MeineZahl := zahl1;
  MeineZahl[0]...
  ...
  MeineZahl := zahl2;
  ...

1:
2:
3:
4:

var
  zahl1, zahl2, zahl3, MeineZahl: array of Integer;
begin
  MeineZahl := zahl1;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

 type  TFIELD1 = ARRAY OF INTEGER;

  TYPE Tvokabel = RECORD
                   s : STRING;
                   feld : TFIELD1;
                   ort : TListBox;
                   stelle, vocRank : INTEGER;
                 end;

var
  FoVoc_ask: TFoVoc_ask;
  i, lines: Integer;
  pfad : STRING;
  Mgs: TMsg;
  zahl1 : ARRAY OF INTEGER;
  zahl2 : ARRAY OF INTEGER;
  zahl3 : ARRAY OF INTEGER;
  voc : ARRAY OF Tvokabel;



implementation


{$R *.DFM}

procedure TFoVoc_ask.setvoc;
VAR j : INTEGER;
begin
  SetLength(zahl1, LBoxSort1.Items.Count);
  SetLength(zahl2, LBoxSort1.Items.Count);
  SetLength(zahl3, LBoxSort1.Items.Count);
  SetLength(voc, LBoxSort1.Items.Count);

  FOR j := 0 TO LBoxSort1.Items.Count-1 DO
  begin
    With voc[j] DO
    begin
      s := LBoxSort1.Items.Strings[j];
      ort := LBoxSort1;
      feld := zahl1;
      {stelle := j;
      vocRank := 0;
      zahl1[j] := 0; }
    end;
  end;
end;