Enregistrement en fichier csv

**showza** · 31/03/2009, 14h02

Bonjour à tous !!

J’ai créé une application qui me permet de gérer les ports com, c'est à dire que je le configure et que je récupère des trames sur un mémo, mais j'aimerais également récupérer ces trames sur un fichier csv.

Donc j'ai créé la procédure que voici

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
33
34
35
36
37
38
39
procedure TFrmMain.SaveLigneBrute(str: string);
  //------------- procedure d'enregistrement d'une ligne --------------
var Sep : char;
    F : textfile;
    Dossier, StrTmp : string;
    Date : string;
begin
 //----- init
 Sep := ',';
 Date := DateTimeToStr(Now);
 //----- ecriture dans fichier texte
 Dossier := ExtractFilePath(Application.ExeName);
 if not DirectoryExists(Dossier) then
   if not CreateDir(Dossier) then
     raise Exception.Create('Impossible de créer ' + Dossier);
 NomfichierBrute := Dossier + 'data' + '.csv';
 if not FileExists(NomFichierBrute) then
 begin
   //-------------------
   AssignFile(F,NomFichierBrute);
   Rewrite(F);
   //--------- entête --------
   StrTmp := 'Date : '+ Date; Writeln(F,StrTmp);
   StrTmp := '--------------------'; Writeln(F,StrTmp);
   StrTmp := 'Temps' + Sep + 'Trame '; Writeln(F,StrTmp);
   StrTmp := ''; Writeln(F,StrTmp);
   //-------------------------
   StrTmp := FormatDateTime('hh:nn:ss.zzz',Now) + Sep + str;
   Writeln(F,StrTmp);
   Closefile(F);
 end else
 begin
   AssignFile(F,NomFichierBrute);
   Append(F);
   StrTmp := FormatDateTime('hh:nn:ss.zzz',Now) + Sep + str;
   Writeln(F,StrTmp);
   Closefile(F);
 end;
end;

Je compile le projet sans problème mais le fichier csv ne se crée pas et je n'arrive pas à comprendre pourquoi.
Pour information la variable str correspond à ma trame

**ChPr** · 01/04/2009, 11h08

Ce code fonctionne très bien avec Delphi et Lazarus sous Windows (pas essayé sous Linux) pour autant qu'on remplace la variable "str" par autre chose car "str" est un mot réservé.

Une remarque, sous Windows et avec Lazarus, j'ai créé une application, j'ai copié cette procédure et l'ai mise dans l'enveloppe d'un ButtonClick : cela ne fonctionne pas tant qu'on a pas enregistré le projet ???

Cordialement.

Pierre

**showza** · 01/04/2009, 14h29

Une remarque, sous Windows et avec Lazarus, j'ai créé une application, j'ai copié cette procédure et l'ai mise dans l'enveloppe d'un ButtonClick : cela ne fonctionne pas tant qu'on a pas enregistré le projet ???

Mon problème a été résolu !!