Hogy tudok egy szövegfájlt tömbbe írni (Pascal)?

Hibakezelés nélkül:

program project1;

uses Crt, Dos;

var inFile : file of byte;

tomb : array of byte;

DirInfo: SearchRec;

i : integer;

begin

FindFirst('project1.lpi', Archive, DirInfo);

SetLength(tomb, DirInfo.Size);

Assign (inFile, 'project1.lpi');

Reset(inFile);

for i := 0 to DirInfo.Size - 1 do Read(inFile, tomb[i]);

for i := 0 to DirInfo.Size - 1 do Write(Chr(tomb[i]));

SetLength(tomb, 0);

Close(inFile);

ReadLn;

end.

A readln függvény helyett a blockread-et használd. A string tipus helyett pedig char tömböt.

A repeat until jó lesz, csak kell egy integer is, amivel számolod a beolvasott karaktereket és egyben indexeled a char tömbödet. Ezt a változót inkrementálni kell a cikluson belül, a blockread függvény után : Inc(counter).