Results 1 to 6 of 6

Thread: Vastlopen met een boolean vanuit een ini bestand

  1. #1
    Senior Member AntonSteen's Avatar
    Join Date
    Dec 2006
    Location
    IJsselmonde (Rotterdam)
    Posts
    352

    Cool Vastlopen met een boolean vanuit een ini bestand

    Beste mede pascal fanaten

    Ik ben lekker bezig, echter ben ik al drie dagen aan het zoeken, en kom er maar niet uit.
    Voor mijn programma heb ik een kleine setup scherm aangemaakt, van waaruit een ini bestand wordt gemaakt met in totaal vijf regels.
    In één van die regels word middels een checkbox een boolean (false/True) geplaatst in het ini bestand, dat gaat simpel en schrijf het goed weg.
    Deze functie moet de muziek (het is een player) namelijk direct opstarten tijdens het openen van het programma.
    Ik gebruik lazarus, en Windows 11

    Hoe kan ik dat het beste aanpakken, de situatie is als volgt.

    1. False, het programma wordt gestart en het blijft stil, dus zelf zingen (geen aanrader)
    2. True, het programma start op, en de muziek begint direct te spelen (betere optie dan zelf zingen)

    Ik heb verder nog niets aangemaakt.

    Wie kan mij een heel klein beetje op weg helpen.

    Mijn dank is verpletterend
    Lazarus als hobby, en dan niet in de kroeg
    http://www.wavdsteen.com

  2. #2
    Senior Member AntonSteen's Avatar
    Join Date
    Dec 2006
    Location
    IJsselmonde (Rotterdam)
    Posts
    352
    Ja gevonden, aan de hand van het onderstaande stukje code.

    procedure TForm1.FormCreate(Sender: TObject);
    var IniFileName : TFileName;
    begin
    IniFileName := ExtractFilePath(Application.ExeName) + 'config.ini';
    { create our TIniFile within our application's directory }
    MyIniFile := TIniFile.Create(IniFileName);
    with MyIniFile do
    begin
    if ReadBool('Tool Bar', 'Visible', True) = True then
    begin
    ToolBar1.Visible := True;
    ToolBar2.Checked := True;
    end
    else
    begin
    ToolBar1.Visible := False;
    ToolBar2.Checked := False;
    end;
    Meer info hier https://www.jamesmartinsandbrook.com...NIFileEx.shtml
    Lazarus als hobby, en dan niet in de kroeg
    http://www.wavdsteen.com

  3. #3
    Geef je die INI ook weer vrij erna? Want dat zie ik er niet in staan - en kan zorgen voor een memory leak. Je kan het trouwens ook zo schrijven:
    Delphi Code:
    1. with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini') do
    2. try
    3.   ToolBar1.Visible := ReadBool('Tool Bar', 'Visible', True);
    4.   ToolBar2.Checked := ReadBool('Tool Bar', 'Visible', True);
    5. finally
    6.   Free;
    7. end;

    Stukje korter, en je ziet direct dat deze ook wordt vrijgegeven na het lezen.

  4. #4
    Senior Member AntonSteen's Avatar
    Join Date
    Dec 2006
    Location
    IJsselmonde (Rotterdam)
    Posts
    352
    Haha, nee, maar vanaf nu wel, dank je voor de tip.
    Hij is inderdaad wat korter, ook daarvoor dank.
    Lazarus als hobby, en dan niet in de kroeg
    http://www.wavdsteen.com

  5. #5
    En als je er dan `ToolBar2.Checked := ToolBar1.Visible` van maakt, dan hoef je ook maar 1 keer uit de inifile te lezen.
    1+1=b

  6. #6
    Senior Member AntonSteen's Avatar
    Join Date
    Dec 2006
    Location
    IJsselmonde (Rotterdam)
    Posts
    352
    Dat is een hele mooie optie, ga ik aanpassen, dank je wel
    Lazarus als hobby, en dan niet in de kroeg
    http://www.wavdsteen.com

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •