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 1357 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 697 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 750 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 2281 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 1242 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 2927 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 1279 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 1042 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 1278 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 1880 fois | Communauté Delphi | |