Lire une ligne d'un fichier

Réponse acceptée !
Salut,
essaye avec un TStringList :

procedure TForm1.Button1Click(Sender: TObject);
Var TS : TStringList;
  Texte : String;
Begin
  TS := TStringList.Create;
  Try
    TS.LoadFromFile('Nom_du_Fichier');
    Texte := TS[0];  // on affecte la première ligne à Texte
  Finally
    TS.Free;
  End;
  Label1.Caption := Texte;  // on l'affiche dans un Label
End;


 
@+
Cirec

---

Réponse acceptée !
Bon faut pas pousser quand même ...
s'il a besoin que du texte entre les crochets rien de plus simple :

    Texte := Copy(TS[0], 2, Length(TS[0]) - 2);


 
@+
Cirec

---