procedure TForm1.btnCreateFileClick(Sender: TObject); var fic: TextFile; i: Integer; Field: TField; begin AssignFile(fic, 'C:\test.txt'); try Rewrite(fic); writeln(fic, '[header]'); with Query1 do try open; First; DisableControls; // eviter de re-peindre l'écran while not Eof do begin for i := 0 to FieldCount - 1 do begin if i > 0 then Write(fic, ';'); // le séparateur un blanc field := fields[i]; //chaines sur 15 caractères if field is TStringField then Write(fic, format('%15.15s', [field.AsString])) else if field is TIntegerField then // entiers sur 15 caractères write(fic, field.asInteger: 15) else if field is TFloatField then // réels sur 10 caractères dont 2 décimales write(fic, field.asFloat: 10: 2) else if field is TDateTimeField then write(fic, FormatDateTime('YYYY-mm-dd', field.AsDateTime)); end; WriteLn(fic); Next; end; finally EnableControls; end; finally writeLn(fic, '[footer]'); CloseFile(fic); end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question