While Not EOF(F) dans Thread [Résolu]
cs_Jean_Jean
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
A voir également:
- While not eof delphi
- While not eof - Meilleures réponses
- Eof delphi - Meilleures réponses
- Questionnement sur Do while not EOF() ✓ - Forum - Visual Basic 6
- While not rs.eof and toto = 1 ✓ - Forum - Visual Basic
- Utilisation de la commande "movenext" dans un "do while rec.eof = false" - Codes sources - Visual Basic / VB.NET (VBA)
- Delphi / Pascal : Mini bloc-notes - CodeS SourceS - Guide
- Delphi / Pascal : Bloc note simple - CodeS SourceS - Guide
9 réponses
Meilleure réponse
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
j'ai testé et en changeant:
en
ça fonctionne très bien .. enfin chez moi testé sous D7 & D2009
mais à ta place j'utiliserai les Streams et non AssignFile !!
[hr]@+Cirec
[hr]
j'ai testé et en changeant:
L : string;
en
L : char;
ça fonctionne très bien .. enfin chez moi testé sous D7 & D2009
mais à ta place j'utiliserai les Streams et non AssignFile !!
[hr]@+Cirec
[hr]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
ps:
mets aussi AssignFile avant try :
si l'assignation échoue il n'est pas utile fermer F (Close(F)) puisque non assigné.
[hr]@+Cirec
[hr]
mets aussi AssignFile avant try :
AssignFile(F,FicTest);
try
...
si l'assignation échoue il n'est pas utile fermer F (Close(F)) puisque non assigné.
[hr]@+Cirec
[hr]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
... mais le teste je l'ai fait avec ton code hein (pas avec les Streams)!!
as-tu déjà essayé, dans ton code, de remplacer "string" par "Char" ?
[hr]@+Cirec
[hr]
as-tu déjà essayé, dans ton code, de remplacer "string" par "Char" ?
[hr]@+Cirec
[hr]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 260
- Date d'inscription
- lundi 27 octobre 2003
- Dernière intervention
- 4 mars 2016
Salut,
l'utilisation de Read et de string dans un fichier texte même en utilisant SetLineBreakStyle est.......en gros tu rentres dans un fichier qui ne te donnera jamais de marqueur de fin,donc tu rentres dans une boucle infinie ! Readln te permet d'avoir des marqueurs de fin correcte et de ne pas rentrer dans cette boucle...remplacer string par char permet de faire ce que tu veux,mais caractère par caractère et donc d'arriver à la fin du fichier,mais en terme de performance c'est vraiment pas top...
Pour te convaincre voici une boucle infinie avec Read et un fichier texte de 2 lignes :
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S : string;
begin
AssignFile(F,ExtractFilePath(Application.ExeName)+'Test.txt');
Reset(F);
while not eof(F) do
begin
Read(F,S);
ListBox1.Items.Add(S);
end;
CloseFile(F);
ShowMessage('Fin fichier');
end;
Moi je ferais comme cirec en utilisant les streams...
Bon courage @+yanb
l'utilisation de Read et de string dans un fichier texte même en utilisant SetLineBreakStyle est.......en gros tu rentres dans un fichier qui ne te donnera jamais de marqueur de fin,donc tu rentres dans une boucle infinie ! Readln te permet d'avoir des marqueurs de fin correcte et de ne pas rentrer dans cette boucle...remplacer string par char permet de faire ce que tu veux,mais caractère par caractère et donc d'arriver à la fin du fichier,mais en terme de performance c'est vraiment pas top...
Pour te convaincre voici une boucle infinie avec Read et un fichier texte de 2 lignes :
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S : string;
begin
AssignFile(F,ExtractFilePath(Application.ExeName)+'Test.txt');
Reset(F);
while not eof(F) do
begin
Read(F,S);
ListBox1.Items.Add(S);
end;
CloseFile(F);
ShowMessage('Fin fichier');
end;
Moi je ferais comme cirec en utilisant les streams...
Bon courage @+yanb
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
Salut yanb,
Merci de m'avoir répondu.
Non Readln ne change rien, d'ailleurs avec un Fichier texte, il vaut mieux utiliser readln...
Je pense que le problème vient du fait que les procédures et méthodes de la VCL sont en réalité incluses dans le Thread principal de l'application...
D'où mon intérêt supplémentaire pour essayer de mettre la boucle princiale dans une procédure de la Fiche... Mais c'est une autre structure que celle que je met ici dans ce post...
En attendant, je peux gérer le parcours de mon fichier dans le exécute du Thread par un boolean.
... Je vous tiens au courant... J'attends de résoudre ce problème pour publier mon code...
Beaucoup d'exemples fictifs de thread sur les sites mais peu de réels applis même simplifiées...
@+
Jean_Jean
Merci de m'avoir répondu.
Non Readln ne change rien, d'ailleurs avec un Fichier texte, il vaut mieux utiliser readln...
Je pense que le problème vient du fait que les procédures et méthodes de la VCL sont en réalité incluses dans le Thread principal de l'application...
D'où mon intérêt supplémentaire pour essayer de mettre la boucle princiale dans une procédure de la Fiche... Mais c'est une autre structure que celle que je met ici dans ce post...
En attendant, je peux gérer le parcours de mon fichier dans le exécute du Thread par un boolean.
... Je vous tiens au courant... J'attends de résoudre ce problème pour publier mon code...
Beaucoup d'exemples fictifs de thread sur les sites mais peu de réels applis même simplifiées...
@+
Jean_Jean
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
re bonjour,
Merci pour vos commentaires. Je réponds dans l'ordre.
1. Effectivement, ça marche avec un type Char. Mais pour la démo, j'utilisai un TextFile car ça me paraissait plus rapide de ligne par ligne... Comme quoi!
2. Dans un Fichier Texte, mieux vaut Utiliser Readln effectivement et je suis d'acord que les performances ne sont pas au rendez-vous...
3. Les Stream sont la solution. Commme je vais avoir de nombreux fichiers à analyser dont certains seront assez volumineux, j'ai développé une structure particulière pour mes besoins.
Méthode que je pense adopter :
1. J'ouvre le fichier de travail avec un FileStream 2. Je le copie par bloc dans un memoryStream
(dans le code ci-dessous, un bloc = 1 ligne du fichier)
3. Je procède aux vérifications (ici test de longueur), comptabilité des erreurs constatées et
affichage des progressions et messages
4. Je créée une image du fichier dans un TList afin
pour l'exemple de le trié par ordre alphabétique rapidement
Voilà où j'en suis. ça ne parait pas pas très optimisé. Je vais devoir choisir entre le mémoryStream et la TList me semble t-il. Utiliser les deux parait surfait...
Voici le bout de code actuel:
Merci pour votre aide.
Jean_Jean
Merci pour vos commentaires. Je réponds dans l'ordre.
1. Effectivement, ça marche avec un type Char. Mais pour la démo, j'utilisai un TextFile car ça me paraissait plus rapide de ligne par ligne... Comme quoi!
2. Dans un Fichier Texte, mieux vaut Utiliser Readln effectivement et je suis d'acord que les performances ne sont pas au rendez-vous...
3. Les Stream sont la solution. Commme je vais avoir de nombreux fichiers à analyser dont certains seront assez volumineux, j'ai développé une structure particulière pour mes besoins.
Méthode que je pense adopter :
1. J'ouvre le fichier de travail avec un FileStream 2. Je le copie par bloc dans un memoryStream
(dans le code ci-dessous, un bloc = 1 ligne du fichier)
3. Je procède aux vérifications (ici test de longueur), comptabilité des erreurs constatées et
affichage des progressions et messages
4. Je créée une image du fichier dans un TList afin
pour l'exemple de le trié par ordre alphabétique rapidement
Voilà où j'en suis. ça ne parait pas pas très optimisé. Je vais devoir choisir entre le mémoryStream et la TList me semble t-il. Utiliser les deux parait surfait...
Voici le bout de code actuel:
var
FS : TFileStream;
MSb : TMemoryStream;
I : LongInt;
fFCount : Real; // Pour séparation des milliers dans Format
L,M : String;
C : Char;
TailleBloc: Integer;
Ligne : array [1..12] of char;
begin
{initialisations locales}
...
{DEBUT TRAITEMENT LONG}
{1. Transfert des lignes du Fichier dans une TList afin de trier rapidement
les valeurs du fichier d'origine par ordre alphabétique croissant}
FS := TFileStream.Create(FicTest, fmOpenRead );
TailleBloc := 12;
L := '';
C := #0;
For I:=1 to FS.Size div TailleBloc do
Begin
MSb := TMemoryStream.Create; // Création bloc
MSb.CopyFrom(FS,TailleBloc); // Copie d'un bloc
MSb.Position := 0; // Index début de Bloc
MSb.Read(Ligne,12);
L := Ligne;
If not ((Ligne[11] = #13 ) and (Ligne[12] = #10)) then
begin
inc(FError);
FMsgLog := ' - er n°'+InttoStr(FError)+' : '+L;
Synchronize(AffichageMemoLog);
end;
ListLignesFic.Add(L);
Inc(FCount);
end;
FS.Free;
ListLignesFic.Sort;
fFCount := FCount;
FMsgLog := ' - '+Format('%.0n',[fFCount/1])+' éléments triés';
Synchronize(AffichageMemoLog);
FMessage := 'Triage du Fichier effectué...';
Synchronize(AfficherMessage);
...
if FError = 0 then
begin
FMsgLog := 'Vérification longueur des '+inttoStr(FCount)+' enregistrements effectuée';
Synchronize(AffichageMemoLog);
FMsgLog := '- Aucune erreur détectée';
Synchronize(AffichageMemoLog);
end;
Merci pour votre aide.
Jean_Jean
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.