Procedure et fichier texte+pettie question

Voila j'aurais foulu savoir comment creer une procedure (ou function si ca va mieux) dans laquelle j'ouvre et lit un fichier texte, puis ouvre et ecrit dans un autre a partir du fichier original avec quelque petit changement.

En fait ca marche tres bien quand je le met dans le programme principal, mais dans la procedure elle accepte pas textefile comme type dans ses variables.

2eme petite question:
Comment faire pour lire un fichier texte avec un certains nombre de charactere d'un coup.
Et ausssi pour le lire en entier car j'arrive a lire que la 1ere ou la derniere ligne.

Merci a tous

En utilisant l'API pour lire un fichier en entier fait comme ça :

procedure TForm1.xxxx
var
fichier: TextFile;
nomFichier: String;
ligne: String;
begin
AssignFile(fichier, nomFichier);
Reset(fichier); // Rewrite() pour écrire
while not Eof(fichier) do
begin
ReadLn(fichier, ligne);
Memo1.add(ligne);
end;
end;

Ou en utilisant un TMemo :

procedure TForm1.xxxx
var
nomFichier:String;
begin
Memo1.Lines.LoadFromFile(nomFichier);
end;

Ou encore même avec un TStringList :

procedure TForm1.xxxx
var
nomFichier: String;
fichier: TStringList;
begin
fichier := TStringList.Create;
fichier.LoadFromFile(nomFichier);
end;



Voilà pour lire, pour écrire c'est pas plus compliqué.

Bonne Prog !!!

Merci pour ton aide

Voila mainetnant je cherche a lire dans un fichier texte mais pas ligne par ligne mais mot par mot ou caractere par caractere mais je ne sais pas comment.

Quelqu'un peut-il m'aider.


Si tout va bien je donnerais ma source a la fin de mon programme qui avance quand j'en ai envie il faut dire