Vergleich Basic DATA Datentyp

[Manfred12037]

Danke----Habe es nun so probiert, u. funktioniert soweit:

procedure TForm1.Button1Click(Sender: TObject);
const
Digits: array[0..1] of Integer = (5,1);
var
a:integer;
begin
a:=Digits[0];
edit1.Text:=IntToStr(a);
end;


Aber ich muß bei Array immer genau die richtige Anzahl eingeben, zb bei 5 Elementen array[0..4]. D.H. ich muss jedesmal abzählen wieviele Daten einzugeben sind (hier z.B. 5). Basic ist zwar alt, aber in diesem speziellen Fall mit dem DATA u. Read Befehl komfortabler.
Aber vielleicht gibts doch noch etwas dies zu bewerkstelligen?