[cotseec]

Всем доброго....
Вопрос заключается в следующем:
Есть некоторая функция типа shortstring:
SomeFunction(bool_FuncParam: boolean):shortstring;
из разных мест программы в нее могут передаваться четыре переменные (Parall, Ortho, Blinding, Select), соответственно имеющие значение true or false, требуется на выходе функции получить имя входящей переменной при значении true этой входящей переменной, т.е.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function SomeFunction(bool_FuncParam: boolean):shortstring; begin    if not bool_FuncParam then Result:='Nothing' else    begin      if .........{bool_FuncParam Name as Parall} then Result:='Parall';      if .........{bool_FuncParam Name as Ortho} then Result:='Ortho';      if .........{bool_FuncParam Name as Blinding} then Result:='Blinding';      if .........{bool_FuncParam Name as Select} then Result:='Select';    end; end;   передача значения осуществляется соответственно   Memo1.Lines.Add(SomeFunction(Parall)); Memo1.Lines.Add(SomeFunction(Ortho)); Memo1.Lines.Add(SomeFunction(Blinding)); Memo1.Lines.Add(SomeFunction(Select));

Какие могут быть соображения по данному вопросу?

[lmikle]

Если идти таким путем, то никак, т.к. имена параметров внутри функции никак не соотвносятся с переменными, переданными извне.
вариант решения - передавать некоторый класс. Тогда можно получить имя класса.

Например:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type   TBaseVar = class      Value : Boolean;   end;    Parall = class(TBaseVar) end;  Ortho = class(TBaseVar) end;  ...   function SomeFunction(AVar : TBaseVar) : String; begin   Result := AVar.ClassName; end;   procedure TForm1.Button1Click(Sender: TObject); var   C : TBaseVar; begin   C := Parall.Create;   ShowMessage(SomeFunction(C));   C.Free; end;

[cotseec]

хм, в эту сторону я даже и не копал.... спасибо за подсказку,
соответственно экземплярам класса присваивают значения

Код:

1 2 3

Parall.Value:=true; Ortho.Value:=false; ...и т.п.

проверю, еще раз спасибо за помощь

[lmikle]

Да, именно так.
Я ж там написал проверку. просто попробуй и все.

[0nni]

А 3ачем вообще Boolean передвать? передавайте byte например...