Sauvegarde txt : Nom de fichier par défaut

Question

Bonjour à tous. Problème tout bête mais je butte : je veux sauvegarder les lignes d'une listbox dans un fichier txt. Là aucun problème je sais faire. Mais j'aimerais assigner un nom par défaut à ce fichier, mais là rien à faire, il me laisse du vide à chaque fois. Voici le code que j'ai utilisé :

procedure TForm1.Sauvegarder1Click(Sender: TObject);
var F:TextFile;
     i:Integer;
begin
  if SaveDialog1.execute then
    begin
    AssignFile(F, TitreSave.Caption);
    Rewrite(F);
    for i:=0 to ListBox1.Items.Count-1 do Writeln(F, NFO.Items.Strings[i]);
    CloseFile(F);
    end;
end;

Je pensais donc que TitreSave.Caption serait alors le nom de fichier par défaut, mais non. Que faire ?

Merci à tous.
---------------------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

finipe · Answer

Petite erreur de code excusez moi c'est :

for i:=0 to ListBox1.Items.Count-1 do Writeln(F, ListBox1.Items.Strings[i]);

cs_Delphiprog · Answer

La propriété Items du composant ListBox possède une méthode SaveToFile à laquelle il suffit de passer le nom du fichier.
Alors, pourquoi réécrire ce qui existe déjà ?
May Delphi be with you

finipe · Answer

Merci du tuyau !
------------------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

manu1506 · Answer

La propriété Caption d'un TSaveDialog est le titre de la boîte et non le nom du fichier.

Essaie plutôt ceci :

begin
   SaveDialog1.FileName:=NomParDefaut;
   if SaveDialog1.execute
      then NFO.Items.SaveToFile(SaveDialog1.FileName);
end;

Sauvegarde txt : Nom de fichier par défaut

4 réponses

Votre réponse

Discussions similaires