Delphi 2010 : Memo n'affichant rien !
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é !!!
Code:
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; |
Je me retourne vers vous pour trouver la solution ;)
Merci par avance.