Copier un Fichier dans une string

Question

Question a la con: comment fait-on pour copier un fichier (texte) dans une chaine (string)??

cs_Gysmo · Answer

Dans une string je sais pas, mais dans une TStringList c'est facile :

procedure TForm1.Button1Click(Sender: TObject);
var StringList: TStringList; i: Integer;
begin
  StringList:= TStringList.Create;
  if OpenDialog1.Execute
  then  StringList.LoadFromFile(OpenDialog1.FileName);
  for i:=0 to StringList.Count-1 do
  Memo1.Lines.Add(StringList[i]);
  StringList.Destroy;
end;

Un Button pour ouvrir la boite de dialogue OpenDilog, OpenDialog pour ouvrir le fichier texte, 
et un Memo pour montrer le contenue de la StringList.

Il suffit apres de taper StringList[i] pour ressortir la ligne i.

J'espere ke je t un peu aider.

Bye.

cs_lomig · Answer

Ah mais c'est bien pratique c'est TStringList! Merci de m'avoir fait découvrir cet objet fort sympathique ma foi (si l'on peut dire qu'un objet puisse etre sympathique....m'enfin bon on peut bien dire ce qu'on veut, il y en a bien qui trouvent Le Pen sympathique!!!)

Lomig

------------------------------
 Réponse au message :		  
------------------------------

Dans une string je sais pas, mais dans une TStringList c'est facile :

procedure TForm1.Button1Click(Sender: TObject);
var StringList: TStringList; i: Integer;
begin
  StringList:= TStringList.Create;
  if OpenDialog1.Execute
  then  StringList.LoadFromFile(OpenDialog1.FileName);
  for i:=0 to StringList.Count-1 do
  Memo1.Lines.Add(StringList[i]);
  StringList.Destroy;
end;

Un Button pour ouvrir la boite de dialogue OpenDilog, OpenDialog pour ouvrir le fichier texte, 
et un Memo pour montrer le contenue de la StringList.

Il suffit apres de taper StringList[i] pour ressortir la ligne i.

J'espere ke je t un peu aider.

Bye.

cs_Delphiprog · Answer

Mieux encore !
Au lieu de :
for i:=0 to StringList.Count-1 do
Memo1.Lines.Add(StringList[i]);

mettre :
Memo1.Lines.AddStrings(Stringlist);

May Delphi be with you.

cs_Gysmo · Answer

C'est avec grand plaisir.
Tu pourra en apprendre d'avantage dans l'aide tu sais a propos des TSringList.

C vrai on peu dire ce kon veux, mais du moment de ne pas dire n'importe quoi...

Bye.
 8-)

cs_Gysmo · Answer

Ah oui c'est vrai je l'avais oublier celui-ci!
Bien vu!  ;) 

Delphi for ever.

cs_lomig · Answer

Et avec une DialogBox comment on fait pour permettre à l'utilisateur de selectionner un répertoire et pas un fichier?
Ca m'enerve j'arrive pas a trouver les infos que je veux avec l'aide de delphi5... Dites, c'est moi qui déconne ou elle est vraiment mal faite cette aide??

cs_Gysmo · Answer

Pour le dialogbox je sais pas.
Pour l'aide c vrai pas facile, moi c la meme avec D6. Fo faire avec.

Bye.

Copier un Fichier dans une string

7 réponses

Votre réponse

Discussions similaires