Inscription
29 décembre 2004
Dernière intervention
2 octobre 2014
Interventions
189
Sexe
Homme
Localisation
, FRANCE
Signature

NewGint

Bonjour, J'avais un besoin de traiter de très grands nombres et je viens de découvrir l'unité NewGint et NewGCent. C'est fabuleux. Dans le fichier de documentaion, il est question d'une IsGIntDivWord(Nb:Gint, Dv : word):boolean. Cette fonction n'existe pas dans l'unité NewGint.pas fourni. ici : http://codes-sources.commentcamarche...

FIREBIRD CONNEXION

/source/54917-firebird-connexion

TcyDBAdvGrid et CheckBox [Résolu]

Bonjour, J'ai un champs 'Avec_PRG' de type smallint borné entre 0..1 (la base ne gére pas le type boolean) Je veux afficher un checkbox dans un TcyDBAdvGrid (compo de Mauricio, pour ceux qui connaissent pas, c'est ICI) La colonne n'est pas en Readonly (sinon je m'en sort avec un fkCalculated) Ce code fonctionne, mais à coté du ...

TcyDBAdvGrid - EditorAcceptKey - Parser [Résolu]

Bonjour à tous, Encore une petite question sur les compos de Mauricio ! Pour restreindre la saisie dans un champ d'un DBgrid j'utilise le ValidChars du Tfield Pour un TFloatField FieldByName('AR_QTE').ValidChars := #13, '0'..'9', ',', '.'; Mais mon problème n'est pas là, je veux par exemple pour un Float, interdire la sais...

Tcolumns [Résolu]

Bonjour, Dans l'événement OnDrawColumnCell d'un DBGrid j'effectue la coloration des lignes en fonction des valeurs contenu dans la 1ère colonne "CyDBadvG.Columns[0]" Par contre si en runtime la colonne est déplacée, la colonne[0] ne correspond plus à celle que je veux. Comment faire ceci : DBgrid.Columns["index de la colonn...

Impression avec Rave Report

Bonjour, Je souhaite générer un flux au format RTF et le visualiser dans un RichEdit. Ceci pour permettre à l'utilisateur d'apporter des modifications dans le RichEdit et de l'imprimer ensuite. Voila l'idée. Je pensai faire tout simplement cela : procedure TForm1.Button1Click(Sender: TObject); var MonStream : TmemoryStream; ...

Dbexpress ou TIBcompo avec FireBird [Résolu]

Bonjour, Après plus d'un an de galère avec le couple Delphi7-Mysql5, j'abandonne. Bug avec les compo Dbexpress, fonctionnement du serveur embedded, pb de driver etc.. J'ai des requêtes dans tous les sens pour contourner les problèmes, mais trop c'est trop. Mon projet comporte plus de 10 000 lignes, presque de 2 ans de hobby . Je mig...

DateSetProvider upWhereKeyOnly, erreur : Unable to find record No Key specified

Bonjour, J'utilise la chaine TSQLQuery -> TDataSetprovider -> TclientDataSet -> TDataSource -> TdataControl J'ai une requête qui remonte un seul enregistrement, composée de plusieurs champs. A la lecture, les datacontrol affichent correctement les valeurs de ces champs. Voici la requête : SQuery_General_visite.SQL.Add('Select no...

Quelle type de base de donnees [Résolu]

Bonjour, Je souhaite faire une petite appli avec une base de donnees (quelques tables avec moins de 1000 enregistrements). Je veux une base sous forme de fichier, sans install lourde sur le PC (pas de partie serveur comme avec Mysql, SQl server ...) Parmi les choix de D7, il me semble que paradox7, dBase (3+, 4, Visual, pour windows...

DBEdit mise à jour de la base [Résolu]

Bonjour, Encore moi, après le DBcomboBox le DBedit !! J'ai, à la conception, configuré la chaine TSqlconnexion, TSQLQuery, TDataSetProvider, TClientDataSet, TDataSource, TDBedit. La première valeur remonter par TSQlQuery est affiché dans le DBedit. La requete est "select annee_fab from voiture" A l'éxécution, dans l'évenement...

dbexpress - mysql 5.1 - delphi 7 entr [Résolu]

Bonjour, J'ai configuré une connection TSQLconnection avec ces paramètres : Connected -> True GetDriverFunc -> getSQLDriverMYSQL50 LibraryName -> dbxopenmysql50.dll VendorLib -> libmysql.dll Name -> Connection En conception lorsque je test la connextion, j'obtiens bien le message Successfully Connected. Ma version de Mysql es...

DBListBox - selection d'item avec la souris [Résolu]

Bonjour, J'ai un DBlistBox rempli avec le resultat d'une requète. Je n'arrive pas à sélectionner avec la souris un des éléments de la liste (pas de mise en surbrillance de l'élément et pas de déclenchement de l'évenement OnClick). Y'a-t-il une propriété du DataSource ou ClientDataSet ou DataSetProvider à modifier, je n'ai rien trou...

PageControl - TabSheet

Bonjour J'ai un pageControl dans un Tframe. Le Tframe n'est pas encore visible et je veux masquer certain Tabsheet. J'obtient un message d'erreur avec TabVisible et aucun message avec Enabled(voir code ci-dessous ) // Désactivation des onglets au départ showmessage(inttostr(PageControl1.PageCount)); // --> pour débug, affiche 6...

TObjectList, TObjet, record [Résolu]

Bonjour, J'ai voulu faire propre pour une fois, pas de record et de tableau de record !! J'ai donc créé un class dérivé de TObject et la liste gérée par TObjectList. Seulement j'avais pas fait attention que la méthode TObjectList.Add passe par référence l'oject ! En fait, TObjectList dérive de Tlist et dans la doc c'est claire ...

Version XE2

Bonjour, Je voudrai avoir la confirmation sur les capacitées de connexion aux SGBD en fonction des versions. - Delphi XE2 starter (199€) Une connectivité locale à la base de données InterBase. - Delphi XE2 Professional (899€) Connectivité locale dbExpress à InterBase® et MySQL - Delphi XE2 Enterprise (1999€) Connexion aux...

Passage par variable .. [Résolu]

Bonjour, J'ai créé une fonction qui me permet d'encadrer un objet quelconque d'une form CanvasDest est le canvas de la form contenant l'objet (Label, Edit, Image, RichEdit ...). Le but étant de "souligner" l'objet ayant le focus par un cadre de couleur procedure TMainForm.Cadre(EpaisseurCadre : integer; Object_avec_Cadre : Bool...

Gestiondu déplacement d'une feuille fille [Résolu]

Bonjour, Je souhaite controlé le déplacement des feuilles filles dans la fenêtre mère. Je veux bloquer, lors du glisser-déposer, le positionnement d'une fenêtre à moins de 100 pixels du bord gauche de la fenêtre mère. Je voulez faire ceci, mais visiblement c'est pas possible. procedure TFormMere.FormDockOver(Sender: TObject; So...

Delphi7 personnel et Myql BLOB [Résolu]

Bonjour, Existe t-il un moyen de sauvegarder une image dans un champ de type BLOB dans une DB mysql, sachant que je suis sous delphi 7 personnel (pas de DBtable et TBlobStream) ? J'utilise libmysql.dll pour dialoguer avec le SGBD Peut-être en utilisant un Tbitmap et TStream, mais tous cela est flou pour moi. Merci pour votre aide...

TStringGrid, insertion d'une image et du texte dans une même cellule

Bonjour, Je souhaite insérer une image dans une cellule, mais conserver aussi le texte à coté de l'image. Le code ci-dessous (placé dans OnDrawCell) permet de le faire dans le cas ou la StringGrid est seulement en lecture. Je masque l'écriture du texte en mettant la font de la même couleur que le fond, puis j'ecris le texte en rouge av...

Agrandir une image depuis le code [Résolu]

Bonjour, Je souhaite agrandir/reduire une image pour faire un zoom + et - La réduction fonctionne bien mais je ne peux pas agrandir l'image à une taille superieur à celle fixée lors de la conception. Pourquoi ?? J'ai placé l'image dans une scrollBox, c'est identique. Voici le code procedure TForm1.BtnZoomPlusClick(Sender: ...