Exemples pour coder avec Delphi Trucs et astuces Autre categorie

Compter les mots d'une chaine

function o_WordsCount( const _Texte: string ): Integer; const sep: set of char = ' ' , '.', ':', ';', '"', '!', '?', ',',...
Delphi - Trucs et astuces - Autre categorie le 27/03/2009 vu 1611 fois olibul

Calcul de charge sur accusNi-Cad

Ce programme calcul la résistance de charge, le transistor PNP, la tension d'alim MIN et MAX pour un nombre d'accus donné.lE pcb est disponnible sur le site Kicad dans la rubrique...
Delphi - Trucs et astuces - Autre categorie le 23/02/2009 vu 950 fois Mic**

Binary Time

Petite horloge avec affichage en binaire avec un fond d'écran en circuit imprimé pour décorer le bureau ( et pourquoi pas apprendre a compter dans cette base )
Delphi - Trucs et astuces - Autre categorie le 06/11/2008 vu 1000 fois Mic**

Afficher les Hints dans une StatusBar

{....} private { Private-Deklarationen } procedure MyHint(Sender: TObject); {....} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := MyHint; ShowHint := true; ...
Delphi - Trucs et astuces - Autre categorie le 10/06/2006 vu 2523 fois Rainer Kümmerle

Synchroniser le défilement de 2 TRichedit

//... private PRichEdWndProc, POldWndProc: Pointer; procedure RichEdWndProc( var Msg: TMessage);//... procedure TForm1.FormCreate(Sender: TObject); begin PRichEdWndProc :=...
Delphi - Trucs et astuces - Autre categorie le 16/12/2005 vu 1470 fois Bruno

Crypter/decrypter un String pour un fichier ini

{dans un fichier ini, il faut éviter les caractères tels que #0,' ','=',[',']' sous peine d'avoir une erreur. 2 solutions :- soit on crypte le string suivant une...
Delphi - Trucs et astuces - Autre categorie le 16/05/2005 vu 3192 fois Communauté Delphi

Retrouver la dernière occurence dans un string

function LastPos(SubStr, S: string): Integer; var Found, Len, Pos: integer; begin Pos := Length(S); Len := Length(SubStr); Found := 0; while (Pos > 0) and (Found = 0) do begin if ...
Delphi - Trucs et astuces - Autre categorie le 27/04/2005 vu 1512 fois Marc Dürst

Connaitre la taille des éléments d'un Mainmenu

//ajouter un TMainMenu et un TMemo à la fiche procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; begin for i := 0 to mainmenu1.Items.Count - 1 do begin ...
Delphi - Trucs et astuces - Autre categorie le 03/04/2005 vu 1275 fois Communauté Delphi

Détecter l'appui sur plusieurs touches simultanement

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Sh if t: TSh if tState); begin If ((GetKeyState(VK_CONTROL) AND 128)=128) and ((GetKeyState(VK_F5) AND 128)=128) and ...
Delphi - Trucs et astuces - Autre categorie le 02/04/2005 vu 1512 fois swissdelphicenter

Ajouter une seconde, minute ou heure à un TDateTime

procedure TForm1.Button1Click(Sender: TObject); var dTime: TDateTime; begin // Ajouter une seconde à dTime//1sec = 1/(24h x 60 min x 60 sec) dTime := now; dTime := dTime + 1.0 / 86400; ...
Delphi - Trucs et astuces - Autre categorie le 11/02/2005 vu 2145 fois Communauté Delphi
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues