Adatok mentése egy bináris fájlt
Adatok mentése egy bináris fájlt
Szia Kedves,
Mi Informatikai Diákolimpia fenyeget iskolába, én még mindig csak a tanulás Delphi, de szembe ilyen rejtvényeket példaértékű, ami lehet egy küldetés az olimpiára. Mert, akkor valószínűleg nagyon egyszerű, de nekem ez még általában érthetetlen.
Példa szöveges feladatok:
stringovaya adott változó típusa str: = „ffd8ffe000104a4649460001”, amely tartalmazza az adatokat hexadecimális. Ezeket az adatokat úgy kell megírni, egy bináris fájlt úgy, hogy minden rögzített byte akár hexadecimális értéket a nyújtott stringovoy változó.
Itt egy feladat Kaptam poreshat. Segíts kérlek. Azt nagyon hálás lenne, ha elképzelni a forrás, és kifejtette, hogy tudtam, hogyan kell csinálni. Köszönöm szépen.
1. Ha a string hossza - páratlan, add hozzá a bal oldali a „0” szimbólumnak
2. Pass egy karaktersorozatot while pár. Minden pár vesszük részkarakterláncként, párnázott a baloldali szimbólum „$” alakítjuk a hívások számát StrToInt majd ez a szám van írva, hogy a fájl byte.
Ez minden. A kód - ez a magad, és hogy érdekes lesz.
Köszönöm, megértettem, de én még soha nem dolgozott a rekord a szöveges fájl, de van még bináris. legalábbis azt mutatják, egy bejegyzést a fájlt? Előre is köszönöm
maximka # XA0; (22.10.04 20:52) [2]
Nyomja F1, az index nyomtatásához write, kapnak segítséget például az eljárási Write ([var F: szöveg;] P1 [. P2 Pn.]);
> [2] maximka # XA0; (22.10.04 20:52)
var
# XA0; F: iratai Byte;
# XA0; Érték: Byte;
kezdődik
# XA0; AssignFile (F, "c: \ MyFile.bin");
# XA0; reset (F);
# XA0; // Az Érték felvenni a számot
# XA0; Write (F, érték);
# XA0; CloseFile (F)
végén.
I delfi7, és úgy tűnik, nincs példa, van egy kicsit szomorú az angol, ezért akartam a jegyzeteket az orosz kitalálni. sajnálom persze, hogy kérje hülye kérdések, de én vagyok a tanítványa vsegolish.
Vooo, spasibochki nagy kezdődik. vég