cs_Nono40

2
Membre
Inscription
3 avril 2002
Dernière intervention
12 septembre 2006
Interventions
962
Site Web
http://nono40.developpez.com
Signature
[http://nono40.developpez.com nono40.developpez.com] [http://delphi.developpez.com/delphi2005/ Téléchargez Delphi 2005 Edition Personnel FR]

KEY-LOGGER SIMPLE À PARTIR DES HOOKS DE WINDOWS

/source/12099-key-logger-simple-a-partir-des-hooks-de-windows

Normalement non, la ^mémoire peut être lue et écrite en même temps.

Bonsoir, C'est normal car dans le Hook on récupère le code virtuel de touche et non pas le caractère. Il faut tenir compte de l'état de Shift, Ctrl et Alt pour en déduire la touche exacte (Ces états sont aussi donnés dans le hook)

SUDOKU

/source/39515-sudoku

=> Tigris1. Ton approche est bonne mais la solution imparfaite. Le (1) est inutile voire dangereux, car le TEdit que tu crées ne sera pas celui que tu vas détruire. Vu que ta variable Edit va contenir le dernier TEdit sélectionné par ta ligne Edit := TEdit(FindComponent('Edit' + IntToStr(nCount))); Edit n'a nullement besoin d'être inst...

CONVERTIR DBGRID EN STRINGGRID

/source/38068-convertir-dbgrid-en-stringgrid

Pas grand intéret. Surtout si le Dataset est important. Pas de mise à jour automatique en fonction des données ( cas de plusieurs PC/applications ). Ne déplace pas l'enregistrement courant, et donc ne facilite pas les modifs sur la ligne en cours. Dans tous les avantages que tu donnes dans ton commentaire, tout peut se faire dans le...

CONVERTISSEUR

/source/37976-convertisseur

Trois remarques. - Le case avec les 101 cas, ce n'est pas top. Utilise plutôt un tableau constant - Le code n'est pas indenté correctement - Le code peut se simplifier énormément avec un méthode récursive tout en gardant ta logique : function Centaine (i: integer) : String; { NOM DES CHIFFRES } begin case i of 1..100: Result...

RÉCUPÉRER LES TOUCHES TAPÉS AU CLAVIER

/source/38004-recuperer-les-touches-tapes-au-clavier

Je vois pas l'interet de ce source... Ca ne fait qu'utiliser un évènement de base de chaque composant. Le touche F1 de Delphi en fera apprendre bien plus. La touche TAB peut être récupérée sur la fiche ( avec KeyPreview à true ) ou sur un TMemo avec WantTabs à True. Ne pas utiliser $73 mais VK_F1 PS : la coloration syntaxique de ...

RECHERCHER LES PREMIERS NOMBRES PREMIERS

/source/37192-rechercher-les-premiers-nombres-premiers

Tout sauf optimisé ton code :wink: Il ne faut pas utiliser Power(xxx,0.5) mais SQRT() Il ne faut calculer le SQRT qu'une seule fois au début de boucle car il ne change pas. Il ne faut pas faire trop de processMessages, ça perd un temps fou. Il ne faut pas mettre à jour la liste à chaque fois, mais seulement une fois sur N ou sur de...

COMPOSANT DYNAMIQUE : COMMENT CODER POUR UN COMPOS NON ENCORE CRÉÉ

/source/37127-composant-dynamique-comment-coder-pour-un-compos-non-encore-cree

--> Delphiprog Je ne proposait cette méthode que pour la faire coonnaitre. J'utilise régulièrement la création dynamique et quand ce n'est que pour quelques objets j'utilise bien sur le transtypage et les objet existants ( TComponent.Components, TWinControl.Controls ). Mais dans le cas d'un grand nombre avec des besoin particulier un ...

"la création dynamique de compos est toujours d'actualité?" Imagine une visionneuse de diapos miniatures, par exemple... Exactement, et il y a des tas d'autres cas... Je rejoints DelphiProg sur les TObjectList. Tu dérives une classe descendante de TObjectList ou même un TComponentList et tu n'as plus rien à transtyper non plus.

MAKE CAB + CHECKLISTBOX

/source/37164-make-cab-checklistbox

Merci je sais la différence entre un Whiol et un repeat.... Regarde ma solution de près et tu veras que le code Repeat Until n'est appelé que si le If est vrai. Le traitement ne seront donc bien effectué que sur le premier élément. Pour ta solution procedure SetList(List : TStrings); var TMPLIST : TStringList; begin try T...

Deux trucs. FindFirst et FindNext ça s'utilise avec un repeat until, le findclose ne doit être fait que si le FindFirst réussi. If FindFirst()=0 Then Begin Repeat // Le code de gestion d'une occurence ici et seulement ici Until FindNext()0; FindClose() End; Le deuxième truc encore plus moche c'est le GetSelection:TStri...

FONCTION QUI SUPPRIME UN CARACTÈRE DONNÉ DANS UNE CHAINE EN UTILISANT LES POINTE

/source/35940-fonction-qui-supprime-un-caractere-donne-dans-une-chaine-en-utilisant-les-pointeurs

En plus il manque beaucoup de dispose() par rapport au nombre de new(). Grosse fuites de mémoires en perspective. Niveau optimisation ce n'est pas terrible dans tous les cas. ( ca fait 16 ans que je bosse en pascal de TP3 à DElphi 2006 )

ENFIN UN VRAI EXPERT DE COULEUR INTÉGRÉ À L'IDE DE DELPHI

/source/35102-enfin-un-vrai-expert-de-couleur-integre-a-l-ide-de-delphi

Code pure copie de http://matthias-lamoureux.developpez.com/articles/expert-ide/ Citer les sources et les auteurs originaux est le minimum !

LABELS ET BOUTONS MULTILIGNES

/source/11929-labels-et-boutons-multilignes

DrawText accepte aussi #13 seul

>> GrandVizir Faux, pour les retour à la ligne dans les labels c'est #13 seul. Sinon dans certains cas le #10 affiche des carrés noirs.

SURVEILLER LES ACTIVITÉS D'UN DOSSIER ET DE SES SOUS-DOSSIERS (FINDFIRSTCHANGENO

/source/32598-surveiller-les-activites-d-un-dossier-et-de-ses-sous-dossiers-findfirstchangenotification-findnextchangenotification-waitformultipleobjects

Pour surveiller autrement et en obtenant le détail des modifications : http://nono40.developpez.com/sources/source0045/ ( fonctionne sous NT 2000 XP mais pas 95 98 ME ) Sur tous les systèmes et en utilisant la fonction donnée ci-dessus, j'avais fais ceci il y a un moment : http://nono40.developpez.com/sources/source0017/ On se sert...

FFCASTTT COMME LA V.2 DU FFWTT

/source/31034-ffcasttt-comme-la-v-2-du-ffwtt

Et bien c'est déjà beaucoup mieux comme ça. :wink:

Par pitié ! Corrige ton othographe dans ce message !

JEU DES 8 REINES

/source/28759-jeu-des-8-reines

La déclaration des variables modifiée : var n:integer; d:tdam; Solution:Boolean; Et la procédure OnClick ( seul le début est modifié ) : procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; begin n:=spinedit1.Value; //on essaye de placer la première reine sur une des cases de la première colonne S...

Ce qui aurait été cool, c'est de mettre le code qui fonctionne dans le zip... D'autre part essaye de soigner l'indentation, car c'est très dur à relire ton programme... Voici la procédure corrigiée pour ceux qui la souhaitent : function place(h,c:integer):boolean; var i,k:integer; ok:boolean; begin result:=false; // o...