- Honor Magic6 Pro - kör közepén számok
- Milyen okostelefont vegyek?
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- iPhone topik
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Samsung Galaxy A35 5G - fordulópont
- Redmi Note 13 4G
- Garmin Instinct – küldetés teljesítve
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Poco F7 Pro - jó, de az amatőr sem rossz
Új hozzászólás Aktív témák
-
Prego
senior tag
Dinamikus tömböt szeretnék átadni:
procedure TForm1.Tombfeltolt;
var i,Tombhossz:integer;
begin
Randomize;
Memo1.Lines.Clear;
Tombhossz := Random(100);
Memo1.Lines.Add(IntToStr(Tombhossz)+' számú elemű tömb létrehozva');
SetLength(T,Tombhossz);
for I := low(t) to high(t) do
begin
T[i] := Random(1000);
MEmo1.Lines.Add(IntToStr(T[i]));
end;
MEmo1.Lines.Add(IntToStr(i)+' elem feltöltve');
end;procedure TForm1.Button2Click(Sender: TObject);
var Tomb:Array of Integer;
begin
Tombfeltolt(Tomb);
end;SetLength-nél kiírja fordításnál hogy Incompatible types. Ez csak egy példaprogi, az eredetiben a Tombfeltölt egy másik Unitban van, tehát nem tudom megadni globális változóként.
Új hozzászólás Aktív témák
- AMD Radeon RX 7900 XT 20GB XFX Speedster MERC310 Garanciás!
- Playstation 5 Slim Disc Edition 1TB, újra fémpasztázva, 6 hó garanciával, Bp-i üzletből eladó!
- CANON Objektív ZOOM Lencse EF-S 18-55mm 1:3.5-5.6 IS / 58
- Chieftec CTG-500-80P 500W 80+ minősítésű ATX tápegység
- Gigabyte GA-H110M-S2H (rev: 1.0 LGA 1151 alaplap, + i5-6600 CPU, + Garancia!
- Honor 200 256GB,Újszerű,Dobozával, 12 hónap garanciával
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3464, 96% Akkumulátor
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS H510M i5 10400F 32GB DDR4 512GB SSD RX 6600XT 8GB ZALMAN M4 Cooler Master 650W
- Apple iPhone 14 Stílusos megjelenés, megbízható teljesítmény- Használt, karcmentes 3 hónap gari!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



