Know Intuit, tipul de curs TStringList

Lucrul cu foldere

În Lazăr, există mai multe funcții și proceduri utile pentru lucrul cu diferite folder (director) pe care le puteți utiliza în programele dumneavoastră. Să-i studiem. Dacă se dorește, puteți crea o aplicație simplă, cu un singur buton TButton pe formular. Genera procedura OnClick la ea, și în această procedură poate verifica exemplele discutate mai jos, la rândul său.

GetDir - întoarce folderul curent în parametrul de antrenare specificat. Există două opțiuni: numărul de disc (număr întreg), precum și numele unei variabile de text în cazul în care se va înregistra rezultatul funcției. Rețineți că numerotarea începe cu un disc, acesta va conduce A. prima unitate hard disk C: are numărul 3. Dacă specificați un număr de disc 0, acesta va afișa informații despre dosarul curent al discului curent. Pe Linux și alte sisteme Unix, numerotarea unitate va fi ignorată. Modulele funcționale descrise în sistem și SysUtils. pentru că este suficient dacă este conectat unul dintre ele. Exemplu de utilizare:

Chdir - Procedura, face curentul specificat în directorul de parametri. Procedura descrisă în modulele de sistem și SysUtils. Pentru a-l utiliza, pur și simplu conectați unul dintre ele. Exemplu de utilizare:

SetCurrentDir - funcția. Aceasta face ca parametrul specificat în directorul curent și returnează true în caz de succes, sau fals. în cazul în care apare o eroare (de exemplu, directorul specificat nu există). Funcția este descrisă în unitatea SysUtils. Exemplu de utilizare:

CreateDir - funcția. Creați folderul de parametri. Daca va avea succes, returnează adevărat. în caz de eșec - Fals. Eșecul se poate întâmpla în cazul în care nu există drepturi de a crea un dosar, de exemplu, discul este read-only, sau există deja dosarul. Funcția este descrisă în unitatea SysUtils. Următorul exemplu va fi de succes (cu excepția cazului în desigur, puteți crea un folder la toate), în primul apel, și fără succes ulterioare, deoarece acest dosar vor deja:

ForceDirectories - funcția. creează directorul specificat și tot dosarul lipsă. Daca va avea succes, returnează adevărat. în caz de eșec - Fals. Funcția este descrisă în unitatea SysUtils. În acest exemplu, discul C: va fi creat directorul MyNewDir. și în ea - 123 Folder:

Rmdir - Procedura elimină parametrul locația specificată. Spre deosebire de RemoveDir. Ea nu se întoarce nici o valoare și nu poate șterge directorul curent. Când încercați să ștergeți un director non-existente cauzează o eroare a programului, așa că trebuie să se aplice numai în legătură cu DirectoryExists. pentru a evita erorile de neplăcute. Și este întotdeauna mai bine să utilizați RemoveDir. Exemplu de utilizare:

Vă mulțumim pentru cursul minunat!

Munca independentă №2 compila modul MyCript.pas (Sistem de operare: Windows 7 x64, Lazarus 1.4 Win64) a emis o eroare în codul de asamblare

mycript.pas (54,5) Eroare: Asm: [împinge reg32] combinație de invalid opcode și operanzi
mycript.pas (95,5) Eroare: Asm: [pop reg32] combinație nevalidă de Opcode și operanzi

Am înțeles că cursul este gata pentru 32-bit sistem de operare, dar ce se întâmplă în cazul sistemelor pe 64 de biți?

Handlerele FileCreate elemente din meniu și FileOpen, precum și închiderea handler forma OnClose - în aceste trei proceduri conțin același cod

le înainte de a crea noul text>
în cazul în care începe apoi Memo1.Modified
// daca utilizatorul este de acord pentru a salva modificările:
dacă MessageDlg ( 'Save As'
„Fișierul curent a fost modificat. Salvați modificările?
mtConfirmation, [mbYes, mbNo, mbIgnore], 0) = mrYes apoi
FileSaveClick (Sender);
se încheie; // dacă

Dați-mi voie să vă întreb: nu ar fi mai bine să facă acest cod într-o procedură separată, de exemplu - sub forma unui eveniment handler OnCloseQuery? Din câte îmi amintesc de experiența Delphi, numesc această procedură în sine nu ar trebui să conducă la închiderea formularului. Acest lucru înseamnă că acesta poate fi utilizat în procedurile de curățare Memo1 și citirea dintr-un fișier. Sau în Lazăr nu poți face?