Форум: "Начинающим";
Текущий архив: 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