Gestion des fichiers texte

Marsh Posté le 06-02-2004 à 21:18:42

Salut.
J'aimerais un tit coup de main pour l'utilisation des fichiers texte en pascal(sous delphi)
j'ai fais ca :

Code :

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
var
FileHandle1: integer;
i: integer;
F: File of string[40];
begin
AssignFile(F,FileSaveAs1.Dialog.FileName);
Rewrite(F);
for i:=0 to ListBox1.Items.Count-1 do
begin
Writeln(F,ListBox1.Items[i]);
end;
CloseFile(f);
end;

et il me dis "types illégales dans une instruction write/writeln"..j'ai essayé de mettre un texte entre '' , ou de passer par un variable de type string, toujours le meme résultat.

Merci d'avance.

---------------
AfterEnd: Batissez un nouveau monde

Marsh Posté le 06-02-2004 à 21:18:42

Marsh Posté le 06-02-2004 à 21:51:52

pour la déclaration de F, tu dois juste mettre text ou textfile, pas file of...
Enfin, pour sauver un TStrings tu as plus simple :
ListBox1.Items.SaveToFile(FileSaveAs1.Dialog.FileName);

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Marsh Posté le 07-02-2004 à 12:40:10

antp a écrit :

pour la déclaration de F, tu dois juste mettre text ou textfile, pas file of...
Enfin, pour sauver un TStrings tu as plus simple :
ListBox1.Items.SaveToFile(FileSaveAs1.Dialog.FileName);

Merci...
Je commence a me rendre compte qu'avec delphi tout est plus simple
je passe de ca :

Code :

AssignFile(F,FileSaveAs1.Dialog.FileName);
Rewrite(F);
for i:=0 to ListBox1.Items.Count-1 do
begin
Writeln(F,ListBox1.Items[i]);
end;
CloseFile(f);

A ca :

Code :

ListBox1.Items.SaveToFile(FileSaveAs1.Dialog.FileName);

---------------
AfterEnd: Batissez un nouveau monde

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *