Discussion :

[breizh44]

Bonsoir,

J'ai des fichiers txt comprenant des informations précises.

Je souhaite lors de l'ouverture d'une fenêtre que mon programme vérifie que ces fichiers soient bien sur le disque dur (à un endroit précis et fixe dans le temps).

Si les fichiers sont présents, mon programme devra ouvrir chaque fichiers txt et copier le contenu dans des memos distincts.

La fonction de vérification de présence fichier est-elle l'instruction FindFirts? Si oui comment s'articule-t-elle? Et si les fichier ne sont pas présents, quelle issue?

Merci

[Aka Guymelef]

Tu peux tout simplement utiliser FileExists qui prend en paramètre le nom + chemin du fichier et renvois un booléen.

Sinon pour la petite histoire ça peut marcher aussi avec FindFirst : si le fichier est présent alors la fonction retourne 0 et sinon un code d'erreur différent de 0.

[breizh44]

Merci Aka Guylemef,

Donc si je te comprends bien une simple ligne de code

Code :

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

1
2
 
if fileExist('c:\zigouigoui\scregnegne.txt') = true then ...

??

C'est après le then que je patauge pour coller le contenu du fichier texte dans le memo.

Je fais F1, mais....

[Aka Guymelef]

FileExists ne fait rien de plus que de te dire si le fichier existe ou pas. Il ne se charge pas de te l'ouvrir et de te le conserver en mémoire quelque part pour que tu l'utilise après. Une fois dans le Then tu fais comme d'habitude, une variable de type TextFile, Open, Rewrite (ou Reset ou Append suivant tes besoins), ReadLn, WriteLn, etc...

Tu as même de la chance puisque c'est un TMemo, en effet si tu veux juste bêtement recopier tout le contenu tu as une méthode SaveToFile au niveau de la propriété Lines du TMemo qui te facilitera très certainement bien la vie.

[breizh44]

pourquoi ceci ne marche pas ???

Code :

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

1
2
 
if fileexists('c:\dethermine\users\agence.txt') = true then combobox1.Text := FileOpen('c:\dethermine\users\agence.txt',(fmOpenReadWrite));

[Aka Guymelef]

Oulah, oulah, oulah ne mélangeons pas tout là

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  F: TextFile;
// si le fichier existe
if FileExists( 'c:\dethermine\users\agence.txt' ) then
begin
  // assigner le fichier à la variable F
  AssignFile( F, 'c:\dethermine\users\agence.txt' );
  // ouvrir le fichier
  Reset( F )
  // récupérer la première ligne du fichier (séparée par un retour chariot)
  // et l'affecter au TComboBox si le fichier n'est pas vide
  if not Eof( F ) then
    combobox1.Text := ReadLn( F );
 
  // fermer le fichier
  CloseFile( F );
end;

[gaby277]

Bonjour.
Pour charger le contenu d'un fichier texte dans un mémo
memo1.Lines.LoadFromFile(...);
C'est mieux que SaveToFile

[Aka Guymelef]

En effet c'est moi qui avait mal lu l'intitulé de départ "ouvrir chaque fichiers txt et copier le contenu dans des memos distincts" et non pas "copier le contenu des memos distincts dans chaque fichiers txt" comme mon cerveau avait voulu lire. Merci de m'avoir repris

[breizh44]

Merci pour la réponse Aka Guymelef,

J'ai lu ton code. Il me semble l'avoir compris, mais ce que je ne comprends pas c'est que quand je lance le débogueur, celui-ci s'arrête sur

Code :

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

1
2
 
if not Eof( F ) then combobox1.Text := ReadLn( F );

En me précisant : [Pascal Erreur] users.pas(67): E2010 Types incompatibles : 'string' et 'procedure, untyped pointer or untyped parameter'

D'autre part, je ne comprends pas la position de ton "begin" dans ton code.

Merci.

[philnext]

Comme déja indiqué le plus simple est :

Code :

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

if fileExists('c:\toto.txt') then memo1.Lines.LoadFromFile('c:\toto.txt');

[breizh44]

oui mais comment affecter le contenu d'un fichier txt au text d'une combobox?

[ShaiLeTroll]

Avec un minimum d'effort, tu auras pu consulter l'aide de la fonction ReadLn et lire comment on l'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
  F: TextFile;
  S: string;
 
if FileExists( 'c:\dethermine\users\agence.txt' ) then
begin
  AssignFile( F, 'c:\dethermine\users\agence.txt' );
  Reset( F )
  if not Eof( F ) then
    ReadLn( F, S )
  else
    S := '';
  combobox1.Text := S ;
  CloseFile( F );
end;

[breizh44]

Merci Shai Le Troll mais je débute vraiment en delphi, et je ne manque jamais de faire F1.

Quand je prends ton code, j'ai plein d'erreurs qui s'affichent.

Comme je l'ai dit plus haut, ça commence à bugger dès le begin.

Tout ce qui suit n'est pas déclaré.

N'y a-t-il pas un ";" après Reset?

Merci pour l'indulgence et pour l'investissement!

[ero-sennin]

Salut,

En effet, il manque un ';' après le Reset ... et il faut bien comprendre que ShaiLeTroll t'as mis sur la voie ... Un peu d'adaptation est nécessaire

Voici ce que je propose (modification du code de Shai ...) pour te montrer comment adapter ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
  if FileExists( 'c:\dethermine\users\agence.txt' ) then
  begin
    AssignFile( F, 'c:\dethermine\users\agence.txt' );
    Reset( F );
    if not Eof( F ) then
      ReadLn( F, S )
    else
      S := '';
    combobox1.Text := S ;
    CloseFile( F );
  end;
end;

J'espère que tu comprendras!
A+

[breizh44]

Mille Mercis à tous! C'est avec des gens comme vous que l'on tient le coup pour continuer la programmation et évoluer petit à petit!

Merci Merci Merci!

Et je clique sur "Résolu" !