Assignfile utilisation

Résolu
Signaler
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
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

Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
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
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
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