Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

Как прочитать *.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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.057 c