Главная страница
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.48 MB
Время: 0.034 c
3-1128617563
Michael5
2005-10-06 20:52
2005.11.20
Скролл "колесиком" в DBGrid работает только в видимой части грида


3-1128930084
alol
2005-10-10 11:41
2005.11.20
ado и as400


2-1130834702
бедный студент
2005-11-01 11:45
2005.11.20
Перетаскивание фигуры


2-1131126873
ALex11
2005-11-04 20:54
2005.11.20
Модальное окно


2-1131189872
Kostafey
2005-11-05 14:24
2005.11.20
Программа то работает, то не работает на разных PC