- Android alkalmazások - szoftver kibeszélő topik
- Fotók, videók mobillal
- Motorola Edge 40 - jó bőr
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Felpúposodott egy Galaxy Ring, a Samsung besegített
- Íme, a Moto X70 Air, vagyis Motorola Edge 70 minden oldalról
- Honor 200 Pro - mobilportré
- Samsung Galaxy S23 Ultra - non plus ultra
- Motorola Edge 50 Neo - az egyensúly gyengesége
Új hozzászólás Aktív témák
-
GodHeart
senior tag
válasz
Blade!!! #780 üzenetére
lehet hülyeséget írok, de nekem ez volt a hiba. ma fél órám ment rá
Szal akár írsz a fájba akár nem mindig be kell csukni. pl rewrite-al a szöveges fájlba írsz valamit, utána close-al bekell csuknod, különben valójában nem fog írni bele semmit, vagy a jó ég tudja, de a léyneg, hogy a fájl üres marad. mondom csak egy lehetőség, de nekem ez volt a hibám!
Viszont nekem is lenne kérdésem
Szóval adott egy olyan txt fájl, amiben nem összefüggő szövegt van, hanem mondjuk enter miegymás is található a fájlban. Namost ugye ezt beolvasva csak az első sort olvassa be a pascal, ha egy sima a : string változóba teszem. Ezért arra gondoltam, hogy charakterenként egy 2D-s tömbbe fogom beolvasni, onnan mit kezdek vele még nem tudom, de most ez tűnik a legjobb gondolat tovább folytatásnak. Viszont! Mikor dekralálni szeretném a 2D-s tömbet, azaz: q : array[i1..i15,k1..k15] of char vagy string; akkor az i1-nél elakad és undefinied akármit írni ki. Pedig itt még nagy gond nem igen lehet, de nem bírok rájönni.. a könyvből amiből tanulok így van, és nem értem miért nem megy! -
Drótszamár
őstag
válasz
Blade!!! #780 üzenetére
Húú de régen voolt már pascal.
Write(f1,r1);
nem kéne ,1 tehát Write(f1,r1,1);
ha nem akkor sorry a hülyeségért.
with r1 do
begin
Write('Program neve: '); ReadLn(pn);
Write('CD vagy DVD? '); ReadLn(cdvd);
Write('A program m‚rete: '); ReadLn(meret);
Write('Beszerz‚s d tuma: (EEHHNN) '); ReadLn(datum);
end;
Write(f1,r1);
ezt meg így csinálnám a helyedben.
[Szerkesztve]
Új hozzászólás Aktív témák
- Android alkalmazások - szoftver kibeszélő topik
- Futás, futópályák
- sziku69: Szólánc.
- Minden, ami hőszivattyú
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Mibe tegyem a megtakarításaimat?
- Vezetékes FÜLhallgatók
- Fotók, videók mobillal
- exHWSW - Értünk mindenhez IS
- Kazy Computers - Fehérvár - Megbízható?
- További aktív témák...
- Apple iPhone 13 Pro Max 512GB,Újszerű,Adatkabel,12 hónap garanciával
- Ventilátorok 120/140mm és tápkábel modding kitűnő árakon!
- EREDETI NINTENDO Pokemon Go Plus autocatcher dobozban eladó
- HIBÁTLAN iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3287
- BESZÁMÍTÁS! Asus B550M R5 5600 32GB DDR4 500GB SSD RTX 5060 Ti 12GB Rampage SHIVA Gigabyte 650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest