Playlist items aus .ini laden

[scp]

Schreiben:

Delphi-Quellcode:

uses
  IniFiles;
//...

with TIniFile.Create('C:\meine.ini') do
  try
    WriteInteger('MeineSection', 'Count', ListBox1.Items.count);
    for i := 0 to ListBox1.Items.count-1 do
      WriteString('MeineSection', 'Item' + IntToStr(i), ListBox1.Items[i]);
  finally
    Free;
  end;

Lesen:

Delphi-Quellcode:

with TIniFile.Create('C:\meine.ini') do
  try    
    for i := 0 to ReadInteger('MeineSection', 'Count', 0)-1 do
      ListBox1.Items.Add(ReadString('MeineSection', 'Item' + IntToStr(i), ''));
  finally
    Free;
  end;

Mit ner Textdatei gehts aber auch einfacher:

Delphi-Quellcode:

ListBox1.Items.SaveToFile('C:\meine.txt');
ListBox1.Items.LoadFromFile('C:\meine.txt');