recuperation d'informationRésolu

Question

bonjour a tous
voici mon petit soucis j'aimerai recuperer le nom d'un fichier txt pour l'integré comme nom de bouton

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
Stg:String;
begin
ListBox1.Items.Clear;
AssignFile(F,'moteur1.txt'); //Associe la variable F au fichier texte
Reset(F); //Ouvre le fichier sans le modifier
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
ListBox1.Items.Add(Stg); //Affiche dans ListBox1 le contenu de la variable Stg
until EOF(F); //...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
end;
end.



Merci de votre aide d'avance

Francky23012301 · Accepted Answer

Salut,

Ta question et ton code n'ont aucun sens  :

j'aimerai recuperer le nom d'un fichier txt  et AssignFile(F,'moteur1.txt')

Pour assigner une variable fichier à un fichier, tu utilises AssignFile. Or cette fonction nécessite le nom du fichier, nom que tu as puisque tu écris moteur1.txt.

Donc soit ta question n'est pas claire, soit tu ne sais pas trop ce que tu cherches à faire

f0xi · Answer

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('moteur1.txt');
  Button1.Caption := 'moteur1.txt';
end;

end.

Recuperation d'information

2 réponses

Votre réponse

Discussions similaires