VPF::как записать Variant в файл? - Форум программистов

urix

Дата 12.4.2006, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 26.12.2005

Репутация: нет
Всего: 1

например:

Код


var
  f:File;
  procedure Write_(s:Variant);
  var
    ts:string;
    ti:integer;
  begin
    if VarType(s) and varTypeMask=varString then begin
      ts:=s;
      if length(ts)>0 then
        BlockWrite(F,ts[1],length(ts));
    end else
    if VarType(s) and varTypeMask=varInteger then begin
      ti:=s;
      BlockWrite(F,ti,sizeof(ti));
    end;
  end;
begin
  AssignFile(f,Application.ExeName+'.tmp');
  Rewrite(f,1);
  Write_(5);
  Write_('xxx');
  CloseFile(F);
end;

Наверняка есть вариант более правильный? (чтоб не описавать процесс для каждого типа)

Yanis

Дата 12.4.2006, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Мне кажется всё таки придётся описывать для каждого типа. Что то вроде:

Код


  case VarType(s) of
    varInteger: { реализация записи } ;
    varString: { реализация записи } ;
  end;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »