La boîte à prog

CRÉATION D'UN COMPOSANT Beaucoup de composants visuel et non visuel existent pour Delphi. Il peut arriver que ces composants ne nous conviennent pas pour diverses raisons. On peut alors utiliser le composant existant et lui ajouter des fonctionnalités. Nous allons créer un composant qui défilera du texte à l'écran, un peu à la manière d'un générique au cinéma. Le composant fonctionnera sous Windows et Linux grâce à la CLX. Nous allons utiliser l'expert Delphi pour créer le squelette du composant. Il faut cliquer dans le menu «component», ensuite cliquez sur «New component...». L'expert Delphi apparait, on doit sélectionner l'ancêtre de notre composant, c'est à dire son parent. Notre composant héritera de ses fonction et méthode. L'ancêtre de notre composant est le TCustomPanel et le nom de la classe choisie est TUnitTextSequence. Squelette du composant Lorsqu'on valide, Delphi nous génère le code. La procédure Register permettra à no...

Comment rendre certaine touches inactive L'exemple ci-dessus désactive les touches ALT+TAB, CTRL+ESC, CTRL. procedure SystemKeys(Disable: Boolean); var OldVal : LongInt; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0); end;

Comment changer le clavier de la console? Sous suse: regarder dans: /usr/share/kbd/keymaps/ (chercher où se trouve keymaps pour les autres distributions) si le clavier désiré est là sinon tenter de le trouver ensuite allez dans: /etc/sysconfig/keyboard et mettez le nom du claiver désiré par exemple : KEYTABLE="cf.map.gz" Le numlock, capslock... peut être mis à on par défaut lors du démarrage à partir de ce fichier.

LES RECHERCHES Nous utilisons différents types de recherche pour trouver des données spécifiques. Nous verrons qu'il y a divers types de recherche qui peuvent être faites. Type de recherche La recherche séquentielle La recherche séquentielle consiste à vérifier du début  du tableau, liste... jusqu'à ce qu'on trouve ce qu'on désire ou parcoure totalement le tableau liste... C'est évidemment pas la recherche la plus efficace. Ce type de recherche est doit être utilisé si le tableau n'est pas trié. //on définit les variables utilisées Const Max=15; type tabType = array [1..Max] of integer; function SequentialSearch(tab:tabType; item:integer):integer; var i : integer; found : boolean; begin SequentialSearch := 0; i := low(tab); found := false; while( i <= high(tab)) and (not found) do begin if tab[i] = item then begin SequentialSearch := i; found := true; end; inc(i); end; end; La recherche binaire L...

MATRICE Une matrice est un genre de tableau 2 44 69 15 71 8 562 3 9 128 67 564 L'exemple précédent est une matrice 4 * 3 (4 lignes, 3 colonnes). Il est bien sûr possible de mettre des chiffres à virgule flottante dans une matrice. Diverses opérations peuvent être effectuées sur les matrices, c'est ce qu'on verra. Opérations sur les matrices Produit Pour effectuer cette opération, il faut que le nombre de colonnes de la matrice A soit supérieur ou étal au nombre de ligne de la matrice B. Matrice A 1 2 3 4 5 6 Matrice B 1 2 3 4 5 6 La multiplication de A et B donnera Matrice A*B 1 2 22 28 49 64 Pour parvenir à ce résultat, il faut faire faire multip...

CHAÎNE DE CARACTÈRE Type de chaîne Chaîne courte Les chaînes courtes ont une longueur fixe, elles ne peuvent dépasser plus de 255 caractères. Étant donné que les chaînes courtes ont une valeur fixe, leurs vitesses d'exécution sont très rapides. On peut les déclarer de deux façons, mais une seule est vraiment utile. var Nom:shortstring; Prenom:string[30]; Lorsqu'on utilise shortstring, la longueur de la variable est automatiquement de 255 caractères. A moins d'avoir absolument besoin de 255 caractères, il n'est pas vraiment intéressant d'utiliser le type shortstring. Il est intéressant d'utiliser les chaînes courtes lorsqu'on sait que la longueur de la variable sera fixe ou que l'on sait le nombre de caractère maximum qu'il peut y avoir. Le gain de vitesse sera appréciable si l'on fait beaucoup de manipulation sur les chaînes. Le premier élément d'une chaîne courte représente la longueur de la chaîne, ce qu...

Comment chercher et remplacer des caractères? function SearchAndReplace (sSrc, sLookFor, sReplaceWith : string) : string; var nPos, nLenLookFor : integer; begin nPos := Pos(sLookFor, sSrc); nLenLookFor := Length(sLookFor); while (nPos > 0) do begin Delete(sSrc, nPos, nLenLookFor); Insert(sReplaceWith, sSrc, nPos); nPos := Pos(sLookFor, sSrc); end; Result := sSrc; end;