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.


end;


// fin de ma fonction