Delphi – Rad sa tekstualnim fajlovima

Svaki tekstualni fajl se sastoji od niza ASCII karaktera. Rad sa ovakvim fajlovima u Delphi-ju je vrlo sličan „čitanju“ i snimanju podataka sa audio kaseta. U tekstualne fajlove možemo da dodajemo nove podatke, činimo izmene nad postojećim i dr. Tekst fajlovi u stvari predstavljaju nizove karaktera koji su formatirani u linije (redove), gde je svaka linija određena znakom „end-of-line“ na kraju linije.

Da bi uopšte radili u Delphi-ju sa ovakvim fajlovima, moramo da povežemo fajl na disku sa fajl-varijablom u našem programu. Da bi ovo uradili prvo ćemo deklarisati varijablu tipa „TextFile“, i potom ćemo uz pomoće procedure „AssignFile“ dodeliti fizički fajl na disku, varijabli u programu:

var

   NekiTxtFajl : TextFile;

begin

   AssignFile(NekiTxtFajl , FileName)

…

Da napomenemo, ukoliko fajl pozvan uz pomoć „FileName“, nije u tekućem folderu, moramo navesti celu putanju do fajla na disku. Da bi učitali podatke iz tekst fajla u Delphi projekt, upotrebićemo komponentu „TMemo“ i upisaćemo samo jednu liniju programskog koda:

Memo1.Lines.LoadFromFile(‘c:autoexec.bat’)

Da bi pročitali iz fajla liniju po liniju, moraćemo da otvorimo fajl za ulaz, koristeći „Reset“ proceduru. Ova procedura otvara postojeći fajl sa nazivom dodeljenim pomoću TextFile varijable. U slučaju da fajl ne postoji na disku javiće se greška. Kada fajl otvorimo na ovaj način – resetovanjem, koristićemo instrukciju „ReadLn“ za čitanje pojedinačne linije.

…

var

   NekiTxtFajl : TextFile;

   bafer : string;

begin

   AssignFile(NekiTxtFajl, ‘c:autoexec.bat’);

  Reset(NekiTxtFajl);

  ReadLn(NekiTxtFajl, bafer);

  Memo1.Lines.Add(bafer);

  CloseFile(NekiTxtFajl);

end;

…

Procedura ReadLn, iščitava jednu liniju teksta i prelazi na sledeću. Kada završimo rad sa tekstualnim fajlovima, obavezno sledi njihovo zatvaranje pomoću procedure „CloseFile“. Slična prethodnoj proceduri „ReadLn“ je i procedura „Read„, s tim što ona kada iščita liniju pokazivač ne prebacuje na sledeću liniju. Takođe, moguće je da sadržaj jedne linije teksta dodelimo dvema varijablama odjednom:

var

   NekiTxtFajl : TextFile;

   bafer1,bafer2 : string[5];

begin

   AssignFile(NekiTxtFajl, ‘c:autoexec.bat’);

   Reset(NekiTxtFajl);

   ReadLn(NekiTxtFajl, bafer1,bafer2);

   ShowMessage(bafer1 + ‘ ‘ +bafer2);

   CloseFile(NekiTxtFajl);

end;

Da spomenemo još i funkciju „EndOfFile“ (EOF), koja sliži za proveru kraja tekstualnog fajla, tj. da spreči čitanje linija nakon krajnje linije fajla.

var

   NekiTxtFajl : TextFile;

   bafer : string;

begin

   AssignFile(NekiTxtFajl, ‘c:autoexec.bat’);

   Reset(NekiTxtFajl);

   while not EOF(NekiTxtFajl) do

    begin

       ReadLn(NekiTxtFajl, bafer );

       ShowMessage(bafer );

    end;

  CloseFile(NekiTxtFajl);

end;

Pratite Krstaricu na www.krstarica.com