Hirdetés
- One mobilszolgáltatások
- Sony Xperia 1 V - kizárólag igényeseknek
- Szívós, szép és kitartó az új OnePlus óra
- Yettel topik
- Nothing Ear (3) - mikrofonpróba
- Bemutatkozott a Poco X7 és X7 Pro
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Hivatalos a OnePlus 13 startdátuma
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Google Pixel topik
Ú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
- Kerékpárosok, bringások ide!
- Futás, futópályák
- AMD Navi Radeon™ RX 9xxx sorozat
- Androidos tablet topic
- One mobilszolgáltatások
- Xbox Series X|S
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- exHWSW - Értünk mindenhez IS
- Battlefield 6
- További aktív témák...
- DELL Latitude 5495 (AMD Ryzen 5 PRO / 16GB DDR4 / AMD VEGA 8 / 256GB / Windows 11)
- DELL VOSTRO 3490 (Core i5--10210U / 16GB / 256GB / 14"FHD / HUN BILL/ Win11) 27% ÁFA
- Xiaomi Redmi Note 13 8/256GB fekete garanciával
- Xiaomi 15T Pro 12/512gb - Makulátlan, Euronics számla, garancia, akár beszámítással
- iPhone 15 Pro Max Spacegray 100% akkumulátorral!
- HP ProBook 650 G8 Intel i5-1145G7 15GB 512GB magyarbill 1 év garancia
- HIBÁTLAN iPhone 16 Pro Max 256GB White Titanium -1 ÉV GARANCIA - Kártyafüggetlen, 92% Akkumulátor
- 18 éve! Billentyűzet magyarítás magyarosítás. Festés vagy lézerezés és egyebek! 3 lehetőség is van.
- Samsung Galaxy A23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- HIBÁTLAN iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3828, 100% Akksi
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
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!



