sanasana23
Messages postés5Date d'inscriptionjeudi 11 mars 2010StatutMembreDernière intervention 3 avril 2010
-
3 avril 2010 à 19:03
manu1506
Messages postés54Date d'inscriptionjeudi 13 novembre 2003StatutMembreDernière intervention25 avril 2012
-
14 juin 2011 à 16:48
Bonjour
je veut amliorer ce code afin q'il parcour le fichier text pour ne pas ecrire une donner deja ecri sur le fichier.merci
procedure TForm1.Button2Click(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
Stg:=c.items.text;//c tcombbox
AssignFile(F,'C:\info\test.txt');
if fileexists('C:\info\test.txt') then append(F)
else rewrite(F);
Writeln(F,Stg);
closefile(F);
end;