Lecture et stockage de fichier texte dans une variable

Soyez le premier à donner votre avis sur cette source.

Vue 6 267 fois - Téléchargée 2 550 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
Messages postés
16
Date d'inscription
vendredi 11 mai 2012
Statut
Membre
Dernière intervention
4 juillet 2013

J'oubliais mais les connaisseurs auront compris certainement que le compilateur donne des erreurs sur la ligne de Readln.
Messages postés
16
Date d'inscription
vendredi 11 mai 2012
Statut
Membre
Dernière intervention
4 juillet 2013

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.
Messages postés
123
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
23 mars 2007

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;
Messages postés
123
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
23 mars 2007

mais arrête eest-ce que je suis aussi stupid ?
Je travail depuis 2.5 ans
je un prog
????????!!!!!!!!!
Messages postés
1724
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
25 novembre 2020
6
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.