LECTURE ET STOCKAGE DE FICHIER TEXTE DANS UNE VARIABLE
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
18 novembre 2010
-
23 nov. 2004 à 23:06
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27771-lecture-et-stockage-de-fichier-texte-dans-une-variable
https://codes-sources.commentcamarche.net/source/27771-lecture-et-stockage-de-fichier-texte-dans-une-variable
11 mai 2012 à 21:22
11 mai 2012 à 21:20
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.
2 déc. 2004 à 10:01
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;
1 déc. 2004 à 17:34
Je travail depuis 2.5 ans
je un prog
????????!!!!!!!!!
1 déc. 2004 à 00:47
25 nov. 2004 à 08:34
24 nov. 2004 à 19:42
La différence entre une fonction et une procédure est la suivante : une fonction renvoie nécessairement un résultat alors qu'une procédure ne renvoie rien.
Mais, en passant des paramètres par adresse comme :
procedure StringFromFile(const FileName: TFileName; var S: string);
où le paramètre S est déclaré Var, toute modification de ce paramètre à l'intérieur de la procédure sera alors visible par l'appelant.
Est-ce plus clair ?
24 nov. 2004 à 14:18
24 nov. 2004 à 11:31
Aucun problème, mais utilise l' amélioration de DelphiProg, et, ma fois, si ma fonction peut aider aussi ...
A+
24 nov. 2004 à 11:18
parsuite le 10/10 est ma seule façon de le remercier pour ses effort.
24 nov. 2004 à 11:08
24 nov. 2004 à 11:05
Readln permet de lire toute la ligne alors que Read ne lit qu' un seul caractere. De plus, le Try Finally permet de s' assurer que le fichier sera fermé à la fin!!!
24 nov. 2004 à 11:01
hihihih
moi je t'es donné 10/10
et merci
merci pour toi aussi MAURICIO
24 nov. 2004 à 10:59
var Ficheiro -> fichier
Texto -> texte à insérer à la fin
Limpar_Primeiro -> permet d' effacer ce qu' il y a dans le fichier avant d' inserer ...
Vazio -> bool = vide?
procedure FicheiroTexto_Append(Ficheiro: String; Texto: String; Limpar_Primeiro: Boolean);
var Fich : TextFile;
Vazio : Boolean;
begin
AssignFile(Fich, Ficheiro);
If (Not FileExists(Ficheiro)) Or (Limpar_Primeiro)
Then Begin
Rewrite(Fich);
Vazio := True;
End
Else Begin
Reset(Fich);
Vazio := Eof(Fich);
End;
Append(Fich);
If Not Vazio
Then Writeln(Fich, ''); // Nouvelle ligne ...
Write(Fich, Texto);
CloseFile(Fich);
end;
C' est une vieille fonction que j' ai faite il y a longtemps.
J' espère que ça va vous être utile.
24 nov. 2004 à 09:01
excépté l'organisation du code
je ne voit pas la nuance delphiprog
23 nov. 2004 à 23:06