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

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Delphi-Frage

[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 :wink:

[Chemiker]

Hallo Flips,

mit lokalen Variablen aber nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
Const
  Arr1: array[0..10] of integer= (10, 20,0,0,0,0,0,0,0,0,0);
var
  Arr: array[0..10] of integer = (10, 20,0,0,0,0,0,0,0,0,0);
begin 
  ShowMessage(IntToStr(Arr[3])); 
  Arr[3] := 42; 
  ShowMessage(IntToStr(Arr1[3])); 
end;

Bis bald Chemiker

[Flips]

AAAH Sry, tut mir echt Leid, :freak:
hab statt lokal global gelesen :wall: :oops:
Ich nehme alles zurück :!:

[Chemiker]

Hallo Flips,

halb so wild, bekomme mir jetzt bloß keine Depression.

Bis bald Chemiker

[clock50]

Wie sieht es denn mit zweidimensionalen Arrays aus? Theoretisch müsste es ja auch gehen aber wie ist die Syntax?

[Hawkeye219]

Hallo Thomas,

mit zweidimensionalen Arrays geht es so:

Delphi-Quellcode:

var
  Arr : array [0..2, 0..4] of integer = ((00, 01, 02, 03, 04),
                                         (10, 11, 12, 13, 14),
                                         (20, 21, 22, 23, 24));

Wenn du den Aufbau einmal verstanden hast, kannst du es leicht auf höhere Dimensionen erweitern.

Gruß Hawkeye

[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

[mkinzler]

Zitat:

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

Was lernen wir daraus :zwinker:

[Chemiker]

Hallo mkinzler,

immer genug Zigaretten auf Vorrat kaufen.

Bis bald Chemiker

[clock50]

Danke schon mal hab's noch nicht probiert aber ich muß noch was Fragen?
Ich habe wie ich denke schon ne ganze Menge Bücher über Delphi gelesen und besitze auch einige aber ich habe dieses mit "Arrays als Konstanten" noch nicht gefunden. Wo zur Hölle steht das drin?

[Chemiker]

Hallo clock50,

also ich habe das aus der Hilfe von Delphi, unter den Begriff „Array-Konstanten“ müsste Dir was angezeigt werden. Allerdings habe ich zurzeit kein Delphi 5 auf dem Rechner, deswegen kann ich es nicht überprüfen.

Bis bald Chemiker

[grenzgaenger]

Zitat:

Zitat von Chemiker

Hallo mkinzler,

immer genug Zigaretten auf Vorrat kaufen.

Bis bald Chemiker

oder zu rauchen aufhören <hust>

[Chemiker]

Hallo grenzgaenger,

hast Du Dich mit meiner Frau abgesprochen?
Ich identifiziere mich mit dem deutschen Staat und rauche für den Frieden und gegen den Terror.

Bis bald Chemiker

[grenzgaenger]

nööö, deine frau ist unschuldig :roll:

hatte damals mit dem rauchen aufgehört, weil es mir zu viel zeit in anspruch nahm ... :roll:

[Chemiker]

Hallo grenzgaenger,

habe auch schon öfters aufgehört zu rauchen. Zuletzt habe ich 8 Monate geschafft, aber bisher war es nie von Dauer. Mittlerweile besitze ich fast alle Literatur die es über das aufhören mit dem Rauchen gibt, habe ein 6 Wochen Seminar besucht, vor 4 Wochen habe ich es mit Akupunktur versucht, hat alles nichts gebracht.
Sagen wir mal so, theoretisch weis ich wie man mit dem Rauchen aufhört, aber Praktisch kann ich es nicht umsetzen.

Bis bald Chemiker