Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

передать в функцию переменную любого типа   Найти похожие ветки 

 
koha ©   (2007-02-20 17:08) [0]

Решил сделать функцию:
function INIWrite(Section: String; Value: String; Param: "Любой Тип"; VAL_TYPE: TValueType): Boolean;

Возникла проблема: Какой ти нужно использовать?

Сод в самой функции:
INI:=TIniFile.Create(CurPath+"FileSetup.lst");
     case VAL_TYPE of
       VAL_STR : INI.WriteString(Section,Value,Param);
       VAL_BOOL: INI.WriteBool(Section,Value,Param);
       VAL_INT : INI.WriteInteger(Section,Value,Param);
     end;


 
stone ©   (2007-02-20 17:09) [1]

Variant


 
Сергей М. ©   (2007-02-20 17:14) [2]


> Какой ти нужно использовать?


Какой нужно, такой и используй.

Для стандартных - variant.
Для нестандартных - Myvariant


 
evvcom ©   (2007-02-20 17:17) [3]

Причем при использовании Variant, необходимость в VAL_TYPE: TValueType сразу отпадает.


 
koha ©   (2007-02-20 17:28) [4]

Испльзовал Variant возникает ошивка с типом Boolean

INIWrite(LVProg.Selected.Caption,Enabled,True,VAL_BOOL);

Вот формат функции:
function INIWrite(Section, Value: String; Param: Variant; VAL_TYPE: TValueType): Boolean;


 
stone ©   (2007-02-20 17:31) [5]


> Испльзовал Variant возникает ошивка с типом Boolean
>
> INIWrite(LVProg.Selected.Caption,Enabled,True,VAL_BOOL);
>

Обманываешь, ошибка в другом типе.


 
koha ©   (2007-02-20 17:31) [6]


> evvcom ©   (20.02.07 17:17) [3]
> Причем при использовании Variant, необходимость в VAL_TYPE:
>  TValueType сразу отпадает.


- Без нее, надеюсь, ни как не обойтись.


 
koha ©   (2007-02-20 17:42) [7]


> stone ©   (20.02.07 17:31) [5]
</I
> Обманываешь, ошибка в другом типе.

>

Да точно в другом тибе, вот я балда, взял  и обьявил:

const
    enabled = "enabled";

//.................................
А затем вызвал:
INIWrite(LVProg.Selected.Caption,Enabled,True,VAL_BOOL);

- оно и глючело, бывает же такое?



Страницы: 1 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
6-1158902135
Николас
2006-09-22 09:15
2007.03.11
Серьезный TCP сервер.


15-1171454450
DillerXX
2007-02-14 15:00
2007.03.11
А почему, когда новички спрашивают...


15-1171576578
Goric
2007-02-16 00:56
2007.03.11
Shell в Windows


5-1149513099
Gleb
2006-06-05 17:11
2007.03.11
Подскажите как в компоненте TTreeView через edit1.text добавить н


15-1171347584
zdm
2007-02-13 09:19
2007.03.11
Win2003 Server ProblemID