Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.041 c