Inscription
23 juillet 2004
Dernière intervention
9 décembre 2019
Interventions
3 810
Signature
     <code>@+ Cirec</code>

Prise de tete avec xml

Bonjour, J'ai une adresse pour récupérer un fichier xml qui me donne toutes les possibilités de mon appareil photo (serveur local de l'appareil photo). J'essaie d'exploiter ce XML en le mettant dans un TXMLDocument, mais quand je cherche un noeud que je sais exister, je ne trouve rien (LNodeElement:=nil). Voici mon code et merci de votr... Lire la suite

Dbgrid n'affiche pas les champs

Bonjour, Svp j'utilise RX embarcadero 10.3 une application VLC que j'ai eu à dévélopper sur Delphi7 il y a un peu longtemps, mais maintenant je le reprend sur RX xa ne m'affiche pas les contenus du Dbgrid par contre les données sont enrégistrées dans la BD. Le Dclick dans Dbgrid (dans du vide) m'envoie les données dans Edit mais sont invi... Lire la suite

Codage de Huffman

Bonjour, J'ai besoin d'une implémentation sous Delphi du codage de huffman. J'ai trouvé cette source en pascal https://codes-sources.commentcamarche.net/source/43155-huffman mais je n'arrive pas à l'intégrer dans Delphi. Merci d'avance. Lire la suite

mettre la derniere ligne en gras d un riche edit

Bonjour, les amis j ai un probleme dans ce fraguement de code: procedure MAKEBOLD(ARichEdit: TRichEdit; ARow: Integer; Afsstyle: TfontStyles); begin with ARichEdit do begin SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0); SelLength := Length(Lines[ARow - 1]); SelAttributes.Style := Afsstyle; SelLength := 0; end; end; // la pro... Lire la suite

set of string intersection et union

Bonjour, Je cherche à utiliser les fonctions + et * sur des set of mais le set of string n'existe pas. Cette possibilité existe bien dans python. a = [1,2,3,4,"B"]b = [2, "B"]sa = set(a)sb = set(b)c = sa.intersection(sb) Y a t'il une alternative? Merci d'avance, Phil Lire la suite

Erreur avec SelectDirectory [Résolu]

Bonjour, if not SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then exitelsebegin ScruteDossier(Dir, '*.jpg', attributs, True, '', ''); ........end; cette solution marche bien mais celle ci provoque une exception ??? je comprend pas pourquoi if SelectDirectory('Choisir un dossier', Extra... Lire la suite