![]() |
Interessante Frage...
Ich probiers mal..klar eine Radio kann nur checked sein. Danke..melde mich wieder |
Ich sollte die Radios zu einer Radiogroup zusammen fassen und mit den Indexen ansprechen.Einzeln scheint es ja nicht zu gehen.
|
Auch das zusammenfassen zu einer Radiogroup hat nichts gebracht.
Auffallen tut: der erste Klick auf einen der Radios geht noch gut, aber der zweite erzeugt eine "externe Exception".Also sobald der Index der Radios wechselt.In die Ini schreiben tut es aber nur den ersten Klick. Vielleicht kann jemand was damit anfangen? |
Hallo :cry:
|
Code???
|
Code:
Iniset ist deklariert :wink:
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin try case RadioGroup2.ItemIndex of 0: with Iniset do WriteInteger('pause','mpause',0); 1: with Iniset do WriteInteger('pause','mpause',1); 2: with Iniset do WriteInteger('pause','mpause',2); end; finally Iniset.Free; end; |
Und wo ist in dieser Methode denn Iniset := TIniFile.Create(...) denn du gibst Iniset ja am Ende des EventHandlers frei.
|
Wäre es nicht sinnvoll mal ganz von vorne anzufangen und alles noch mal sauber zu programmieren? Denn nach drei Seiten im Forum dürfte dein Code eigentlich nur noch ein Flickwerk sein, durch das niemand mehr durchsteigt. Und der Fehler dürfte sich mittlerweiel in ein Predator im Amazonas Dschugel verwandelt haben, sprich nicht mehr auffindbar sein.
Wenn das Projekt zu komplex ist, sollte man zu mindest alles rausschmeissen was mit der Ini-Datei den Optionsfelder etc. zu tun hat. Und zumindest diesen Teil noch mal neu, von vorne sauber implementieren. Denn so wie das hier aussieht, hatt es keinen Sinn mehr hier noch länger weiter zu machen. Meine Erfahrung hat gezeigt, dass in den meisten Fällen, wenn nach zwei Seiten in einem Forum keine Lösung gefunden wurde, es keine großen Sinn mehr macht. |
Genau deswegen hatte ich noch mal zusammengefasst,siehe obe:
Zitat:
|
Wenn du immer
Code:
machst musst du auch immer
Iniset.free;
Code:
machen, sonst ist dieses ja nach dem ersten mal nicht mehr deklariert!!
Iniset := TIniFile.Create(...);
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:50 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz