чтение файла

← →
frezz (2006-01-06 21:59) [0]

Приветствую всех.
как мне производить чтение из файла строками по 2048 символов?
или массивом байтов.

← →
Johnmen © (2006-01-06 22:14) [1]

BlockRead+F1

← →
ferr © (2006-01-06 22:20) [2]

TMemoryStream может поможет

← →
Frezz (2006-01-06 22:40) [3]

вот смотрите
нашел тут код
procedure TForm1.Button1Click(Sender: TObject); const Size=1024; var myFile:File; Buf: array[1..Size] of Char; NumRead:dword; s:string; i:integer; begin s:=""; OpenDialog1.Execute; AssignFile(myFile,OpenDialog1.FileName); Reset(myfile,1); repeat BlockRead(MyFile, Buf,SizeOf(Buf), NumRead); if NumRead=Size then for i:=1 to size do s:=s+(buf[i]) else for i:=1 to Numread do s:=s+(buf[i]); until NumRead=0 ; CloseFile(myFile); Memo1.Text:=s; end;

Однако если открываю не текстовый файл то вместо того что хотелось бы увидеть (ожидаю увидеть тоже самое что было бы в блокноте при открытии допустим ЕХЕ файла) а всего лишь несколько символов и все

← →
ferr © (2006-01-06 22:48) [4]

там 0 - символ

string на него не реагирует.

а у мемо в Text PChar, этот тип читает до тех пор пока не встретит 0.

мне не понятна ваша затея, т.к. текстовые файлы это подкласс бинарных, -> просмотрщик текста не должен открывать бинарные файлы.

> Однако если открываю не текстовый файл то вместо того что
> хотелось бы увидеть (ожидаю увидеть тоже самое что было
> бы в блокноте при открытии допустим ЕХЕ файла)

А какой смысл увидеть то, что показывает блокнот в этом случае?
Может быть лучше напишешь, что именно тебе нужно? Мало ли что там делает блокнот при открытии не свойственных ему файлов.

чтение файла Найти похожие ветки