Append - rajouter un texte à la fin d'un myfile.txt

Version imprimable

Bonjour,
Comment faire pour rajouter un texte depuis memo1 vers un fichier texte myfile.txt ?
J'ai essayé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var myFile : TextFile; text : string; begin AssignFile(myFile, 'Test.txt'); ReWrite(myFile); Append(myFile); WriteLn(myFile, memo1.lines); CloseFile(myFile); end;
Mais ça ne fonctionne pas !

28/10/2015, 06h54
SergioMaster

Bonjour,

Soyez précis : "ne fonctionne pas" n'est pas une vraie description du problème !
Une seule question (et piste): que fais l'instruction rewrite ?
28/10/2015, 09h42
Andnotor
Rewrite crée un fichier vide avant de l'ouvrir. Append ouvre un fichier existant et place le pointeur en fin de fichier. Donc :
Code:

1 2 3 if FileExists() then Append() else Rewrite();

Bonjour,
il est aussi conseillé de faire un flush après écriture comme le dit l'aide de D7 :

Code:

1
2
3
4
5
6
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'J''ajoute quelque chose à la fin du fichier.');
    { Insérer ici un code nécessitant un Flush avant de fermer le fichier }
    Flush(f);  { Pour que le texte soit réellement écrit dans le fichier }
    CloseFile(f);

A+
Charly

Merci beaucoup, maintenant ça fonctionne ! :mouarf:
Maintenant, je souhaite tester si mon fichier texte est vide ou pas. J'ai le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 function IsFileEmpty(var FileName : string) : bool; var f : file; begin AssignFile(f, FileName); Reset(f, 1); if FileSize(f) = 0 then IsFileEmpty := true else IsFileEmpty := false; Close(f); end; procedure TForm1.Button3Click(Sender: TObject); begin if IsFileEmpty ('MyFile.txt')then showmessage ('Empty') else showmessage ('Not empty'); end;
Mais j'obtiens une erreur : "Constant object cannot be passed as var parameter" :calim2:

Bonjour,
Dans ce code d'obtiens "Incompatibles types : String and Integer" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function TextfileSize(const name: string): LongInt;
var
  SRec: TSearchRec;
begin
  if FindFirst(name, faAnyfile, SRec) = 0 then
  begin
    Result := SRec.Size;
    Sysutils.FindClose(SRec);
  end
  else
    Result := 0;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
if textfilesize ('Mytextfile.txt'= 0  then
showmessage('Empty')
else
showmessage('Not Empty');
end;

bonjour à tous:coucou:

Code:

1
2
3
4
5
6
7
8
procedure TForm1.Button4Click(Sender: TObject);
begin
if textfilesize ('Mytextfile.txt') = 0  then  //rajout de parenthèse
showmessage('Empty')
else
showmessage('Not Empty');
end;

08/11/2015, 10h53
kikica

Merci !!
Merci beaucoup Basile, je n'avais pas vu cela !!
Maintenant, j'ai un autre problème : je dois rajouter du texte entre chaque lettre d'un memo. Par exemple :
Code:

1 2 3 4 if memo1.text<> '' then begin memo2.text := memo1.[CHAQUE CARACTERE=CHAQUE CARACTERE + 'a'];
08/11/2015, 11h51
Basile le disciple
bonjour à tous,:coucou:

il y a plein de possibilités, j'en montre une, sans doute pas la plus rapide...

Il suffirait de balayer tous les caractères de chaque ligne et de rajouter 'a' à chaque fois :
Code:

1 2 3 4 5 6 7 8 var i : integer; s : string; begin s:=''; for i:=1 to length(Memo1.Text)-1 do s:=s+Memo1.Text[i]+'a'; Memo2.Text:=s;
mais ce code ne marche pas quand il y a plusieurs lignes.
Pour ça, il faudrait répéter ce traitement pour toutes les lignes en utilisant Memo1.Lines.Count pour avoir le nombre de ligne ou jouer avec les caractères chariot.
08/11/2015, 12h07
SergioMaster

Bonjour,

Attention le principe du forum est : une question par sujet de départ
Pourquoi ? parce qu'ainsi un autre membre qui ne recherche par exemple :"je souhaite tester si mon fichier texte est vide ou pas." ne trouvera pas la réponse pourtant indiquée dans cette discussion
Etant modérateur flemmard aujourd'hui, je laisse passer (pas d'avertissement), ne découpe pas la discussion en plusieurs autres etc... Peut être qu'un autre moins "cossard' fera le boulot ;)
14/11/2015, 10h28
e-ric

Salut

un peu tardivement ...

Citation:

Envoyé par kikica

Mais j'obtiens une erreur : "Constant object cannot be passed as var parameter" :calim2:

Tu as dû passé une constante du genre 'toto.txt' à ta fonction IsFileEmpty qui exige un paramètre var i.e. une variable.

Cdlt