FileListBox

Résolu

nuttyfbr Messages postés 57 Date d'inscription mardi 31 août 2004 Statut Membre Dernière intervention 8 octobre 2006 - 22 juil. 2005 à 16:02
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 22 juil. 2005 à 17:02

Heu ... Hello,j'aimerais pour commencer, que dans le code suivant :

Dim s As String

Open "Nom du fichier" For Input As #1

Input #1, s
Label1.Caption = s

Input #1, s

Label2.Caption = s

Input #1, s

Label3.Caption = s

Close #1

Que le "Nom du fichier" soit le fichier sélectionné dans une FileListBox (File1).

Merci ...

NuttyKizzy

A voir également:

Delphi filelistbox
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Télécharger delphi ds150e gratuit windows 10 ✓ - Forum Delphi / Pascal
Delphi stringreplace - Forum Delphi / Pascal
Shellexecute delphi ✓ - Forum Delphi / Pascal

4 réponses

Réponse 1 / 4

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
22 juil. 2005 à 16:14

Private Sub File1_Click()

MsgBox File1.Path & "" & File1.List(File1.ListIndex)

End Sub

Daniel

Réponse 2 / 4

cs_frop01 Messages postés 1352 Date d'inscription lundi 27 octobre 2003 Statut Membre Dernière intervention 19 novembre 2008 2
22 juil. 2005 à 16:22

salut,

regardes dans mes codes sources.

Bonne continuation
PS: Si votre problème est résolu, prière de bien vouloir clôturer votre message par une réponse acceptée !

Réponse 3 / 4

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
22 juil. 2005 à 17:01

Avec une petite amélioration en plus, cela donne :

Open File1.Path & "" & File1.List(File1.ListIndex) For Input As #1
Input #1, Label1.Caption
Input #1, Label2.Caption
Input #1, Label3.Caption
Close #1

Réponse 4 / 4

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
22 juil. 2005 à 17:02

Hé !!! CanisLupus !! Nuttyfbr est ton rejeton ???

Discussions similaires

Convertir un png en jpeg Delphi XE

Parametre de ShellExecute

Manipulation avec FormatDateTime

Fonction Pos().

fonction opposée a FormatDateTime