Inscription
9 novembre 2009
Dernière intervention
6 mai 2018
Interventions
246

Problème copie d'écran des champs déroulants [Résolu]

Bonjour, Je dois copier un écran contenant des champs edit et combobox. J'utilise le code suivant: bmp := Tbitmap.create;Onglets.ActivePage:=method;Onglets.ActivePage.Repaint;Bmp.Width := method.Width;Bmp.Height := method.Height;method.PaintTo(Bmp.Canvas, 0, 0);sleep(500); // pas mieuxbmp.SaveToFile(VMProjectPath.text+'P1.bmp');bmp.f... Lire la suite

Données entre balises à importer dans Word

Bonsoir et meilleurs vœux à tous ;-) Je dispose de données "balisées" comme ceci: Concentration (mUI/ml / UI/l)   Cal A : 0 / 0 et je souhaite les importer dans Word via Delphi en utilisant les balises pour la mise en page. Comment puis-je procéder? Merci pour vos idées, PhilLu Lire la suite

Code service [Résolu]

Bonjour, Je tente de transposer un code vers un service. J'observe que je dois modifier certains algorithmes comme par exemple: renamefile('ok.ini','nok.ini'); renamefile(PChar(ExtractFilePath(ParamStr(0)))+'ok.ini',PChar(ExtractFilePath(ParamStr(0)))+'nok.ini'); J'ai par contre encore un problème avec une tentative d'envoi d'email: ... Lire la suite

XE2 planté, ne compile plus :-(

Salut, Suite à une tentative d'installation d'un composant, je n'arrive plus à compiler un nouveau projet, j'obtient un message du style: "Impossible de résoudre le nom d'unité 'Vcl.forms' à la ligne 4 (4:3)" par contre j'arrive à compiler les projets existants??? Je pense qu'une variable d'environnement a du changer, mais laquelle??... Lire la suite

Comparer des chaines de caractères comme des nombres

Salut, J'ai à comparer des nombres malheureusement stockés sous forme de chaînes de caractères Est-il possible de comparer par exemple 20140315081034 à 20140412102515 comme ceci: SELECT COUNT(result) FROM qc_res WHERE DATETIMERES < 'DatetimeresstrMax' AND DATETIMERES > 'DatetimeresstrMin' DATETIMERES étant une date longue stockée... Lire la suite

MYSQL problème de requète [Résolu]

Je sèche depuis cet après-midi :-/ Je cherche à afficher les données d'une table dans un DBGrid. En fonction du code, j'obtiens soit toute la table, soit une grille vide :-< Voici mon code: procedure TForm1.SelLotChange(Sender: TObject);begin// filtrer l'affichage de dbgridselLot.Text:=selLot.selText;SQLConnection_QCVal.connected:=Fal... Lire la suite

Relation 0-n; requête pour afficher les relations 0 [Résolu]

Bonjour, Probablement une question très stupide ;-) J'ai entre deux tables une relation 0-n Par exemple une table 'Individu' et une table Voiture' Je peux donc afficher à l'aide d'une requête du type Select * from 'Individu' where 'Voiture' like ... quand l'individu possède au moins une voiture puisque la table voiture possède une c... Lire la suite

Shellexecute avec espace dans le path [Résolu]

Bonjour, J'utilise le code suivant qui marche bien temps que le path ne contient pas d'espace: var cmd: string;cmd := '+h +r ' + extractFilePath(application.exename)+ proj +'.phl';ShellExecute(handle, nil, 'attrib',PChar(cmd),nil,sw_shownormal); J'ai tenté des variations en suivant les infos sur le net mais sans résultat (du style dou... Lire la suite

chart point manquant???

Bonjour, J'ai encore et toujours le même problème :-/ Lorsque je souhaite afficher des points représentant des données d'un stringgrid, la plus haute valeur de lea série n'est jamais affichée?!? Les axes du chart sont sur auto et j'ai déjà testé bcp de variantes sans meilleur résultat :-( voici un exemple rudimentaire qui illustre le... Lire la suite

Font Height stringgrid

Bonjour, J'ai lancé mon appli sur une autre machine (XP) que celle de développement (7). Les caractères affichés dans le StringGrid sont trop grands et affichés trop bas :-( donc pas très lisibles et :-/ Je pense qu'il s'agit de la combinaison entre Font Height et Font Size. Mais comment faire pour que cela soit portable d'un OS à l'au... Lire la suite

Barrer des cellules d'un stringGrid

Bonsoir, Je souhaite barrer le texte de toutes les cellules d'une ligne par click droit sur la ligne choisie. Cela fonctionne bien sauf que la cellule pointée ne se barre pas (les autres, pas de problème) !?! Voici mon code: procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integ... Lire la suite