LECTURE ET STOCKAGE DE FICHIER TEXTE DANS UNE VARIABLE

Commentaire de Delphiprog le 23/11/2004 23:24:43 administrateur CS

Origine de l'inspiration de ce code source :
http://www.delphifr.com/forum.v2.aspx?ID=338158
Vous y trouverez quelques réflexions utiles.

Petite remarque : le code dit "en procédure" est en fait l'écriture du code dans un gestionnaire d'évènement OnClick d'un TButton.

Pour qu'il soit réellemnt "en procédure", ce serait plus exact d'écrire :
procedure StringFromFile(const FileName: TFileName; var S: string);
var
  F: TextFile;
  S1: string;
begin
  S := EmptyStr;
  AssignFile(F, FileName);
  Reset(F);
  try
    while not Eof(F) do
    begin
      ReadLn(F, S1);
      S := S + S1;
    end;
  finally
    CloseFile(F);
  end;
end;

Vois-tu la nuance ?

Commentaire de MAURICIO le 24/11/2004 10:59:24 administrateur CS

Voici une de mes fonctions qui fait le contraire: ecrire dans les fichiers texte !!!
var Ficheiro -> fichier
      Texto    -> texte à insérer à la fin
      Limpar_Primeiro -> permet d' effacer ce qu' il y a dans le fichier avant d' inserer ...
      Vazio -> bool = vide?

procedure FicheiroTexto_Append(Ficheiro: String; Texto: String; Limpar_Primeiro: Boolean);
var Fich  : TextFile;
    Vazio : Boolean;
begin
  AssignFile(Fich, Ficheiro);

  If (Not FileExists(Ficheiro)) Or (Limpar_Primeiro)
  Then Begin
    Rewrite(Fich);
    Vazio := True;
  End
  Else Begin
    Reset(Fich);  
    Vazio := Eof(Fich);
  End;

  Append(Fich);  

  If Not Vazio
  Then Writeln(Fich, '');   // Nouvelle ligne ...

  Write(Fich, Texto);      
  CloseFile(Fich);
end;

C' est une vieille fonction que j' ai faite il y a longtemps.
J' espère que ça va vous être utile.

Commentaire de MAURICIO le 24/11/2004 11:05:58 administrateur CS

Au fait, DelphiProg te donne une amelioration:
Readln permet de lire toute la ligne alors que Read ne lit qu' un seul caractere. De plus, le Try Finally permet de s' assurer  que le fichier sera fermé à la fin!!!

Commentaire de jobtunisieyasser le 24/11/2004 11:18:49

le code a était posé dans lee but de me donner une réponse et non pas dans le but d'avoir la premiére place dans un ....
parsuite le 10/10  est ma seule façon de le remercier pour ses effort.

Commentaire de Filipe35 le 24/11/2004 14:16:21

Salut,

Ce code viens en aide à jobtunisieyasser
qui voulait utiliser Read
(forum:
http://www.delphifr.com/forum.v2.aspx?ID=338158 )

ni plus ni moins, je n'attendais pas de note.
mais comme cette question est fréquement posé
alors j'en ai fait une source pour aider ce ki en
on besoin.

BonneProg à tous

Filipe

Commentaire de Delphiprog le 24/11/2004 19:42:06 administrateur CS

A JobTunisieYasser :
La différence entre une fonction et une procédure est la suivante : une fonction renvoie nécessairement un résultat alors qu'une procédure ne renvoie rien.
Mais, en passant des paramètres par adresse comme :
procedure StringFromFile(const FileName: TFileName; var S: string);
où le paramètre S est déclaré Var, toute modification de ce paramètre à l'intérieur de la procédure sera alors visible par l'appelant.

Est-ce plus clair ?

Commentaire de japee le 01/12/2004 00:47:19 administrateur CS

Ouais, Delphiprog, une fois compris le concept, un fonction retourne un résultat (ce qui est la moindres des choses), mais on peut aussi, à l'intérieur de cette fonction, modifier une variable passée en paramètre... ce qui ouvre quelques perspectives...  ;)