kangouroux
Messages postés580Date d'inscriptionvendredi 20 juin 2008StatutMembreDernière intervention28 février 2013
-
2 févr. 2009 à 10:42
Bonjour, j'ai écrit un long programme qui fait plusieurs truck mais j'ai un très gros souci, je ne parvient pas a enregistrer
une ListBox dans un document texte.
Voila ma syntaxe pour ceux qui pourront m'aider.
// début de ma fonction.
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
NomFichier:=ExtractFilePath(Application.ExeName)+NomFichier; // chemin complet
AssignFile(F,NomFichier); //associe le nom du fichier externe défini par NomFichier à la variable fichier f
if FileExists(NomFichier) then begin
showmessage('Le fichier éxiste déjà, il a été modifier.');
Reset(F); // ouvre le fichier en lecture
end else begin // creation du fichier d'adresse IP
showmessage('Le fichier d''enregistrement n''éxiste pas !'+#13#10#13#10
+'Il va être crée.');
rewrite(f); //crée puis ouvre le fichier AdresseIP.txt
end;
for i:=0 to ListBox1.Count-1 do begin // je pense que c'est cela qui pose problème.