Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];
Внизчтение файла Найти похожие ветки
← →
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 - символ
← →
ferr © (2006-01-06 22:51) [5]string на него не реагирует.
а у мемо в Text PChar, этот тип читает до тех пор пока не встретит 0.
мне не понятна ваша затея, т.к. текстовые файлы это подкласс бинарных, -> просмотрщик текста не должен открывать бинарные файлы.
← →
Германн © (2006-01-07 01:45) [6]
> Однако если открываю не текстовый файл то вместо того что
> хотелось бы увидеть (ожидаю увидеть тоже самое что было
> бы в блокноте при открытии допустим ЕХЕ файла)
А какой смысл увидеть то, что показывает блокнот в этом случае?
Может быть лучше напишешь, что именно тебе нужно? Мало ли что там делает блокнот при открытии не свойственных ему файлов.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c