, denne artikel inroduces to nyttige funktioner for at læse contens i en fil i en snor og en snor til en fil, læse en sag i en snor, måske er den nemmeste måde at læse fil i en snor, bruger den, loadfromfile, metode til en, tstringlist, formål og adgang til deres tekst, ejendomsret,,,,,,,, anvendelse, sysutils, klasser,,,,, funktion, loadfile (, konstant, filnavn: tfilename):, snor,,,,,,,, begynder med, tstringlist. skabe,,,, prøv,,, loadfromfile (filnavn);,, resultat: = tekst;,,, endelig fri,,,,,,,,,,,,,,,,,,,, men denne fremgangsmåde er ineffektive, for loadfromfile, belastninger filen og parses detat adskille de linjer, og så når vi bruger, tekst, ejendom, en intern metode er kaldet til at producere en snor mellem linjerne, så denne dobbelte opgave er gjort til intet, og vi får brug for mere end det dobbelte af den hukommelse, oplagring, vi faktisk har brug for (indtil vi fri, tstringlist, genstand).,,, en bedre vej, en bedre tilgang kunne bruge en, tfilestream, objekt (eller det gamle, tildele, igen, læse og tæt, procedurer) til direkte at læse indholdet af en sag i en snor.Here is the same function using ,TFileStream, that returns the content of the file whose name is passed as parameter:,,, ,uses, SysUtils, Classes;,, , , ,function, LoadFile(,const, FileName: TFileName): ,string,;,, ,begin,,, ,with, TFileStream.Create(FileName,,, fmOpenRead ,or, fmShareDenyWrite) ,do begin,,, ,try,,, SetLength(Result, Size);,, ,Read,(Pointer(Result)^, Stream.Size);,, ,except,,, Result := ''; //Deallocates memory,, Free;,, ,raise,;,, ,end,;,, Free;,, ,end,;,, ,end,;,,,, Writing a file from a string,, If we needed to save the contents of string back to disk, we can use the following procedure:,,, ,uses, Sysutils, klasser,,,,,, savefile (, konstant, filnavn: tfilename;,,, konstant, indhold:, snor,), begynder,,,,, tfilestream. skabe (filnavn, fmcreate),,,,,,,,, skrive, (point (indhold), længde (indhold), og endelig fri,,,,,,,,,,,,,,,,,,