Afficher les infos récupérer dans un fichier sequentiel

Question

Bonjour,

J'essaie de récupérer une info dans un fichier sequentiel avec comme paramêtre un nom:string, mais je ne récupère pas le bon. voici le code de la procédure

procedure affInfos(nom : String);
var
  fichier : TEmpFich;
  emp : TEmploye;
begin
ShowMessage('parametre ' + nom);
  AssignFile(fichier,fichierOld);
  if not FileExists(fichierOld) then Exit;
  Reset(fichier);
  Seek(fichier,0);
  while not Eof(fichier) do
    Read(fichier, emp);
    if UpperCase(emp.Nom) = UpperCase(nom) then ShowMessage('Nom : ' + emp.Nom + #13 +'Prénom : ' + emp.Prenom + #13 + 'Salaire : ' + emp.Salaire);
end;

roironm · Answer

Résolue, désolé de poluer le forum avec mes questions avant de réfléchir

la solution: il faut rajouter le begin et le end à la boucle while voici le code:
procedure affInfos(nom : String);
var
  fichier : TEmpFich;
  emp : TEmploye;
begin
  AssignFile(fichier,fichierOld);
  if not FileExists(fichierOld) then Exit;
  Reset(fichier);{lie le fichier}
  Seek(fichier,0); {le curseur se place au début}
  while not Eof(fichier) do
    begin
     Read(fichier, emp);
     if UpperCase(emp.Nom) = UpperCase(nom) then ShowMessage('Nom : ' + emp.Nom + #13 +'Prénom : ' + emp.Prenom + #13 + 'Salaire : ' + emp.Salaire);
    end;{while}
end;

cs_MAURICIO · Answer

Salut, 

tu t' embêtes pour rien avec ta pseudo gestion de base de données avec un fichier!
Je te conseille d' utiliser le TClientDataset qui permet de sauvegarder sous le format *.xml et qui est très simple à utiliser/déployer. 

A+


Composants Cindy pour Delphi
Faites une donation.

roironm · Answer

Merci pour l'info Mauricio,

je vais essayer cela ce soir.

Afficher les infos récupérer dans un fichier sequentiel

3 réponses

Votre réponse

Discussions similaires