Assignfile utilisation [Résolu]

- - Dernière réponse : Cirec
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
- 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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
7
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jlen100
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
39
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Cirec

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.