AssignFile

← →
LazorenkoX © (2002-05-17 10:10) [0]

У меня есть типизированный файл. Поскольку для своей программы я использую KOL, функция AssignFile выдаёт ошибку, да и размер ЕХЕ на 10 кб увеличился. Чем я могу заменить AssignFile и если можно с примером?

← →
LazorenkoX © (2002-05-18 14:37) [1]

Спасибо за помощь :(

← →
Vladimir Kladov & Gena lebedev (2002-05-18 14:41) [2]

Самое простое:

var SL: PStrList;

SL := NewStrList;
SL.LoadFromFile( "C:\a.txt" );
...
SL.Free;

Можно с файлом:

var F: THandle;
Buffer: array[ 0..79 ] of Char;

F := FileCreate( "C:\a.txt", ofOpenRead or ofShareDenyWrite or
ofOpenExisting );
FileRead( Buffer[ 0 ], 80 );
...
FileClose( F );

Через поток:

var FS: PStream;
Buffer: array[ 0..79 ] of Char;

FS := NewReadFileStream( "C:\a.txt" );
FS.Read( Buffer, sizeof( Buffer ) );
...
FS.Free;

AssignFile Найти похожие ветки