![]() |
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 523 fois | |
![]() |
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 1581 fois | |
![]() |
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 1394 fois | |
![]() |
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 1003 fois | |
|
|
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 793 fois | |
|
|
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 1142 fois | |
|
|
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 1299 fois | |
|
|
Compter les mots d'une chaine |
||
function o_WordsCount( const _Texte: string ): Integer; const sep: set of char = ' ' , '.', ':', ';', '"', '!', '?', ',',... |
|||
| Delphi - Trucs et astuces - Autre | le 27/03/2009 | vu 836 fois | |
|
|
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 des... |
|||
| Delphi - Trucs et astuces - Systeme | le 14/03/2009 | vu 843 fois | |
|
|
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 librairies. |
|||
| Delphi - Trucs et astuces - Autre | le 23/02/2009 | vu 225 fois | |