Файл в двоичном формате

← →
asdqwer (2002-12-08 09:27) [0]

Как открыть файл (не только текстовый) в двоичном (или хотя бы шестнадцатеричном) формате?

← →
Sha © (2002-12-08 09:32) [1]

Знаю точно, что Reset может открыть в восьмиричном :)

← →
Юрий Зотов © (2002-12-08 10:27) [2]

> asdqwer (08.12.02 09:27)

Уточните, пожалуйста, а что имеется в виду под словами "открыть файл в двоичном или шестнадцатиричном формате"?

Может, не "открыть", а "показать" все-таки?

BlockRead, BlockWrite, SaveDialog Example

var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array [1..2048] of Char; begin if OpenDialog1.Execute then { Display Open dialog box } begin AssignFile(FromF, OpenDialog1.FileName); Reset(FromF, 1); { Record size = 1 } if SaveDialog1.Execute then { Display Save dialog box} begin AssignFile(ToF, SaveDialog1.FileName); { Open output file } Rewrite(ToF, 1); { Record size = 1 } Canvas.TextOut(10, 10, "Copying " + IntToStr(FileSize(FromF)) + " bytes..."); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); end; end; end;

Хелп читать надо.

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