Assignfile utilisation [Résolu]

Utilisateur anonyme - 26 janv. 2006 à 15:53 - Dernière réponse : Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention
- 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
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 26 janv. 2006 à 16:38
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

Merci jlen100 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de jlen100
Meilleure réponse
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 26 janv. 2006 à 17:09
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

Merci Cirec 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes 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.