écrire dans un fichier

Réponse acceptée !
Salut,

Si j'ai bien compris ce que tu demande, tu pourrais, par exemple, d'inverser via une une boucle le contenu de ton FileBuffer avant l'écriture.

Quelquechose du style:

Function InversionChaine(Contenu: Strings): Strings;
var i:Integer;
begin
   Result:='';
   For length(Contenu)-1 downto 1 do
      Result:=Result+Contenu[i];
end;


Salutations.
fjohnny

Réponse acceptée !
ce code marche Très bien mais si tu pouvait bien le commenter car je compren pas ce code

Réponse acceptée !
Salut,

Effectivement les commentaires sont toujours les bienvenues.

Function InversionChaine(Contenu: Strings): Strings;
var i:Integer;
begin
   Result:=''; 'Initialisation du résulat de la fonction InversionChaine

   {Récupére le contenu lettre par lettre (un string peut être vu comme un tableau de char, dont chaque lettre à pour indice sa position dans le string) en commencant par la fin.}
   For length(Contenu)-1 downto 1 do 

      Result:=Result+Contenu[i]; 'On copie chaque lettre (de la fin au début) dans la résultat final et la chaine de début se retrouve inversé par rapport au résultat final.
end;

Salutations,
fjohnny

Réponse acceptée !
Merci Maintenan JAI COmPRIS MERCI !!!!