Nike.MyForum.ro :: [Delphi]Citire fisier text (tip)

Nike.MyForum.ro
Nike Forum

FAQ

Cautare

Membri

Grupuri

Inregistrare

Profil

Mesaje private

Autentificare

[Delphi]Citire fisier text (tip)

Pagina de start a forumului Nike.MyForum.ro -> Delphi

Subiectul anterior :: Subiectul urmator

Autor

Mesaj

Nike
Administrator

Data inscrierii: 07/Ian/2009
Mesaje: 36

Trimis: 15/01/2009 20:27 Titlul subiectului: [Delphi]Citire fisier text (tip)

Citirea fisierelor text, in mod normal, se face in felul urmator:

Code:

Cod:

var F : Text;
S : String;
...
AssignFile(F, 'nume_fisier.txt');
Reset(F);

While Not EoF(F) Do
Begin
ReadLn(F, S);
{procesari asupra liniei tocmai citite}
End;

CloseFile(F);

...E o solutie functionala, ramasa inca din momentul Pascalului. Recent, totusi, am observat niste diferente destul de mari de viteza daca incarc fisierul intr-un TStringList, iar procesarile le fac direct in memorie (bineinteles, ma refer la fisiere text de marime sesizabila )

Codul, mai jos :

Code:

Cod:

var ST : TStringList;
i : Integer;
...
ST := TStringList.Create;
ST.LoadFromFile('nume_fisier.txt');

For i := 0 To ST.Count - 1 Do
{procesari asupra liniei curente}

FreeAndNil(ST);

...Nu uitati sa goliti StringList-ul, fiindca va veti trezi cu niste leak-uri de memorie. Cel mai sigur ar fi utilizarea unui bloc try ... finally, ca in exemplul de mai jos:

Code:

Cod:

ST : TStringList;
...
begin
try
ST := TStringList.Create;
...
{procesari}
...
finally
FreeAndNil(ST);
end;
end;

Sus

Afiseaza mesajele pentru a le previzualiza:

	Pagina de start a forumului Nike.MyForum.ro -> Delphi	Ora este GMT + 2 ore
Pagina 1 din 1

Mergi direct la:

Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum