I use this function to read a file into a string: function ReadFile(const FileName: TFileName): String; var InputFile: THandle; FileSize, BytesRead: Integer; Buffer: String=''; begin try InputFile := FileOpen(FileName, fmOpenRead); if InputFile = -1 then begin WriteLn(Format('Error opening file "%s".', [FileName])); Halt; // Exit? end;
FileSize := FileSeek(InputFile, 0, fsFromEnd); SetLength(Buffer, FileSize); FileSeek(InputFile, 0, fsFromBeginning); BytesRead := FileRead(InputFile, Buffer[1], FileSize); if BytesRead < FileSize then begin WriteLn(Format('Error reading file "%s".', [FileName])); Halt; // Exit? end; Result := Buffer; finally FileClose(InputFile); end; end; On 6 Oct 2020, at 09:25, Luca Olivetti via fpc-pascal <fpc-pascal@lists.freepascal.org> wrote: El 6/10/20 a les 9:01, Michael Van Canneyt via fpc-pascal ha escrit: > A simple filecreate, allocate buffer, fileread, fileclose will probably be > easiest. Lazarus has a ReadFileToString in fileutil. Bye -- Luca _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal