[AlexandrV]

Интересно а почему так можно

Код:

Script_Dynamic_Editor_Ini.WriteInteger('Project and Forms','Form1->WindowState',Byte(Form1.WindowState));

а так нет

Код:

Script_Dynamic_Editor_Ini.WriteString('Project and Forms','Form1->WindowState',String(Form1.WindowState));

Как можно тип записать как строку а не как число

[M.A.D.M.A.N.]

Ты с какой луны упал? Типы в виде числа представляются.

[AlexandrV]

А имена то нельзя например wsMinimized в виде строки получить. наверняка можно такие типы как

Код:

Type TPageSheet=(PgsCommand, PgsEvents, PgsStates, PgsActions, PgsOptions);

превратить в строку и обратно в тип

[AlexandrV]

пример нашел как такие типы перевести в строку

Код:

procedure TForm1.Button1Click(Sender: TObject);
var mypr: TPriority;
begin
mypr:=Critical;
Label1.Caption:=GetEnumName(TypeInfo(TPriority),Ord(mypr));
end;

но как их перевести в тип

[M.A.D.M.A.N.]

Не занимайся грыжей (hernia). Сереализируй в стрим да и все.

[Страдалецъ]

Чудак, да зачем такой огород городить-то с типами? Вы его для читабельности запишете в Ini как строку, затем обратно из Ini прочитаете как строку и преобразуете в тип понятный компилятору. И зачем это все делать?

[AlexandrV]

Сообщение от Страдалецъ

Чудак, да зачем такой огород городить-то с типами? Вы его для читабельности запишете в Ini как строку, затем обратно из Ini прочитаете как строку и преобразуете в тип понятный компилятору. И зачем это все делать?

А как это сделать. Может код дадите но не дыбло код.

вот это дыбло код

Код:

case Priority of
    Critical: Label1.caption := 'Critical';
    Warning: Label1.caption := 'Warning';
    Info: Label1.caption := 'Info';

А если там пару сотен имен. Надо имена перевести в строку и обратно в имя чтобы легко в ини было изменить а если делать числом то там будет не понятно какое число какое имя. иногда они с 0 начинаются а иногда с 1.

[M.A.D.M.A.N.]

Не занимайся грыже, блин. GetEnumName в цикле вызывай, если так надо.

Дыблокод:

Код:

for type := low(ttype) to high(ttype) do
  showmessage(GetEnumName(type)

[AlexandrV]

Сообщение от M.A.D.M.A.N.

Не занимайся грыже, блин. GetEnumName в цикле вызывай, если так надо.

Дыблокод:

Код:

for type := low(ttype) to high(ttype) do
  showmessage(GetEnumName(type)

Цель записать имя типа в ини чтобы легко мпрямо в ини можно было изменить стиль окна

[M.A.D.M.A.N.]

NativeXML умеет формы в xml сереализировать со всеми типами. Так, что хватит велосипедики делать.

[AlexandrV]

Я говорю тип в ини записать для того чтобы стиль формы сохранялся а также в самом ини можно было изменять стиль формы в данном случае WindowState
вот какой код сейчас

Код:

Script_Dynamic_Editor_Ini.WriteInteger('Project and Forms','Form1->WindowState',Byte(Form1.WindowState));

Минус: нельзя изменять в самом ини так как записывается в виде числа

[M.A.D.M.A.N.]

А я про что? То же самое (запись, изменение и загрузка), но уже готово, только в XML формате (который лучше чем ини)

[AlexandrV]

Ну я не хочу код с нуля переделывать если учесть что пару сотен строк кода я уже написал

[M.A.D.M.A.N.]

Сначала надо исследовать предметную область, а не бросаться писАть непойми что.