Lecture et stockage de fichier texte dans une variable

Soyez le premier à donner votre avis sur cette source.

Vue 6 476 fois - Téléchargée 2 592 fois

Description

tout est dans le titre

Source / Exemple :


in Zip

Conclusion :


clin d'oeil à jobtunisieyasser

Codes Sources

A voir également

Ajouter un commentaire Commentaires
MB32 Messages postés 16 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 4 juillet 2013
11 mai 2012 à 21:22
J'oubliais mais les connaisseurs auront compris certainement que le compilateur donne des erreurs sur la ligne de Readln.
MB32 Messages postés 16 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 4 juillet 2013
11 mai 2012 à 21:20
Mais pourquoi ce code ne compile pas chez moi (application console, RAD XE2) ?


var F1, F2 : file;
s: string;


begin
try
Assign(F1, 'd:\Fichiers DIM\HJ_2010_11');
Reset(F1);
Assign(F2, 'd:\Fichiers DIM\HJ_2010_11_sortie');
Rewrite(F2);
while not Eof(F1) do begin
Readln(F1, s );
end;
Close(F1);
Close(F2);

{ TODO -oUser -cConsole Main : Insérer du code ici }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
(compilation : procedure, untyped pointer or untyped parameter and string)

Merci de votre aide, je me sens sérieusement nul, l'aide de XE2 ne me donne pas la syntaxe des arguments de taille multiple, les bouquins que j'ai achetés ne donnent pas d'exemple console, et mes derniers essais avec Delphi ou IntraBuilder ne connaissaient pas tous ces nouveaux types de chaînes.
Merci de me répondre aussi sur mon adresse mail.
jobtunisieyasser Messages postés 123 Date d'inscription lundi 6 septembre 2004 Statut Membre Dernière intervention 23 mars 2007
2 déc. 2004 à 10:01
Oups
j'ai un probléme dans mon code
j'ai passé des heure à le cherché .....
en fin c'est dû à DelphiProg
hihiihihih
Le format généré des fichier contient des fois des erreurs dû à un chr(13) qui manque :
try
while not Eof(F) do
begin
ReadLn(F, S1);
S := S + S1 + chr(13); // -----> §!!!!!!!?????
end;
finally
CloseFile(F);
end;
jobtunisieyasser Messages postés 123 Date d'inscription lundi 6 septembre 2004 Statut Membre Dernière intervention 23 mars 2007
1 déc. 2004 à 17:34
mais arrête eest-ce que je suis aussi stupid ?
Je travail depuis 2.5 ans
je un prog
????????!!!!!!!!!
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
1 déc. 2004 à 00:47
Ouais, Delphiprog, une fois compris le concept, un fonction retourne un résultat (ce qui est la moindres des choses), mais on peut aussi, à l'intérieur de cette fonction, modifier une variable passée en paramètre... ce qui ouvre quelques perspectives... ;)
Afficher les 16 commentaires

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.