| Autor |
Beitrag |
Lioba
Hält's aus hier
Beiträge: 7
|
Verfasst: So 13.03.05 17:15
Hi! ich habe ein Problem mit dem Füllen eines Arrays. Ich habe in der Delphihilfe kein Beispiel gefunden wie man einen Array mit meheren Werten aufeinmal füllen kann. ich habe das jetzt so gemacht, nach dem zusammenklauben von Codeschnipseln, aber es funktioniert nicht. Kann mir einer zeigen wie es richtig geht?
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| function TForm1.DaysInAMonth(year, month: integer): integer;
VAR Tage : array[1..12] of Integer;
begin
Tage[1..12] of Integer :=
(31,28,31,30,31,30,31,31,30,31,30,31);
end; | Moderiert von  Christian S.: Topic aus Windows API verschoben am So 13.03.2005 um 17:17
|
|
retnyg
 
Beiträge: 2754
SNES, GB, GBA, CPC, A500, 486/66, P4/3.0HT: NintendOS, AmigaOS, DoS
Delphi 5, Delphi 7
|
Verfasst: So 13.03.05 17:25
deklariere das am einfachsten als konstante:
Delphi-Quelltext
1:
| const Tage = (31,28,31,30,31,30,31,31,30,31,30,31); |
ansonsten kannst du so auf einen array zugreifen: Tage[1] := 31;
es geht aber auch so var Tage : array[1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31);, allerdings nur im globalen VAR-Abschnitt, also nicht in demjenigen einer prozedur. _________________ es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...
|
|
delfiphan
Beiträge: 2684
Erhaltene Danke: 32
|
Verfasst: So 13.03.05 17:29
So, ist dann aber eine Konstante.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| function TForm1.DaysInAMonth(year, month: integer): integer;
Const
Tage : array[1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31);
begin
end; |
Übrigens: Die Funktion musst du nicht neu erfinden; die gibt es schon in DateUtils.
|
|
Lioba 
Hält's aus hier
Beiträge: 7
|
Verfasst: So 13.03.05 17:42
Super, vielen Danke für eure Hilfe ich nehme die Const-Variante! *freu* ^^
|
|
|
