Assignfile utilisation

Résolu
Utilisateur anonyme - 26 janv. 2006 à 15:53
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 26 janv. 2006 à 17:09
Salut à tous

Je voudrais assigner un fichier dont le nom est (par exemple) C:`\animaux\Crapaud.exe à une variable F. comment faire merci ?

Merci d'avance

2 réponses

jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
26 janv. 2006 à 16:38
salut,

fais tout simplement:

AssignFile(F, 'C:`\animaux\Crapaud.exe');

je te donnes la description de l'aide:

Syntaxe Delphi :



procedure AssignFile(var F; FileName: string);



Description



Appelez AssignFile pour initialiser une variable fichier dans le code
Delphi. F est une variable fichier d'un type quelconque. FileName est
une expression de type chaîne ou de type PChar si la syntaxe étendue a
été activée.



Après l'appel à AssignFile, F reste associée au fichier externe jusqu'à
ce que ce dernier soit fermé. Toutes les opérations sur F
agissent sur le fichier externe nommé par FileName.



Si le paramètre FileName est vide, F est associée au fichier standard
en entrée ou en sortie. Après un appel à Reset (F) et si le nom affecté
est vide, F fait référence au fichier standard en entrée, et après un
appel à Rewrite (F) et si le nom affecté est vide, F fait référence au
fichier standard en sortie.



N'utilisez pas AssignFile avec une variable correspondant à un fichier déjà ouvert.



@+

jlen
3
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
26 janv. 2006 à 17:09
salut,
un petit exemple aussi simple qu'inutile :
procedure TForm1.Button18Click(Sender: TObject);
var MyFile: file of Byte; // pour un Fichier Exe
buffer : Array[0..255] of Byte;
aStr : String; I : Integer;
Begin
try
AssignFile(MyFile, 'aTest.exe');
Reset(MyFile);
Seek(MyFile, soFromBeginning);
BlockRead(MyFile, Buffer, SizeOf(Buffer));
finally
CloseFile(MyFile);
end; For I :0 to 15 <gras>do aStr :</gras> aStr + IntToStr(Buffer[I]) + ','; // on affiche les 16 premiers Bytes
Label1.Caption:= aStr;
End;
MyFile : TextFile; // Pour un Fichier Texte

pour l'autre question désolé mais je n'ai rien trouvé


@+
Cirec
3
Rejoignez-nous