Enregistrer avec delphi

Fermé
kangouroux Messages postés 580 Date d'inscription vendredi 20 juin 2008 Statut Membre Dernière intervention 28 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.


end;


// fin de ma fonction
A voir également: