Einzelnen Beitrag anzeigen

Tim.exe

Registriert seit: 29. Apr 2003
186 Beiträge
 
#9
  Alt 28. Jun 2003, 19:09
Hallo,

ich weiss jetzt woran es liegt, und zwar:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var savestat: TIniFile;
var verz: String;
begin
savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+'settings.ini');
try
CheckBox1.Checked:=savestat.ReadBool('Copper', 'Status', CheckBox1.Checked);
CheckBox2.Checked:=savestat.ReadBool('Modern', 'Status', CheckBox2.Checked);
CheckBox3.Checked:=savestat.ReadBool('Lime', 'Status', CheckBox3.Checked);
CheckBox4.Checked:=savestat.ReadBool('WinXP', 'Status', CheckBox4.Checked);
CheckBox5.Checked:=savestat.ReadBool('Hints', 'Status', CheckBox5.Checked);
finally
savestat.Free;
end;

verz := ExtractFilePath(ParamStr(0));
     Table1.Active := False;
     try
     Table1.Databasename := verz;
     Table1.TableName := 'jaab.db';
     Table1.Active := True
     except
     MessageBeep(0);
     ShowMessage('Die Tabelle "jaab.db" befindet' + #13#10 + ' sich nicht im aktuellen Verzeichnis!')
     end;

end;
Genauer gesagt am ersten Teil, wenn ich den Ini-Part auskommentiere, kommt keine Fehlermeldung. Aber was ist falsch? So lese ich immer aus *.ini's, in fast jedem Programm und es kommt sonst nie so eine Fehlermeldung...
!!! Sigs stinken !!!
  Mit Zitat antworten Zitat