Accueil > Forum > > > > Afficher les infos récupérer dans un fichier sequentiel
 Afficher les infos récupérer dans un fichier sequentiel
samedi 6 octobre 2012 à 12:36:50 |
Afficher les infos récupérer dans un fichier sequentiel
roironm
|
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
Code Delphi : 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; |
|
samedi 6 octobre 2012 à 12:40:11 |
Re : Afficher les infos récupérer dans un fichier sequentiel
roironm
|
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:
Code Delphi : 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;
|
|
lundi 8 octobre 2012 à 12:00:14 |
Re : Afficher les infos récupérer dans un fichier sequentiel
MAURICIO
|
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. |
|
lundi 8 octobre 2012 à 13:26:18 |
Re : Afficher les infos récupérer dans un fichier sequentiel
roironm
|
Merci pour l'info Mauricio,
je vais essayer cela ce soir.
|
|
Cette discussion est classée dans : fichier, récupérer, code, emp, sequentiel
 Répondre à ce message
 Sujets en rapport avec ce message
Récupérer le code d'une erreur [ par obitskater ]
Bonjour à tous. Il m'a été demandé de "protéger" le code que je viens de créer. Je m'explique, en effet je dois retranscrir tout ce qui s'est passé du
récupérer un morceau de texte précis dans un fichier html [ par Dagnir ]
Bonjour, heu... non, à partir de minuit je pense qu'on peut commencer à dire bonsoir.Voilà j'ai un fichier avec l'extension htm et il y a dedans une c
code source du projet [ par nethacker ]
salut,j'aimerais bien savoir s'il existe un moyen de reformuler la source ou plutot le fichier .passachant que j'ai les fichier suivant_ projet compil
Erreur avec Write [ par Francislaremote ]
Bonjour,J'ai programmé pendant deux ans sur Delphi mais pour divers raisons j'ai du arreter durant 5 année. Je m'y remets à présent mais non sans diff
Code HTML [ par ProphetKy ]
Bonjour a tous,je voudrais faire un programme qui chercher une page HTML et la copie soit une mon HDD en fichier TXT ou il me la copie dans une variab
Problème de téléchargement de fichier depuis un serveur en FTP [ par phephelavi ]
Bonjour, <p class="MsoNormal" style="MARGIN: 0cm
Récupérer le nom de fichier afficher dans QRPreview [ par codial ]
Bonjour,j'ai fais un preview personnalisé sous Quick report et je cherche comment récupérer le nom du fichier à éditer, c'est à dire cekui qui est dan
Transformer du texte en code [ par Bacterius ]
Bonjour, je voulais savoir s'il était possible de charger par exemple, un fichier texte contenant ca :procedure Nouvelleprocedure(Var1, Var2: Type);be
Recupérer données Dbase pour écriture .txt [ par miabi ]
Bonjour,J'aimerais savoir comment faire pour récupérer une partie d'une base de données afin de l'écrire dans un fichier texte.Je vais vous donner exa
 Livres en rapport
|
Derniers Blogs
 INTéGRATION YAMMER ET SHAREPOINT ONLINE (OFFICE 365), éTAPE 1 .INTéGRATION YAMMER ET SHAREPOINT ONLINE (OFFICE 365), éTAPE 1 . par Patrick Guimonet
#Yammer Certains s'en sont déjà fait l'écho (ici en allemand par exemple : Yammer Integration in Office 365 Phase 1) ou bien sûr sur le blog SharePoint : Make Yammer your default social network in Office 365 en anglais. Mais c'e...
Cliquez pour lire la suite de l'article par Patrick Guimonet [DYNAMICS CRM] AJOUTER LES DOSSIERS DE CRM AU DOSSIER FAVORIS D'OUTLOOK[DYNAMICS CRM] AJOUTER LES DOSSIERS DE CRM AU DOSSIER FAVORIS D'OUTLOOK par bianca
Objectif
Pour aller plus rapidement dans les menus de Dynamics CRM depuis votre client CRM pour Outlook, vous pouvez utiliser le dossier des Favoris d'Outlook. En effet, par simple glisser/déplacer, vous pouvez déposer un éléme...
Cliquez pour lire la suite de l'article par bianca VISUAL STUDIO 2013VISUAL STUDIO 2013 par Etienne Margraff
Ahh, ENFIN ! c'est officiel, il va y avoir un VS et un TFS 2013. De nouvelles fonctionnalités qui vont à mon sens assoir la maturité de TFS qui est maintenant l'outil incontournable pour tout projet (.NET, mais pas seulement !). Si vous n'avez pas jet...
Cliquez pour lire la suite de l'article par Etienne Margraff CONFIGURER LA COLLATION SQL SERVER POUR SHAREPOINT CONFIGURER LA COLLATION SQL SERVER POUR SHAREPOINT par JeremyJeanson
Note : Je poste cet article à titre de pense-bête. Cela fait des années que je me trimballe avec une capture d'écran, car je ne me rappel jamais comment choisir la collation d'un SQL Server pour SharePoint. Pour SharePoint, il est conseillé de choisir la ...
Cliquez pour lire la suite de l'article par JeremyJeanson ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 1: CRéATION DU PLUGINETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 1: CRéATION DU PLUGIN par Philess
Dans cet article nous allons créer un plugin installable sur le Team Web Access qui s'intègrera dans l'architecture du site et se chargera au moment où on le décidera.
Avant de lire ce billet et si cela n'est pas encore fait j...
Cliquez pour lire la suite de l'article par Philess
Logiciels
 Nego Facturation (1.85)NEGO FACTURATION (1.85)Nego Facturation est un logiciel complet qui permet de gérer vos factures et devis très simplemen... Cliquez pour télécharger Nego Facturation Devis-Factures PHMSD (2.2.0.1)DEVIS-FACTURES PHMSD (2.2.0.1)Configuration minimale
Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à... Cliquez pour télécharger Devis-Factures PHMSD WDmemoCode (2.0.0.1)WDMEMOCODE (2.0.0.1)WDmemoCode a été conçu pour aider les développeurs Windev à créer/compléter et conserver une base... Cliquez pour télécharger WDmemoCode ProtoMedic (4.0.0.11)PROTOMEDIC (4.0.0.11)ProtoMedic est un logiciel destiné principalement aux médecins généralistes.
ProtoMedic permet d... Cliquez pour télécharger ProtoMedic MyCurriculum 2011 (7.4.1.12)MYCURRICULUM 2011 (7.4.1.12)Rédigez votre Curriculum Vitae mais également ceux de votre famille ou de vos amis très facilemen... Cliquez pour télécharger MyCurriculum 2011
|