Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi ListBox beliebig benennen, und dann speichern (https://www.delphipraxis.net/8217-listbox-beliebig-benennen-und-dann-speichern.html)

DelphiUser7 31. Aug 2003 10:10


ListBox beliebig benennen, und dann speichern
 
Hallo!
Weiß hier zufällig jemand, wie ich eine PlayList(TListBox) als eine beliebige Datei speichern kann?
Bisher verwende ich zum speichern der PlayList folgenden Code:
procedure TForm1.btnPLSaveClick(Sender: TObject);
begin
Delphi-Quellcode:
with SavePlayList1 do begin
  Filter := 'PlayListFiles (.txt)|*.txt|m3u-Playlists (.m3u)|*.m3u';
 end;
    if SavePlayList1.Execute then
    PlayList1.Items.SaveToFile(SavePlayList1.FileName);
    PLName.Caption := SavePlayList1.FileName;
end;
Mit diesem Code lässt sich aber nur eine PlayList namens 'PlayListName' abspeichern, weiß einer von euch eine Lösung

Gruss
DelphiUser7

[edit=Luckie] Mfg, Luckie[/edit]

Luckie 31. Aug 2003 10:13

Re: ListBox beliebig benennen, und dann speichern
 
Willst du den Inhalt speichern, dann kuck dir mal die Methode SaveToFile von TItems an.

CalganX 31. Aug 2003 10:15

Re: ListBox beliebig benennen, und dann speichern
 
Ähm...
Es wird unter dem Namen gespeichert, der in dem SaveDialog angegeben wird. Also verstehe ich dein Problem nicht ganz. :|

Chris

PS: Bitte umschließe deine SourceCodes mit den [ delphi][ /delphi]-Tags (ohne die " " natürlich). Dadurch wird dein Code lesbar(er).

DelphiUser7 31. Aug 2003 10:42

Re: ListBox beliebig benennen, und dann speichern
 
Hallo Chris!
Ich werde deinen Hinweis wegen der Delphi-Tags zur Kenntnis nehmen, und diese ab sofort immer einfügen(wenn benötigt);
Außerdem funktioniert das Speichern meiner PlayList mittlerweile, dank einer Variable namens
Delphi-Quellcode:
PlayList: string;
die ich der Methode SaveToFile von TItems zugewiesen habe (=> Tip von Luckie);

Gruss
DelphiUser7


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz