fichier texte en delphi 7

Question

salut 
comment faire pour que ce code n'enregistre pas une donnee deja ecrite 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	est.txt'); 
if fileexists('C:\info	est.txt') then append(F) 
else rewrite(F); 
Writeln(F,Stg); 
closefile(F); 
end;

cloudlouda · Answer

salut
j'attend vos reponses,s'il vous plait.

fbalien · Answer

Bonjour

tient un impatient
si le but est de ne pas ajouter un texte existant
alors comme vous la conseillé Bacterius
c'est de passer par TStringList 
Donc une petite recherche dans l'aide de Delphi avec comme critère TStringList 
devrait répondre à votre question 

A+

cloudlouda · Answer

Bonjour
merci fbalien,mais j'ai pas compri comment passer avec le TStringList.

cs_Jean_Jean · Answer

Tu peux utiliser la fonction IndexOfName du Stringlist qui te renverra un indice s'il existe déjà! Il y a aussi simes souvenirs sont bons, ValueFromIndex...
Jean_Jean

cloudlouda · Answer

salut
je veut modifier au niveau ce code qui fait l'enregistrement sur un fichier texte.Pour ne pas ajouté une donnée existante.merci

procedure TForm1.Button2Click(Sender: TObject); 
Var F: TextFile; 
Stg:String; 
begin 
Stg:=c.items.text;//c tcombbox 
AssignFile(F,'C:\info	est.txt'); 
if fileexists('C:\info	est.txt') then append(F) 
else rewrite(F); 
Writeln(F,Stg); 
closefile(F); 
end;

ThWilliam · Answer

Bonjour.

Pourquoi t'obstiner avec un TextFile, alors que c'est si simple avec un StringList ?

Voici la procedure d'enregistrement du ComboBox en évitant les doublons :

procedure TForm1.Button2Click(Sender: TObject);
var
   StringList: TStringList;
   FileName, S: string;
   I: integer;
begin
   FileName:= 'C:\info	est.txt';
   StringList:= TStringList.Create;
   StringList.CaseSensitive:= false; // pas de différence majuscule-minuscule
   try
      if FileExists(FileName) then
         StringList.LoadFromFile(FileName);
      for I:= 0 to ComboBox1.Items.Count - 1 do
      begin
          S:= ComboBox1.Items[I];
          if StringList.IndexOf(S) < 0 then  // l'item n'existe pas
            StringList.Add(S);
      end;
      StringList.SaveToFile(FileName);
   finally
      StringList.Free;
   end;
end;


A +
Thierry

ThWilliam · Answer

Désolé, je mets cela en forme :

procedure TForm1.Button2Click(Sender: TObject);
var
   StringList: TStringList;
   FileName, S: string;
   I: integer;
begin
   FileName:= 'C:\info	est.txt';
   StringList:= TStringList.Create;
   StringList.CaseSensitive:= false; // pas de différence majuscule-minuscule
   try
      if FileExists(FileName) then
        StringList.LoadFromFile(FileName);
      for I:= 0 to ComboBox1.Items.Count - 1 do
      begin
         S:= ComboBox1.Items[I];
         if StringList.IndexOf(S) < 0 then // l'item n'existe pas
              StringList.Add(S);
      end;
      StringList.SaveToFile(FileName);
   finally
      StringList.Free;
   end;
end;

cs_Jean_Jean · Answer

Bonjour ThWilliam
Tu as une meilleure mémoire que moi!
Pourtant, je les utilise ces stringlist!
@ cloudlouda : très pratique! Tape F1 sur ton StringList, tu accéderas à toutes les propriétés avec des exemples parfois!
Bonne prog!
Jean_Jean

cloudlouda · Answer

merci

cs_Jean_Jean · Answer

Hello

It is a forum in French here. Use a translator stp!
Good programming in Delphi!

Jean_Jean

Fichier texte en delphi 7

10 réponses

Votre réponse

Discussions similaires