[delphi] Integer-y do Array

Programovacie jazyky, rady, poradňa...
DomCZo
Light Star
Light Star
Používateľov profilový obrázok
Príspevky: 235
Registrovaný: 16 okt 2006, 22:49

[delphi] Integer-y do Array

Príspevok od používateľa DomCZo »

1. Poradil by mi niekto ako dostať urcite čísla do jedného array čo najjednoduchšie?

V PHP to viem jedným riadkom
$cisla = array("4", "8", "6", "44", "3");

Ale ako to spravit v Delphi?


2. Ako tento array spraviť globálny?
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Príspevok od používateľa audiotrack »

1)

Kód: Vybrať všetko

mesiace: array[1..12] of
      integer = (31,28,31,30,31,30,31,31,30,31,30,31);
2) deklaruješ to v časti public
DomCZo
Light Star
Light Star
Používateľov profilový obrázok
Príspevky: 235
Registrovaný: 16 okt 2006, 22:49

Príspevok od používateľa DomCZo »

Konecne som sa k tomu dostal..
No dal som si to do Buttonu, do var.

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
var
  mesiace: Array[1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31);
begin
end;
A vypise mi to error: Cannot initialize local variables. Co robim zle?
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Príspevok od používateľa audiotrack »

takto deklarovať môžeš tuším len globálne (nie som si istý, musel by som to skúsiť). Ak je to pole lokálna premenná, treba ho naplniť postupne
DomCZo
Light Star
Light Star
Používateľov profilový obrázok
Príspevky: 235
Registrovaný: 16 okt 2006, 22:49

Príspevok od používateľa DomCZo »

V publicu mi to napise:
';' expected but '=' found.

Ked som to namiesto do var napisal do const tak to funguje. Tak diki.
Slayter
Addict
Addict
Používateľov profilový obrázok
Príspevky: 3111
Registrovaný: 28 jan 2006, 9:19
Bydlisko: Malmö, SWE

Príspevok od používateľa Slayter »

Mas "Save All" ? Toto bol moj retardovany problem v Delphi, vzdy mi pisalo tuto chybu, az po Save All bezalo ;)
Napísať odpoveď