kasis :: Lazarus

Lazarus (Delphi)

Vēl iesaku:

W3Schools
Krāsu palete

Pārlūku atbalsts CSS
(1), (2)

Darbs ar datnēm (failiem)

Dažkārt programmai nepieciešamos datus ērtāk ir glabāk atsevišķā teksta datnē.

Lai darbotos ar datni, varētu izšķirt sekojošus soļus:

Definējam mainīgo(-s), mūsu gadījumā - mainīgo "d" ar tipu "TextFile"
- Var d : TextFile
Pievienojam datni, minot mainīgo un datnes nosaukumu (nosaukums jāliek apostrofos)
- AssignFile(d, 'manadatne.txt')
Izvēloties vienu no komandām, atveram datni darbam
- ReWrite(d) – faktiski izveido jaunu, tukšu datni, gatavu (atvērtu) darbam;
- Reset(d) - atver datni ierakstīšanai un nolasīšanai;
- Append(d) – atver datni, lai beigās pievienotu informāciju, t.i., datnē jau esošo informāciju izdzēst nevarēs.
Nolasām jau esošo, vai ierakstām jaunu informāciju datnē
- Write(d, 'Zebra ') – ieraksta vārdu "Zebra " un kursors paliek tajā pašā rindā;
- WriteLn(d, 'strīpaina') – ieraksta vārdu "strīpaina", bet kursors pēc tam pārlec uz jaunu rindu, t.i., itkā tiktu nospiests taustiņš "Enter"
- Read(d, t) – nolasa. "t" ir string tipa mainīgais, kam tiek piešķirta nolasītā vērtība;
- ReadLn(d, t) – nolasa un pārlec rindiņu zemāk;
- Eof(d) – noderīga komanda, kas apzīmē datnē esošā satura beigas ("end of file").
Ja datne atvērta, tad beigās tā arī jāaizver.
- CloseFile(d)

Piemērs (programma izveidos jaunu datni "manadatne.txt", tajā ierakstīs lietotāja ievadīto tekstu un tad datnē esošo tekstu izvadīs lābelī):

procedure TForm1.Button1Click(Sender: TObject);
var d: TextFile; t,a: string;
begin

AssignFile(d, 'manadatne.txt');	{pievienojam datni "manadatne.txt", kas turpmāk tiks atpazīta zem mainīgā "d"}
ReWrite(d);	{atveram datni darbam, kuras esošais saturs tiek dzēsts}
Write(d, 'Adrese: ');	{Ierakstām datnē apostrofos ievietoto tekstu}
WriteLn(d, edit1.text);	{Esošā teksta "Adrese: " beigās vēl pierakstām edit1 lauciņā ievadīto tekstu un kursors pārvietojas rindiņu zemāk}
Write(d, 'Durvju kods: ');	{Papildinām datnes saturu ar apostrofos ievietoto tekstu}
Write(d, edit2.text);	{Esošā teksta "Durvju kods: " beigās vēl pierakstām edit2 lauciņā ievadīto tekstu}
CloseFile(d);	{aizveram datni}
Reset(d);	{atveram datni nolasīšanai}
a:='';	{mainīgā sākuma vērtība}
while not Eof(d) do	{Kamēr netiek sasniegtas datnes satura beigas darīt.. Faktiski cikls "noriņķos" 2 reizes}
begin
ReadLn(d, t);	{Nolasām pirmās rindiņas saturu un definējam to kā mainīgā "t" saturu}
a:=a+sLineBreak+t;	{pirmajā cikla "riņķī" "a" vērtība būs: "nekas"+kursors pārvietojas rindiņu zemāk+"Adrese: Surikātu 10 - 5"}
end;
CloseFile(d);	{aizveram datni}
Label1.caption:=a;	{kad cikls beidzies, izvadām "a" vērtību}
end;