Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: CL | DM;

Вниз

Как прочитать *.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) пользоваться, вроде числа не те, надо проверить дату


 
Virgo_Style ©   (2005-11-05 11:00) [6]

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

imho удобнее.



Страницы: 1 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
14-1130000776
Дельфятник
2005-10-22 21:06
2005.11.20
Подскажите, пожалуйста, как устанавливать dpk-файлы в Delphi.


2-1130438398
Mr.jack
2005-10-27 22:39
2005.11.20
QReport албомный


2-1131100180
JBL
2005-11-04 13:29
2005.11.20
Boolean to Variant


14-1130687932
Kolan
2005-10-30 18:58
2005.11.20
Как написать плагин для FierFox


14-1130665217
Piter
2005-10-30 12:40
2005.11.20
3gp в AVI