Discussion :

[Maldus]

Salut a tous, je traine sur ce forum depuis déja quelques temps, mais je n'avais encore jamais posté car toutes mes questions trouvaient réponses.

Mais la je bloque sur une question toutes bêtes. En temps normal j'aurait essayer de comprendre tout seul mais la c'est trop, ca me parait trop bête.
Je m'explique, je tente de récuperer un chiffre qui est stocké dans un fichier *.txt et l'afficher dans un label au démarrage de l'application.
Pour le moment je me suis arreter sur le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
var fichier: textfile;
nbp: widestring;
begin
assignfile(fichier ,'nbt.txt'); //read() Reset()
reset(fichier);
read(fichier);
nbp := copy (fichier,0,2);
Label4.Caption :=nbp;
closefile(fichier);
end;

Mais cela ne semble pas marcher.
Si quelqu'un pouvait éclairer ma lanterne, je lui en serait reconnaissance.
Merci d'avance.

Je tient en tout cas à remercier les admin pour ce forum interessant !


ps: je précise que je suis débutant en delphi donc ma question peut vous paraitre idiote.



Merci encore a ceux qui prendront le temps de me lire


Bonne soirée

[Pedro]

Bonjour et bienvenue sur developpez.com

Le problème vient de ton read
Regarde l'aide de Delphi:

procedure Read(var F: file; V1: Pointer [; V2; ...; Vn]);

Tu dois d'abord spécifier le fichier que tu as ouvert (fichier), et ensuite, mettre la variable de ce que tu lis
Ca donnerait ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormCreate(Sender: TObject);
var fichier: textfile;
     nbp: string;
begin
  AssignFile(fichier ,'nbt.txt'); //read() Reset()
  Reset(fichier);
  Readln(fichier, nbp);
  closefile(fichier);
  Label4.Caption :=nbp;
end;

Mais le plus simple serait d'utiliser une TStringList:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var t: TStringList;
begin
  t := TStringList.Create;
  t.LoadFromFile('nbt.txt');
  Label4.Caption := t.Strings[0];
  t.Free;
end;

[ero-sennin]

Salut,

Afin de lire ton fichier texte, il faut faire comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
var
fichier: textfile;
nbp: string;
begin
assignfile(fichier ,'nbt.txt'); //read() Reset()
reset(fichier);
readln(fichier,nbp);//lit la ligne et met le contenu de cette ligne dans nbp
Label4.Caption :=nbp;
closefile(fichier);
end;

Voilà, j'espère que c'est ce que tu cherches à faire
Bonne soirée

[qi130]

Le problème est ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

read(fichier);

Tu lis le fichier, et le résultat de la lecture va.......nulle part

Regarde de plus près le syntaxe du Read par la touche magique

De plus, comme c'est un fichier texte, tu pourrais acquérir toute 1 ligne par ReadLn (enfin, si tu as besoin)

[edit] Arh coiffé sur le poteau !!!

[Maldus]

Wow, merci a tous pour ces aides rapides et complètes.
Désolé si cela se trouvait dans l'aide Borland, mais je ne suis pas tombé dessus ne pensant vraiment pas que le probleme venait de la.



Merci encore mon probleme est résolu.



Bonne soirée a tous