Lire et ecrire dans un fichier TXT

Question

Hello, alors j'aimerai pouvoir écrire dans un fichier TXT 
et que au lançemment de la form il lise le contenu du fichier TXT et l'ecrive dans une listBox Seul problème je sait pas comment faire !! :(

quelqun peut m'aider ?

Merci et bon coding a tous !
Norton

cs_zmc · Answer

Je t'ai codé une petite application, il y'a un ListBox et un Edit. A la fermeture de ta fiche, le contenu du edit est écrit dans un fichier texte et a l'ouverture de la fiche, le programme lit le contenu du fichier text et l'insere dans le listBox. la variable fichier de type TexteFile (Fichier:  textfile) est à declarer en global :


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AssignFile(Fichier, 'C:\fichier.txt'); 
  rewrite(Fichier);  //meme si le fichier existe, j'ecris par dessus
  Write(Fichier, Edit1.Text); //ecrire le contenu du edit
  CloseFile(Fichier);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  items:  String;
begin
  try
  begin
    AssignFile(Fichier, 'C:\fichier.txt');
    Reset(Fichier); //reset ne modifie pas le fichier
    ReadLn(Fichier, items);
    ListBox1.Items.Add(items);
  end;
  finally
    CloseFile(Fichier);
  end;
end;


voila, j'èspere que j'aurais bien su cerné ton problème.

a+

cs_zmc · Answer

erf, desolé le code n'a pas été formaté comme je l'avais écrit :/ il est pas très lisible du coup

padsou · Answer

ListBox.LoadFromFile('c:\monfichier.txt');

 ;) $$$$$$$$----Padsou----$$$$$$$$ ;)

cs_norton · Answer

Ok merci Je vais essayer ces code

cs_Delphiprog · Answer

Et si le fichier n'existe pas au (premier) démarrage de l'appli ?

if FileExists('c:\monfichier.txt') then
  ListBox1.LoadFromFile('c:\monfichier.txt');

May Delphi be with you

Lire et ecrire dans un fichier TXT

5 réponses

Votre réponse

Discussions similaires