Salut les DEV
je voudrais dans un memo retourner les messages d'un transfert de données en masse. Je crée la form contenant le memo, j'ajoute les lignes avec add mais le memo ne retourne rien. En un seul mot, rien ne se passe. J'ai lu et relu mon code mais rien ne me semble anormal et je ne comprends toujours pas pourquoi j'ai rien dans mon memo bien qu'en executant pas à pas mon memo est bien renseigné !!!
Je me retourne vers vous pour trouver la solution
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
40
41
42
43
44
45
46
47
48
49 // création de la fenêtre LOG try Application.CreateForm(TfmLOG, fmLOG); fmLOG.ShowModal; fmLOG.cxMemo_LOG.Clear; with fmLOG.cxMemo_LOG.Lines do begin Add('********************************************************'); Add('GEXPLOITE DESK VER 1.0 - MODULE TRANSFERT'); Add('E X P L O I T A T I O N'); Add('Rapport généré automatiquement'); Add('********************************************************'); heure_debut := now; Add('TRAITEMENT DES DONNEES'); Add('********************************************************'); Add('Date début ' + DateToStr(heure_debut) + ' A ' + timeToStr(now)); Add( '********************************************************'); Refresh; end; try // Excel est déjà lancé, utiliser l'instance ExcelApp := GetActiveOleObject('Excel.Application'); except // Lancer excel pour la 1ère fois ExcelApp := CreateOleObject('Excel.Application'); end; try // ouvrir le classeur ExcelApp.Workbooks.Open(pFileName, Unassigned, True); except CloseFile(file_log); raise Exception.Create('Fermer le fichier d''échange tout d''abord'); end; //*************************************** // accèder à la feuille curage try vworksheet := ExcelApp.Worksheets.Item['Curage Réseaux']; except raise Exception.Create('La feuille de calcul Curage Réseaux est introuvable,' + #10#13 + 'assurez-vous qu''elle n''a pas était supprimer ou renommer '); end; ..... suite du code de transfert finally fmLOG.Free; end;
Merci par avance.
Partager