Discussion :

[fabpan]

Bonjour,

J'utilise un fichier .txt pour sauvegarder le résultat d'une requête sql. J'aimerai vérifier la taille de celui-ci avant de le sauvegarder sur le disque dur ou sur une disquette (afin d'avertir l'utilisateur qu'il n'y a pas assez de place si le disque dur est plein par exemple). Pour la sauvegarde j'utilise un TStringlist.savetofile. Comment faire cela avant d'éxécuter le savetofile.


Merci d'avance pour votre aide

[Gilbert Geyer]

Bonjour,

En supposant que la mem-vive-disponible est presque saturée avant d'éxécuter le savetofile :
Une simple boucle sur la StringList avec Taille:= Taille + length(MaListe[i]) + 2 où le +2 correspond aux CRLF situés en fin de chaque ligne.

Mais si le mem-vive permet de faire MaListe.SaveToStream(TmpStream) avec TmpStream du type TMemoryStream on récupère directement la taille avec Taille:=TmpStream.Size.

A+.

[Andnotor]

Ou plus simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

length(MaListe.Text)

avec éventuellement un facteur 2 si en unicode.

[Gilbert Geyer]

Re-bonjour,

Mais bien-sûr ! Taille:=length(MaListe.Text) ... j'avais complètement oublié la propriété Text. (avec un RichEdit ou un TMemo j'y aurais pensé spontanément mais avec la StringList j'oublie !!??).

A+.