Как прочитать *.bin

← →
balepa (2005-11-05 08:58) [0]

Формат такой 40 чисел(Integer) дата
Фаил создавался с помощью VB

← →
Virgo_Style © (2005-11-05 09:11) [1]

TFileStream, или file of integer

← →
balepa (2005-11-05 09:18) [2]

Сначала идет 40 чисел Integer потом Дата и т.д.
А по подробнее о TFileStream

← →
balepa (2005-11-05 09:24) [3]

В VB читается так Get #1,,Integer, Get #1,,Data (Integer число, Data объявлена как Date (Содержит Дату и время)

← →
Virgo_Style © (2005-11-05 09:38) [4]

FS:=TFileStream.Create(FileName,fmOpenRead); try for i:=0 to 39 do begin FS.Read(MyData[i].IntInfo,sizeof(Integer)); FS.Read(MyData[i].DateInfo,sizeof(TDateTime)); end; finally FS.Free; end;

Примерно так (не проверял).

MyData - массив [0..39] of MyType,
MyType = record
IntInfo:integer;
DateInfo:TDateTime;
end;

← →
balepa (2005-11-05 10:17) [5]

Что бы перевести дату в String надо использовать DateTimeToStr, тока непонял второй параметр (TFormatSettings) ? Короче как ей(DateTimeToStr) пользоваться, вроде числа не те, надо проверить дату

function DateTimeToStr(DateTime: TDateTime):String
или
function FormatDateTime(const Format: string; DateTime: TDateTime): string;

imho удобнее.

Как прочитать *.bin Найти похожие ветки