Einstellungen speichern/laden

[Knotti2005]

Entschuldige bitte das mein Programm ein 2 Jahre Programm ist was du sowieso nicht brauchst...

[Knotti2005]

Wie meinst du das..

Ich Verstehe das wirklich absolut garnich X-(

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var a :string;
begin
    ini := Tinifile.Create(ExtractFilePath(Application.Exename)+'Einstellungen.ini');
      a := ini.ReadString('tapi','aktiviert','yes');
    ini.Free;

   if a = 'yes' then form1.CheckBox2.Enabled:=true
   else
   form1.CheckBox2.Enabled:=falsE;
   end;

[Knotti2005]

Mit dem Code von NormanNG tritt immernoch ein Fehler auf...

Image...

[Waldteufel]

Tschuldigung Knotti. Ich wollte dich nicht verletzen.
Du hast es übrigens offenbar - entgegen deiner eigenen Meinung - doch verstanden. Der Code, den du zuletzt gepostet hast, ist richtig so.

Die drei s waren da, weil ich es so komisch fand, dass keiner sonst den Fehler bemerkt hat.
Hoffe, du bist mir nicht allzu böse. OK? (<- Apfelschorle)

PS: So. Jetzt muss ich aber ins Bett... Gute Nacht! *schnarch*

[Knotti2005]

@Wandteufel danke für deine Entschuldigung nur die Bemerkung war nicht gegen dich gerichtig...
Sondern gegen

Zitat:

Autor: PierreB
#15|Verfasst am: 06.02.2006, 19:06 Titel: Re: Einstellungen speichern/laden
zer00 hat folgendes geschrieben:
Wieso Speicherst Du die Einstellungen nicht in der Registry, ini-Files sind IMHO so was von lästig für die Anwender.
Und ich als Anwender möchte nicht das mein System mit Daten von einem Programm zugemüllt wird, dass ich vielleicht 2mal im Jahr benutze.

Kommischweise schmiert das Programm beim starten immer ab...

Und wenn mir mein Programmkomisch findet dann sagt es doch dann hör ich auf zu Programmieren und das Thema ist gegessen... Dann Müll ich euch hier nicht mehr mit Noob-Beiträgen voll und spiele wieder ATC beim Flugsimulator 2004..

[marabu]

Hi Knotti,

ich finde dein Programm nicht komisch. Ändere doch den Code mal kurz so ab:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var 
  ini: TIniFile;
begin
  ini := TInifile.Create(ExtractFilePath(Application.Exename) + 'Einstellungen.ini');
  if Assigned(Form1) then
    try
      Form1.CheckBox2.Enabled := (ini.ReadString('tapi', 'aktiviert', 'yes') = 'yes');       
    finally
      Ini.Free;
    end
  else ShowMessage('Hallo Norman');
end.

Wenn die Meldung ausgegeben wird, dann ist Form1 noch nicht initialisiert.

marabu

[Knotti2005]

Ja er gibt Hallo Norman aus..


Und nun?

Form2 ist das Hauptformular allerdings wird es durch einen Timer gleich versteckt.. Form 2 ist nur sichtbar wenn man auf Eigenschaften drückt..

Wenn ich die Prozedur in die Form1 reinschreibe geht sie...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TInifile.Create(ExtractFilePath(Application.Exename) + 'Einstellungen.ini');
  if Assigned(Form1) then
    try
      Form1.CheckBox2.checked := (ini.ReadString('tapi', 'aktiviert', 'yes') = 'yes');
    finally
      Ini.Free;
    end
  else ShowMessage('Hallo Norman');