"Ungültige Zeigeroperation" beim Ändern des CheckBox-Status

[Tyler]

Hallo,

mich beschäftigt gerade folgende Routine, die den Status einer Checkbox aus einer INI-Datei lesen soll:

Delphi-Quellcode:

  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\init.ini');
  ed_Pfad.Text := ini.ReadString('SAVE', 'Quelle', 'Pfad zur Quelldatenbank');
  ed_Ziel.Text := ini.ReadString('SAVE', 'Ziel', 'Name der Zieldatenbank auf dem MySQL-Server');

  s := ini.ReadInteger ('SAVE', 'Autostart', 0);
  if s = 0 then cb_autostart.State := cbUnChecked
    else cb_autostart.State := cbChecked;
  s := ini.ReadInteger ('SAVE', 'DeleteZiel', 0);
  if s = 0 then cb_DelZiel.State := cbUnChecked
    else cb_DelZiel.State := cbChecked;

  ini.Free;

Das führt zu der Fehlermeldung der Klasse EInvalidPointer:
"Ungültige Zeigeroperation"
Breakpoint steht nach "Application.Run", also nicht direkt auf der obigen Routine, die im OnCreate einer Form läuft.

Was ich bereits versucht habe:

- die Routine ins OnPaint oder OnShow-Ereignis verlegt
- ursprünglich wurde direkt ein String aus der Ini gelesen, und in einen Boolean umgewandelt und so an die Eigenschaft "cb_Autostart.Checked" übergeben

Weiss jemand Rat? Ich bin ehrlich gesagt n bissel verzweifelt

danke
tyler

[Sharky]

Hai Tyler,

es wundert mich das Du den Code überhaupt Comilier kannst. TCheckBox.State := cbUnCheked meldet mir sofort der Compiler als Fehler.
Auf jeden fall geht es bei mir so ohne Probleme:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ini : TIniFile;
  s : Integer;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'init.ini');
  try
    ed_Pfad.Text := ini.ReadString('SAVE', 'Quelle', 'Pfad zur Quelldatenbank');
    ed_Ziel.Text := ini.ReadString('SAVE', 'Ziel', 'Name der Zieldatenbank auf dem MySQL-Server');
    s := ini.ReadInteger ('SAVE', 'Autostart', 0);
    cb_autostart.Checked := s = 1;
    s := ini.ReadInteger ('SAVE', 'DeleteZiel', 0);
    cb_DelZiel.Checked := s = 1;
  finally
   ini.Free;
  end;
end;

[ibp]

und warum lässt du es nicht bei checkbox1.checked:=false?

[Tyler]

Zitat von Sharky:

es wundert mich das Du den Code überhaupt Comilier kannst. TCheckBox.State := cbUnCheked meldet mir sofort der Compiler als Fehler.

Das war ja auch mein 2. Versuch.

Beim 1. Versuch hab ich es folgendermassen probiert:

cb_Autostart.Checked := StrToBool ( ini.ReadString('SAVE', 'Autostart', 'False'); das führte aber wie gesagt genau zu dem gleichen Fehler.

Vielen Dank auch für deinen Code, aber damit wird die Checkbox ja grundsätzlich auf TRUE gesetzt, oder nicht:
  cb_autostart.Checked := s = 1;

[ibp]

Zitat von Tyler:

Vielen Dank auch für deinen Code, aber damit wird die Checkbox ja grundsätzlich auf TRUE gesetzt, oder nicht:
  cb_autostart.Checked := s = 1;

nein, die bedingung s=1 ist true wenn s:=1 und false wenn s:=0 ist !

[Tyler]

achso.. also ein verkürztes IF?

IF S = 1 THEN CHECKED := TRUE;

ergibt

CHECKED := S = 1

Wenn ja, dann wieder was interessantes dazugelernt

[ibp]

jaaaaaa

[Tyler]

löl

/me *hocherfreut-ist*

(Die Mod´s übersehen jetzt hoffentlich das bissel gespamme :prosit

[Sharky]

Zitat von Tyler:

achso.. also ein verkürztes IF?

IF S = 1 THEN CHECKED := TRUE;

ergibt

CHECKED := S = 1..

Noch mal kurz eine erklärung zu dem Code.
Das ganze läuft darauf hinaus das eine boolesche Operation durchgeführt wird. Diese liefert logischerweise immer ein True oder ein False.

Code:

1 = 1 := True
1 = 2 := False
1 <> 2 := True;
1 < 2 := True
1 > 2 := False
'Hallo' = 'blubb' := False;
usw.

Mit diesem "wissen" kann man oftmals eine unnötige IF-THEN-ELSE konstruktion umgehen.

[_Sebastian_]

ich würd das so machen:
 checkbox1.checked := ini.ReadBool('Save','Autostart',True);