Hirdetés
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- Pitterix: Gyógytorna
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- Gép1: Renault Kangoo vizhűtő ventilátor fokozatok
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sziku69: Szólánc.
- GoodSpeed: Egy bihari a Hajdúságban
-
LOGOUT

Új hozzászólás Aktív témák
-
Nagytoll
senior tag
Hello!
Kéne egy kis tipp Pascalban. A lényeg, hogy egy nagy txt fájlt szétdarabolok x darab kicsi fájlra. A program úgy néz ki, hogy megnyitom olvasásra a nagy txt-t, majd belül egy ciklusban mindig nyitok/létrehozok egy új txt fájlt amibe adatot rakok. Az új txt fájl neve mindig változik ezért mindig új fájl jön létre.
A problémám, hogy a Format parancs ezt a hibát dobja, ha az én Stringemet próbálom megetetni veleAn unhandled exception occurred at $00010C33:
EInOutError: Unknown Run-Time error : 092
$00010C33Itt pedig maga az új TXT csinaló kódrészlet:
Assign(g, Format('%s.txt', [name]));
Rewrite(g);
Writeln(g, bs);
akt := akt^.kov;
while (bs <> akt^.bs) and (not eof(f)) do
begin
readln(f,bs);
Writeln(g, bs);
end;
Close(g);A lényeg az Assign(), itt van a hiba. A format működik más adattípusra, de még más stringre is, csak az enyémre nem, ergo az enyémmel lesz a gond, de fogalmam sincs mi. Az én stringjeim szimpla nevek amikről leszedtem a felesleges előtte/mögötte levő adatokat.
Példa String:6. Constantini Marco 24950
Ami lesz belőle miután megkopasztom:
Constantini MarcoMár gugliztam mindenfelé, de erről a 92-as hibakódról nem találatam sehol semmit, még említést se
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Új OEM INTEL XEON E-1241V3/E-1270V3
- Eladó Sony CS-széria házimozi szett hibátlan működéssel, megkímélt állapotban
- Szép! Lenovo Thinkpad T14 G3 Golyóálló Üzleti Érintős Laptop 14" -50% i5-1250P 12Mag 16GB/512GB FHD+
- Lenovo ThinkPad L480 i5-7300u / 14" FHD IPS / 8GB / 256GB m.2 SSD / jó akku /
- PRÉMIUM WHITE PC - 9800X3D / 9070 XT Hellhound Spectral White OC / ASRock X670E Taichi Carrara (L)
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- Sennheiser MOMENTUM 4 fejhallgatók (több darab akár, rendelésre)
- AKCIÓ! Microsoft Surface 5 13,5 notebook - i5 1235U 8GB RAM 256GB SSD Intel Iris Xe IGP 27% áfa
- iKing.Hu - Apple iPhone 14 Stílusos megjelenés, megbízható teljesítmény
- Samsung Galaxy A55 5G / 8RAM 256GB / Gyárifüggetlen / 12 Hó Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő


