Discussion :

[cleecky]

Bonjour à tous !
Alors voila je débute dans le pascal, et je n'arrive pas à comprendre pourquoi il me dit que j'ai une erreur Types incompatibles:'Tpersistent' et 'texte'

Voici un bout de mon code (nous sommes dans la procedure onclick):

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
  copieOk : Bool;
  i : byte;
  sauvgFic,dest,ligne : string;
  fichier : textfile;
begin
  // Initialisation de la variable de verif
  CopieOk := True;
  {$I-}   // Interrompt la détection d'erreur d'entree/sortie
  sauvgFic :='F:\Developpement-Vista\Desktop\stage\tables\';
  mkdir(sauvgFic);
  IOresult;
  { Ouverture en L/E des fichiers }
  FileMode := 2;
  for i:=1 to 10 do
   begin
    {---------- Fichier destination ----------}
    case I of
      1: dest := '_Contact.csv';
      2: dest := '_Entreprise.csv';
      3: dest := '_NumCle.csv';
      4: dest := '_Observation.csv';
      5: dest := '_TypeClient.csv';
      6: dest := '_TypeClient2.csv';
      7: dest := '_TypeEntreprise.csv';
      8: dest := '_facture.csv';
      9: dest := '_refDev.csv';
      10: dest := '_refFact.csv';
    end;
assign(fichier,sauvgFic+dest);
rewrite(fichier);
...

J'ai essayè de mettre dest de type string et file aussi.
l'erreur persiste !
Le problème pourrait il venir de la boucle for?

[archonte]

Je pense que tu devrais essayer un AssignFile(fichier,sauvgFic+dest); plutôt qu'un Assign(fichier,sauvgFic+dest);.

[cleecky]

merci beaucoup ! j'ai plus d'erreur a ce niveau la !!