Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.043 c
10-1107741402
Сергей Александров
2005-02-07 04:56
2005.11.20
COM Server&Client (почти по Тенцеру)


5-1103106046
bk
2004-12-15 13:20
2005.11.20
Коллекция в коллекции...


14-1130250617
Hamertime
2005-10-25 18:30
2005.11.20
Пррверьте пожалуйста есть ли ошибки


2-1130848978
Monah
2005-11-01 15:42
2005.11.20
Разрешение экрана и форма


14-1130153952
Андрей Жук
2005-10-24 15:39
2005.11.20
Требуется программист в Харькове





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский