IF-Then-Else i Delphi

Der er et par problemer:
1) if sætningen: ' mangler omkring Done: 'Done'
2) drob begge end
3) afslut sidste linie med et ;

If ini.ReadSectionValues('Film', ListBox1.Items) = 'Done' then
  ini.ReadSection('Film', ListBox1.Items)
else
  ini.ReadSection('Film', ListBox2.Items);

Virker stadig ikke

Hvilken fejl får du?

[Error] Unit1.pas(46): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

ReadSectionValues læser hele skidtet ind i en stringlist. Det du har behov for er manuelt at plukke ud hvad du vil have i den ene listbox og hvad du vil have i den anden.

Du skal læse ini-filen ind i en 3. liste - og derfra gennemgår du listen og udvælger enkeltvis hvad du vil have hvor.

Noget a la dette:

procedure TForm1.Button1Click(Sender: TObject);
var
  iniF: TIniFile;
  liste: TStringList;
  i: integer;
begin
  try
    iniF := TIniFile.Create('c:\film.ini');
    beep();
    try
      liste := TStringList.Create;
      iniF.ReadSectionValues('Film', liste);
      // gennemløb listen
      for i := 0 to liste.Count -1 do
        begin
          if liste.ValueFromIndex[i] = 'Done' then
            ListBox1.AddItem(liste.Names[i], nil)
          else
            ListBox2.AddItem(liste.Names[i], nil);
        end;

    finally
      freeandnil(liste);
    end;
  finally
  end;
end;

ja ok - fjern "beep();" fra programkoden - lol