| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как прочитать *.bin [D7, Win95/98, WinXP]
balepa © (2005-11-05 08:58:00)Формат такой 40 чисел(Integer) дата
Фаил создавался с помощью VB
Virgo_Style (2005-11-05 11:00:00) [1]function DateTimeToStr(DateTime: TDateTime):String
или
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
imho удобнее.
balepa (2005-11-05 10:17:00) [2]Что бы перевести дату в String надо использовать DateTimeToStr, тока непонял второй параметр (TFormatSettings) ? Короче как ей(DateTimeToStr) пользоваться, вроде числа не те, надо проверить дату
Virgo_Style (2005-11-05 09:38:00) [3]
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 09:24:00) [4]В VB читается так Get #1,,Integer, Get #1,,Data (Integer число, Data объявлена как Date (Содержит Дату и время)
balepa (2005-11-05 09:18:00) [5]Сначала идет 40 чисел Integer потом Дата и т.д.
А по подробнее о TFileStream
Virgo_Style (2005-11-05 09:11:00) [6]TFileStream, или file of integer
| |
