Se salvează datele într-un fișier binar
Bună ziua dragă,
La noi în domeniul informaticii, Jocurile Olimpice școlare amenință, pentru că în prezent doar am început să învăț un dolphie, dar aici m-am confruntat cu o astfel de sarcină aproximativă, care poate fi în sarcinile pentru olimpiada. Pentru dvs. va fi probabil foarte simplu, dar pentru mine este încă de neînțeles.
Textul sarcinii de probă:
Având o variabilă de șir de forma str: = "ffd8ffe000104a4649460001", care conține datele în formă hexazecimală. Iar aceste date trebuie să fie scrise într-un fișier binar astfel încât fiecare octet înregistrat să se potrivească cu valoarea hex în variabila șir reprezentată.
Asta e genul de sarcină pe care mi-a fost permis să o rezolv. Ajută-te. Voi fi foarte recunoscător dacă trimiteți sursa cu explicații, pentru a înțelege cum se face acest lucru. Mulțumesc foarte mult.
1. Dacă lungimea șirului este ciudat, adăugați caracterul "0" în partea stângă a acestuia
2. Noi trecem o linie în bucla în timp ce pe perechi de caractere. Fiecare pereche este luată ca un substring, căptușit în stânga cu un simbol "$", convertit la un număr apelând StrToInt, iar apoi acest număr este scris în fișier de octet.
Asta e tot. Și codul este pentru tine, și atunci nu va fi interesant.
mulțumesc, am realizat acest lucru, dar nu am lucrat niciodată cu scrierea fișierelor text, și există, de asemenea, binar. poate cel puțin să scrie în fișier arată? multumesc anticipat
maximka # xA0; (22.10.04 20:52) [2]
Apăsați tasta F1, în indexul pe care îl scrieți, veți primi ajutor cu un exemplu de procedură Scrieți ([var F: Text;] P1 [.P2 .Pn]);
> [2] maximă # xA0; (22.10.04 20:52)
var
# xA0; F: fișierul byte;
# xA0; Valoare: Byte;
începe
# xA0; AssignFile (F, "c: \ MyFile.bin");
# xA0; Resetați (F);
# xA0; // În valoare se scrie numărul necesar
# xA0; Scrie (F, Valoare);
# xA0; CloseFile (F)
end.
Am un delfin și nu pare să existe nici un exemplu, engleza mea este puțin tristă, așa că am vrut să înțeleg acest lucru cu explicații în limba rusă. scuza, desigur, că întrebările stupide pe care le cer, dar eu sunt un elev.
wow, multumesc mult incep. capăt
Articole similare
Trimiteți-le prietenilor: