Несоответствие типов

[nusik]

Такой вопрос, мучает меня давно...
имеется строка
str:='bsSizeable';
Возможно ли присвоить str как-нить Form1.BorderStyle-у , как если бы я выполнил след. оператор- Form1.BorderStyle:=bsSizeable;:conf used:
Form1.BorderStyle:=str; - не работает оно и понятно...

bsSizeable-имя константы
str - имя константа в значении которого лежит имя другой константы
иначе говоря значение str надо воспринимать как имя другой константы.
Спасибо.

[EugeneIsmatulin]

а так пробовал

procedure TForm1.Button1Click(Sender: TObject);
var
  str : TFormBorderStyle;
begin
  str:= bsDialog;
  Form1.BorderStyle:= str;
end;

[nusik]

Сообщение от EugeneIsmatulin

а так пробовал

procedure TForm1.Button1Click(Sender: TObject);
var
  str : TFormBorderStyle;
begin
  str:= bsDialog;
  Form1.BorderStyle:= str;
end;

напоминаю
str : string;

[Ntlegend]

а чем простой оператор if не подходит??

var
  str : string;
******************

procedure TForm1.Button1Click(Sender: TObject);
begin
  if str='bsSizeable';
    then  Form1.BorderStyle:= bsSizeable;
end;

[nusik]

if str='bsSizeable';
then Form1.BorderStyle:= bsSizeable;

1)можно использовать только str и свойтсво Form1.BorderStyle
2) и еще известно что str='bsSizeable'
Используя вышеук. пункты надо добиться результата как если бы мы написали:
Form1.BorderStyle:= bsSizeable;
мы не знаем про константу bsSizeble...
есть только str со значением 'bsSizeable'.
Вариант
Form1.BorderStyle:= str; не катит...
Надеюсь хоть сейчас понятно написал.

[Evgeniy26]

Может так пойдет:

var
  str: String;
  P: Pointer;
begin
 str := 'bsNone';
 p := @str;
 Form1.BorderStyle := TFormBorderStyle(p^);

или:

var
  str: String;
begin
 str := 'bsNone';
 Form1.BorderStyle := TFormBorderStyle(Pointer(str)^);

[Ring0Sn]

Сообщение от Evgeniy26

или:

var
str: String;
begin
str := 'bsNone';
Form1.BorderStyle := TFormBorderStyle(Pointer(str)^);

а лутче сразу так:

var
  str: String;
begin
 str := 'bsNone';
 Form1.BorderStyle := TFormBorderStyle(Pointer($FFFFFFFE)^);

будет еще веселее.

[BOBAH13]

Я считаю что лучшее решение

const
  TFormBorderStyleStr: array[TFormBorderStyle] of String =
    ('bsNone', 'bsSingle', 'bsSizeable', 'bsDialog', 'bsToolWindow', 'bsSizeToolWin');

function FormBorderStyleToStr(const Value: String): TFormBorderStyle;
var
  i: TFormBorderStyle;
begin
  Result := bsNone;
  for i := Low(TFormBorderStyleStr) to High(TFormBorderStyleStr) do
  if SameText(TFormBorderStyleStr[i], Value) then
  begin
    Result := i;
    Break;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := FormBorderStyleToStr('bsSizeable');
end;

[Stilet]

Такой вопрос, мучает меня давно...

Прекращай мучаться. в таком виде как ты хочеш не выйдет.
Это все равно что жарить яичницу в бейсболке.
Луче обьясни для чего такие извраты.

[Evgeniy26]

Сообщение от Ring0Sn

а лутче сразу так:

var
  str: String;
begin
 str := 'bsNone';
 Form1.BorderStyle := TFormBorderStyle(Pointer($FFFFFFFE)^);

будет еще веселее.

Было сказано:

и еще известно что str='bsSizeable'