Inscription
7 mars 2003
Dernière intervention
22 octobre 2010
Interventions
25
Signature

savoir si un Timage et vide [Résolu]

Bonjour j'essaie de savoir si une image est présent dans mon Timage j'ai tenté if photo1.Picture.Bitmap.Empty then showmessage('vrai'); end; sans succès puis images if photo1.Picture:= nil then showmessage('vrai'); end; pareil sans succès Je sais que vous aller me prendre pour neuneu mais j'ai passer beaucoup de temps sans... Lire la suite

enregistrer les information une fois la ligne de la table acces selectionné

Bonjour J'ai actuellement une table access je localise la ligne dont je recherche la chaine de caractère adotable2.Locate('commune',DBEdit3.Text,[]) Une fois la ligne trouver je désirerai prendre chaque cellule de ma ligne et l'enregistrer dans des variables commune: adresse: numero: etc: mais je n'arrive pas j'ai tenté plei... Lire la suite

recherche erreur pour creation pdf

Messieurs bonjour J'ai tenté de mettre ce code mais sans succés unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, RpRender, RpRenderPDF, RpDefine, RpBase, RpFiler, StdCtrls, ComCtrls, shellapi, rpmemo, ExtCtrls; type TForm11 = class(TForm) ... Lire la suite

dupliquer une feuille excel

messieur Bonjour je cherche à dupliquer une feuille excel j'ai essayé OleApplication.ActiveWorkbook.Worksheets[2].Add et OleApplication.Workbooks[1].WorkSheets[2].Sheets.Add; sans succès quelqu'un à t'il une idée merci Lire la suite

equivalent PrintArea pour delphi [Résolu]

Messieurs Bonjour j'ai une petite question qui est toute bête je n'arrive pas à faire une zone d'impression sur excel j'ai tente sans succès OleApplication.Range['A1:G51'].select; OleApplication.Selection.PageSetup.PrintArea :=true; quelqu'un a t'il une petite idée d'avance merci Lire la suite

probleme avec valeur nul [Résolu]

Messieurs bonjour J'ai actuellement une condition qui vérifie le caractère 1 de la boite edit ne soit ni un chiffre ni rien saisie si on n'as rien mis alors if (edit_cherche.Text[1] in ['0'..'9',' ']) then showmessage('aucun robinet connu ne commence par cette lettre'); end; le problème et que l'espace ou rien ne fonction... Lire la suite

impossible de recuperer des donné sans erreur liason circulmaire [Résolu]

Messieurs bonjour je désire afficher les valeurs de la colonne 'commune de ma table dans un DBLookupComboBox et le problème j'ai toujours liaison de données circulaire non autorisé pour info j'ai que 1 ADOTABLE(ADOTable1), j'ai que 1 datasource(data source 1) et dans mon DBLookupComboBox j'ai saisie ceci datafield: commune (nom de ma... Lire la suite

activer une image suivant la valeur retrouver dans la base [Résolu]

Bonjour j'ai actuellement une base de donnée et je cherche un robinet dedans et j'utilise cette syntaxe Code : begin if trystrtoint(edit_cherche.Text,helpvar) then if not adotable1.Locate('numrob',edit_cherche.Text,[]) then showmessage('robinet pas connu') else showmessage('robinet connu') else showmessage('The value... Lire la suite