Array mit Werten bestücken

[clock50]

Hallo alle zusammen!

Ist es möglich ein Array so wie bei php oder Javascript mit Werten bestücken?

[mkinzler]

Meinst du vorbelegen?

[DeddyH]

Was meinst Du damit? Ein Array ohne Werte wäre ja ziemlich sinnlos.

[clock50]

Also ->

Delphi-Quellcode:

var a : array[0..10] of integer;

begin
a[1] := 10;
a[2] := 23;
...
end;

oder geht das auch etwa so?

Delphi-Quellcode:

var a : array[0..10] of integer;

begin
a(10,23,...);
end;

[Chemiker]

Hallo clock50,

wenn die Werte sich nicht ändern, kann man ein Array als Konstante deklarieren.

Delphi-Quellcode:

const
    a: array[0..10] of integer= (10, 20,0,0,0,0,0,0,0,0,0);

Bis bald Chemiker

[Flips]

Hi,
also du kannsts direkt zur Designzeit festlegen:

Delphi-Quellcode:

var
Arr : array [1..5] of integer = (10,15,20,25,30);

Oder zur Laufzeit:

Delphi-Quellcode:

var
Arr : array [1..5] of integer = (10,15,20,25,30);
[...]

procedure TForm1....(Sender: TObject);
begin
Arr[1] := 10;
Arr[2] := 15;
Arr[3] := 20;
Arr[4] := 25;
Arr[5] := 30;
end;

//Roter kasten? oO

[clock50]

Ich danke euch, genau das habe ich gesucht. Mir war so als hätte ich das schon mal gesehen aber ich wuste nicht wo.
Also noch mal danke!

[Chemiker]

Hallo Flips,

das Funktioniert aber nicht mit lokalen Variabeln und Ergonomischer ist es ein Array mit 0 anzufangen.

Bis bald Chemiker

[Flips]

Also bei mir funktioniert folgender Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows {...}

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  {...}
  end;

var
  Form1: TForm1;
  Arr : array [0..5] of integer = (10,15,20,25,30,35);
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Arr[3]));
Arr[3] := 42;
ShowMessage(IntToStr(Arr[3]));
end;

end.

Und mit der 0 haste natürlich Recht