Exemples pour coder avec Delphi Trucs et astuces
Obtenir un nom de fichier unique |
||||
function GetUniqueFileName(const AFileName, AExt: string): string; var iNum: integer; sFileName: string; beginif FileExists(AFileName + AExt) then begin iNum := 1; sFileName := AFileName +... | ||||
| Delphi - Trucs et astuces - Fichier | le 28/04/2009 | vu 1118 fois | Fobec | |
Obtenir le nom de l'utilisateur connecté à une base de données |
||||
function TDM.GetLoggedUserName: string; var IBQuery: TIBQuery; begin result := ''; IBQuery := TIBQuery.Create(nil); try with IBQuery do begin Database := IBDB; ... | ||||
| Delphi - Trucs et astuces - Base de donnees | le 28/04/2009 | vu 2202 fois  |
Fobec | |
Extraire les adresses email d'un fichier *.dbx d'outlook |
||||
unit ExtractEmailsFunc;interface uses Windows, SysUtils; procedure CheckEMail(FilePath: string);implementation var BufferSize: Integer; function Ver if yFile(strFileName: string): Integer; var ... | ||||
| Delphi - Trucs et astuces - Internet | le 28/04/2009 | vu 2055 fois | fobec | |
Webbrowser : tout sélectionner puis copier dans le presse-papier |
||||
uses ActiveX; procedure TForm1.Button1Click(Sender: TObject); begin webbrowser1.navigate('http://fobec.com'); end; procedure TForm1.Button2Click(Sender: TObject); var vInput,... | ||||
| Delphi - Trucs et astuces - Internet | le 28/04/2009 | vu 1708 fois | fobec | |
Arreter Windows - Boite de dialogue |
||||
o_winDialogShutDown provoque l'affichage de la boîte dialogue de fermeture Windows.!!! Pas de gestion de la boîte de dialogue: celle-ci envoie un message de fermeture à toutes les applications... | ||||
| Delphi - Trucs et astuces - Systeme | le 27/03/2009 | vu 1378 fois | olibul | |
Décrypter la date de modification des Favoris |
||||
Des malades chez Microsoft !!!!Découper et retourner la chaîne contenant la date puis mouliner avec FileTimeToSystemTimeVoir code joint | ||||
| Delphi - Trucs et astuces - Internet | le 27/03/2009 | vu 1556 fois | olibul | |
Combobox - StringGrid : supprimer la couleur de focalisation |
||||
Pour un ComboBox :propriété style : csOwnerDrawFixed procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin // Supprimer couleur... | ||||
| Delphi - Trucs et astuces - Objet | le 27/03/2009 | vu 2234 fois | olibul | |
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 | |
Retrouver les dossiers de Windows |
||||
o_GetPathWinFolders renvoie le chemin de certains dossiers utilisés par Windows.Syntaxe function o_GetPathWinFolders( _iddossier: integer ): string;Paramètres_iddossier: integer : peut avoir une... | ||||
| Delphi - Trucs et astuces - Systeme | le 14/03/2009 | vu 1569 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** | |