VPF::Untyped параметр - Форум программистов

NieL

Дата 27.11.2008, 16:29 (ссылка)

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

Загрузка ...

Бывалый

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

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

как правильно привести Untyped-параметр в функции к нужному мне типу. Например:

Код


 type
   TValidType = (vtInt, vtBool, vtString, vtFloat);

 procedure Test(const UntypedVar; ValidType: TValidType);
 var
   I: Integer;
   B: Boolean;
   S: string;
   F: Extended;
 begin
   case VarType of
     vtInt:
       I :=
     vtBool:
       B :=
     vtString:
       S :=
     vtFloat:
       F :=
   end;
 end;

NieL

Дата 27.11.2008, 16:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Вообщем объясню, что хочу сделать: пишу ряд функций (SetInteger, SetBoolean, SetFloat, SetString, GetInteger, getBoolean, GetFloat, GetString) которые будут записывать/считывать различные значения в/из файл.

Код


procedure GetBool(var    Val: Boolean; Name: string);
procedure GetFloat(var   Val: Extended; NtfsName: string);
procedure GetInteger(var Val: Integer; Name: string);
procedure GetString(var Val: String; Name: string);

procedure SetBool(var    Val: Boolean; Name: string);
procedure SetFloat(var   Val: Extended; NtfsName: string);
procedure SetInteger(var Val: Integer; Name: string);
procedure SetInteger(var Val: String; Name: string);

Общая схема такая: Создается MemoryStream в него пишется/ читается значение и ---------- > сохраняется / считывается в файл.

Так вот чтобы в каждой функции не дублировать код создания стрима и считывания/ записи хочу написать общие функции для Set, Get, которы будут на входе получать значение, тип и записывать/ считывать в MemoryStream. Поделитель советами как такое лучше сделать.

CodeMonkey

Дата 27.11.2008, 16:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Посмотрите класс TWriter в Classes.pas.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

bems

Дата 27.11.2008, 19:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


procedure Test(const UntypedVar; ValidType: TValidType);
 var
   I: Integer absolute UntypedVar;
   B: Boolean absolute UntypedVar;
   S: string absolute UntypedVar;
   F: Extended absolute UntypedVar;
 begin
   case VarType of
     vtInt:
       //используешь I без присваивания 
     vtBool:
       //используешь B без присваивания
     vtString:
       //используешь S без присваивания
     vtFloat:
       //используешь F без присваивания
   end;
 end;

Добавлено через 10 минут и 13 секунд
хотя для твоей цели лучше так

Код


procedure Test(const UntypedVar; ValidType: TValidType);
 var
   S: string absolute UntypedVar;
   size:integer;
   p:PByte;
 begin
   p:=@UntypedVar;
   case ValidType of
     vtInt:size:=SizeOf(integer);
     vtBool:size:=SizeOf(boolean);
     vtFloat:size:=SizeOf(extended);
     vtString:begin
              p:=Pointer(s);
              size:=(Length(s)+1)*sizeOf(char);
              end;
   end;
   stream.Write(p^,size);
 end;

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

Обижено школьников: 8

NieL

Дата 28.11.2008, 12:37 (ссылка)

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

Загрузка ...

Бывалый

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

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

Большое спасибо bems. С вашей помощью теперь кое-как разобразлся с записью.
Не получается написать алгоритм считывания из файла, а конкретно не удается прочитать строку, так как ее размер ведь неизвестен. Подскажите как делать считывание строки.
Делаю так:

Код


procedure GetVal(var Val; Name: string; _Type: TVarType);
var
  I: Integer absolute Val;
  B: Boolean absolute Val;
  E: Extended absolute Val;
  S: String absolute Val;
  F: TStream;
begin
  F := TFileStream.Create(Name, fmOpenRead);
  with F do
    try
      case _Type of
      
        ntInt:
          Read(I, SizeOf(I));
        ntFloat:
          Read(E, SizeOf(E));
        ntBool:
          Read(B, SizeOf(B));
        ntString:;

      end;
    finally
      Free; 
    end;
end;

Это сообщение отредактировал(а) NieL - 28.11.2008, 12:38

CodeMonkey

Дата 28.11.2008, 12:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

NieL, посмотрите класс TWriter в Classes.pas. Там все ваши проблемы решены.

В частности, для строки нужно записывать сперва её длину, а потом содержимое. При чтении - прочитать длину, установить длину строки и в неё прочитать содержимое.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

NieL

Дата 28.11.2008, 13:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(CodeMonkey @ 28.11.2008, 12:44)

Все разобрался, Спасибо Всем за советы.

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