Accueil > Forum > > > > ReadLn
ReadLn
jeudi 26 février 2004 à 19:35:56 |
ReadLn

TheChikenKiller
|
J'ai plein de problèmes avec la commande read ln. Je voudrai recuperer des informations sur chaque ligne jusqu'a une ligne qui ne continent plus rien en utilisant repeat, readln, until. Merci d'avance. PS : je peux utiliser d'autres fonctions. @+
|
|
jeudi 26 février 2004 à 23:56:25 |
Re : ReadLn

yoghisan
|
Voila un code qui lit un fichier texte jusqu'à la fin du fichier Il y a deux précautions qui sont prises sur : - l'existance du fichier - le type de fichier (test pas orthodoxe mais très pratique) function LireFichier(Fichier:string):Boolean; var F:TextFile; S:string; begin if not FileExists(Fichier) then begin ShowMessage('Le fichier n''existe pas...'); Result := False; exit; end; if (ExtractFileExt(Fichier)='.txt') or (ExtractFileExt(Fichier)='.TXT') then else begin ShowMessage('Le fichier n''est pas un fichier texte.'); Result := False; exit; end;
AssignFile(F,Fichier); Reset(F); while not eof(F) do begin Readln(F,S); showmessage(S); end; CloseFile(F); Result := True; end; |
Si tu veux vraiment t'arreter à la premiere ligne vide, il faut rajouter dans la boucle while ceci while not eof(F) do begin Readln(F,S); showmessage(S); if S='' then break; end; |
|
|
vendredi 27 février 2004 à 11:58:12 |
Re : ReadLn

TheChikenKiller
|
En fait le fichier existe obligatoirement ! Je le crèe juste avant et je lui telecharge des infos. Mais je ne comprend pas très bien le reste de la source. Tu pourrais m'expliquer. Au passage je m'en sert pour recuperer une liste d'adresses ip pour faire une sorte de client p2p. @+ ~Art~ (saying to be the chikenkiller)
|
|
vendredi 27 février 2004 à 14:43:50 |
Re : ReadLn

yoghisan
|
Procedure LireFichier(Fichier:string); var F:TextFile; S:string; begin // Affecte le nom d'un fichier externe à une variable fichier ici F AssignFile(F,Fichier); // Ouvre un fichier existant. Reset(F); // Boucle se terminant lorsque on a lu la dernière ligne de la variable fichier F while not eof(F) do begin // lire la ligne de la variable Fichier F et colle le contenu dans la variable string S Readln(F,S); // Traiter la varaible string S showmessage(S); end; // Ferme un fichier ouvert. CloseFile(F); end; |
|
|
vendredi 27 février 2004 à 15:06:12 |
Re : ReadLn
|
Cette discussion est classée dans : ligne, readln
Répondre à ce message
Sujets en rapport avec ce message
Lecture fichier texte ligne par ligne [ par MattXSFR ]
J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :procedure
Questions [ par SMoG ]
yop ;)je sollicite de votre bienveillance pour .. heu nan :)Quelle est l'API pour choper l'IP en cours ?Comment faire communiquer deux ip ? (le premie
Ouverture, lecture d'un fichier en mode binaire [ par SMoG ]
YoOOooOOoooooo la dedans :)bon voila, j'aimerais ouvrir et lire un fichier en mode binaire ligne par ligne, mais j'ai trouvé que des méthodes qui lise
TreeView [ par XJapan ]
Salut à tous !Je voudrais savoir si il a possibilite de changer le contenue d'un TreeView par click sur un bouton. J'ai du mal a me depatouiller avec
fichier d'aide en ligne [ par bdv ]
quelqu'un a t il déja réalisé une aide en lignequelque soit sa forme toutes idées, suggestions, ou sources bienvenuesthanks
NB Ligne dans un fichier texte [ par ProGMaN007 ]
salut, comment connaître le nombre de ligne dans un fichier txt ?
ajouter ligne par ligne dans une listbox [ par ELECTRORESiSTiK ]
Bonsoir,Je voudrais ajouter dans une listbox toutes les lignes d'un fichier TXT mais pas avec LoadFileFromFile, de manière avec une boucle, parce que
Ajout de ligne sur DBGrid [ par webazard ]
Bonjour, Voila je commence tout juste sur dephi et je voudrais savoir comment ajouter de lignes dans un DBGrid ou me dire quoi d'autre utiliser, mon s
DELPHI - WORD : quelle solution technique pour un tableau sous Word ? [ par manudel ]
Je dois récupérer le contenu d'un curseur avec un composant OracleDataSet.Sur mon document Word, j'ai un tableau de 10 lignes, avec 8 colonnes.Dans mo
modif 1 ligne d'1 TTable avec DBEdit [ par naru ]
bonjour, voila mon prob:il est facile de modifier les champs d'une ligne d'une TTable avec une DBgrid mais je voudrais le faire avec des DBEdit.J'ai d
Livres en rapport
|
Derniers Blogs
[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : DELPHIRE : DELPHI par overtaker
Cliquez pour lire la suite par overtaker RE : DELPHIRE : DELPHI par rt15
Cliquez pour lire la suite par rt15
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|