ImportByFormatDef (rtl) - Historique des versions

Syfre le 4 novembre 2017 à 10:00

2017-11-04T10:00:57Z

Tdymon le 16 janvier 2017 à 13:07

2017-01-16T13:07:47Z

Tdymon le 16 janvier 2017 à 13:01

2017-01-16T13:01:10Z

Thdym le 22 mars 2012 à 08:26

2012-03-22T08:26:30Z

Thdym le 11 janvier 2012 à 10:52

2012-01-11T10:52:24Z

Thdym le 15 novembre 2011 à 09:04

2011-11-15T09:04:32Z

Syfre le 28 juin 2011 à 08:14

2011-06-28T08:14:35Z

Syfre : a renommé IntegrateByFormatDef (rtl) en ImportByFormatDef (rtl)

2011-06-28T07:42:28Z

a renommé IntegrateByFormatDef (rtl) en ImportByFormatDef (rtl)

Delphi le 27 juin 2011 à 14:24

2011-06-27T14:24:41Z

Nouvelle page

<source lang="delphi">Procedure IntegrateByFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);</source>

description

{|class="wikitable"
|-
|aCodeFormat
|
|-
|aData
|
|-
|aRefObject
|
|-
|aLogLevel
|
|}

Exemple

<source lang="delphi">
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Framework]]

Syfre le 27 juin 2011 à 13:30

2011-06-27T13:30:56Z

@@ Ligne 45 : / Ligne 45 : @@
    // Locate the format definition
    // Recherche du format en dur
-   vFormatCode := 'INT_VIRNAT_160';
+   vFormatCode := 'INT_SEPA_SCT_PAIN.001.001.03';
    vFormatIntegrationFichier := TFormatIntegrationFichier.Find('(code=%1)','',true,[vFormatCode]);

@@ Ligne 1 : / Ligne 1 : @@
-<source lang="delphi">Procedure IntegrateByFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);</source>
+<source lang="delphi">Procedure ImportbyFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);</source>
 Cette méthode permet d'importer un fichier en utilisant un format.
@@ Ligne 92 : / Ligne 92 : @@
 Voir aussi:
 {{Footer|Développement DSM}}
 [[category:RTL Framework]]
 [[Category:RTL Format de fichier]]

@@ Ligne 41 : / Ligne 41 : @@
   vTimeLst : LongInt;
   vTimeCom : LongInt;
-  vTrackingMode : Integer;
+  vTrackingMode : FormatLogLevel;
 begin
    // Locate the format definition

← Version précédente		Version du 11 janvier 2012 à 10:52
Ligne 74 :		Ligne 74 :
	ProgressMessage(Format(_TP('Intégration en %s ms.'),[TickToString(vTimeInt-vTimeOrg)]));		ProgressMessage(Format(_TP('Intégration en %s ms.'),[TickToString(vTimeInt-vTimeOrg)]));

−	~~//<<Début section ancien modèle avant Tahoe, désormais inutile car la session est affectée automatiquement~~
−	~~//A noter que si l'on ne veut pas garder les données -: vider la liste & rollback~~
−	~~ProgressMessage(Format(_TP('Ajout des %s remises dans la session.'),[IntToStr(ListeRemise.Count]));~~
−	~~vTimeLst := GetTickCount;~~
−	~~for vIdxRem := 0 to ListeRemise.Count-1 do~~
−	~~SessionImportation.ImportDonneeList.Addref(ListeRemise.Refs[vIdxRem]);~~
−
−	~~listeRemise.Clear;~~
−	~~ProgressMessage(Format(_TP('Liste des données créées en %s ms.'),[TickToString(vTimeLst-vTimeInt)]));~~
−	~~//Fin de section optionnelle>>~~
	ProgressMessage(_TP('Fermeture de la transaction.'));		ProgressMessage(_TP('Fermeture de la transaction.'));

@@ Ligne 74 : / Ligne 74 : @@
       ProgressMessage(Format(_TP('Intégration en %s ms.'),[TickToString(vTimeInt-vTimeOrg)]));
       //A noter que si l'on ne veut pas garder les données -: vider la liste & rollback
       ProgressMessage(Format(_TP('Ajout des %s remises dans la session.'),[IntToStr(ListeRemise.Count]));
@@ Ligne 82 : / Ligne 83 : @@
       listeRemise.Clear;
       ProgressMessage(Format(_TP('Liste des données créées en %s ms.'),[TickToString(vTimeLst-vTimeInt)]));
       ProgressMessage(_TP('Fermeture de la transaction.'));

← Version précédente	Version du 28 juin 2011 à 07:42
(Une révision intermédiaire par un utilisateur est masquée)