Einzelnen Beitrag anzeigen

Benutzerbild von mischerr
mischerr

Registriert seit: 6. Feb 2004
Ort: Konz
238 Beiträge
 
Delphi 12 Athens
 
#2

Re: CheckBox innerhalb als "unbekannter bezeichner"

  Alt 27. Jul 2004, 22:12
CheckBox1 gehört der Klasse des Forms. Du versuchst aber, sie aus einer externen procedure abzufragen.
Mache SaveMainConfig am besten zu einer Funktion der Form-Klasse, dann sollte es gehen. Also in etwa so...


Code:
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, ShellApi, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label1: TLabel;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    procedure Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    game: String;
    app: String;
    ExePath: String;
    ini: TIniFile;
    startwithwin, onlyoneexe: Integer;
    funzt: String;
    { Private-Deklarationen }
    procedure ReadMainConfig;
    procedure SaveMainConfig;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ReadMainConfig;
begin
  ExePath:=ExtractFilePath(ParamStr(0));
  ini:=TInifile.Create(ExePath+'\config.ini');
  try
    startwithwin:=ini.ReadInteger('Options','StartWithWin',2);
    onlyoneexe:=ini.ReadInteger('Options','OnlyOneExe',2);
  finally
    ini.free;
  end;
end;

procedure TForm1.SaveMainConfig;
var
  gamestart, gamefinish: Integer;
  gameprogramoption: String;
begin
   if CheckBox1.Checked:=true then startwithwin:=1 \\<-HIER
   else startwithwin:=0;                          \\<-HIER
   if CheckBox2.Checked:=true then onlyoneexe:=0   \\<-HIER
   else onlyoneexe:=0;                            \\<-HIER
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ReadMainConfig;
  if startwithwin = 1 then
    CheckBox1.Checked:= true;
  if onlyoneexe = 1 then
    CheckBox2.Checked:= true;
  app:='COD';
  ShowMessage(app);
end;

end.
Ich hoff ich hab mich nu nich vertippert...

Grüsse!
  Mit Zitat antworten Zitat