Je pense bien étant donné que le Delphi reprend les commandes du Turbo Pascal...
J'vais même aller plus loin dans mon développement :
Code :
var
f: TextFile;
begin
try
AssignFile(f, 'MonFichier.txt');
ReWrite(f); // Créer un fichier en Output (si le fichier existe, il écrase les données déjà présentes)
ReGet(f); // Ouvre un fichier en Output/Input (écrit à la fin du fichier sans écraser les données déjà présentes)
Write(f, 'Texte')
finally
CloseFile(f)
end
end;
J'pense pas que la clause try...finally existe en Turbo Pascal (à vérifier)
JWhy
je peux plier (héhé)
Posté le 22-07-2001 à 00:21:51
si mes souvenirs pascaliens sont bons, AssignFile (de Delphi) s'appelle Assign (en Pascal) et ReGet (de Delphi), Append (en Pascal)... mais je peux me gourer... ca a l'air d'etre ma journée