Bonjour,
Je travaille avec un fichier UDL pour établir la connexion entre mon application en DELPHI7 et la BDD SQL. Je veux lire le contenu de mon fichier UDL et le mettre dans une variable liste String. Pour ceux j'utilise la procédure suivante (sachant que je considère mon fichier UDL comme un fichier TEXT) mais ça ne marche malheureusement pas. Avez vous des idées pour m'aider SVP??
P.S: tous se compile sans faute mais le résultat n'est pas du tout le contenu du fichier
Voilà ma procédure:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.button1click(Sender: TObject); Var F: textFile; Stg:String; begin //Lire le contenu du fichier Memo1.Clear; //Efface le contenu de Memo1 AssignFile(F,ExtractFilePath(Application.ExeName)+'test.udl'); Reset(F); repeat //Repeter... Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne Memo1.Lines.Add(Stg); //Affiche dans Memo1 le contenu de la variable Stg pour savoir ce qui me donne comme sortie until EOF(F);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier CloseFile(F); end;
Partager