[Alloc]

Приветствую всех!

Подскажите, пожалуйста, как правильно считать и записать состояние чекбокса?

Есть CheckBox. Есть ini-файл в котором прописано:

Код:

[Options]
FullScreen=Yes

Как правильно записать и прочитать, так что бы CheckBox был включен или выключен, в зависимости от значения в ini-файле (Yes/No)?

С ReadBool/WriteBool - все просто.

Код:

chk1.Checked:=Ini.ReadBool('Launcher','SingleCPU',False);
Ini.WriteBool('Launcher','SingleCPU',chk1.Checked);

А как быть тут?
Будьте добры, подскажите пожалуйста.

[angvelem]

Код:

var
  St : String;
begin
  St := AnsiUpperCase(Ini.ReadString('Options', 'FullScreen', 'No'));
  chk1.Checked := St = 'YES';
...
end;

Зачем было так делать, 1/0 недостаточно?

ах да, ещё ведь и запись нужна

Код:

const
  fs : array[Boolean] of String = ('No', 'Yes')';
begin
  Ini.WriteString('Options', 'FullScreen', fs[chk1.Checked]));
...

[Alloc]

Спасибо за ответ!

Зачем было так делать, 1/0 недостаточно?

так это не моя идея) дело в том, что я пытаюсь сделать программу для настройки игры через ее ini-файл, так вот там такие значения)

как я понимаю, это большой геморрой, так как придется для каждого чекбокса делать, а их там около 17 получается....

может есть более простой вариант? не подскажите?

[angvelem]

Никакого геморроя нет. Можно организовать чтение/запись в цикле.

[icWasya]

Например так

Код:

procedure ReadCheckBox(Sender:TCheckBox;const Name:String);
var
  St : String;
begin
  St := AnsiUpperCase(Ini.ReadString('Options',Name, 'No'));
  Sender.Checked := St = 'YES';
end;
procedure WriteCheckBox(Sender:TCheckBox;const Name:String);
  const
    fs : array[Boolean] of String = ('No', 'Yes')';
begin
  Ini.WriteString('Options', Name, fs[Sender.Checked]));
end;

использование

Код:

ReadCheckBox (chk1,'FullScreen');
ReadCheckBox (chk2,'UseMouse');

[Alloc]

Благодарю всех за помощь, задача решена, все работает как надо.

[Alloc]

Еще один вопрос если позволите можно?

Как добавить в выше написанные процедуры возможность выбрать самому какой тип переключателей использовать?

вот процедура:

Код:

procedure WriteCheckBox(Sender:TCheckBox;const Name:String);

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

Код:

fs : array[Boolean] of String = ('No', 'Yes')';

вместо "No", "Yes" - свои, допустим

Код:

WriteCheckBox(chk1, 'Options','Enabled','Disabled');

хочется чтобы процедуры были универсальными а не только - "Yes","No"

заранее спасибо!

[lmikle]

Код:

procedure WriteCheckBox(Sender : TCheckBox; Name : String; const Values : Array [Boolean] Of String);
begin
...
end;
...
WriteCheckBox(chb1, 'Options',['Enabled','Disabled']);

[Alloc]

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

Код:

procedure WriteCheckBox(Sender : TCheckBox; Name : String; const Values : Array [Boolean] Of String);

выдает ошибку 'OF' expected but '[' found, не могу понять как исправить..(

[icWasya]

не могу понять как исправить

Как-то так

Код:

type
  TBoolToStringArray = array[bool] of string;
const
   ED :TBoolToStringArray = ('Disabled','Enabled');
   YN :TBoolToStringArray = ('No','Yes');
   Dig :TBoolToStringArray = ('0','1');

procedure ReadCheckBox(Sender:TCheckBox;const Name:String;const YN:TBoolToStringArray);
var
  St : String;
begin
  St := Ini.ReadString('Options',Name, YN[false]);
  Sender.Checked := CompareText(St ,YN[true])=0;
end;
procedure WriteCheckBox(Sender:TCheckBox;const Name:String;const YN:TBoolToStringArray);
begin
  Ini.WriteString('Options', Name, YN[Sender.Checked]));
end;

Код:

ReadCheckBox (chk1,'CanClick',ED);
ReadCheckBox (chk2,'UseMouse',YN);

[Alloc]

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

Как-то так

Большое Вам спасибо, теперь все работает как надо, этого я и добивался)