Trucs et astuces Delphi - page 15

Avec Delphi, rien n'est impossible ! Telle a été notre devise pendant des années. A la fois EDI et langage de développement (Pascal), l'outil Delphi facilite grandement la création d'applications. A l'origine, Delphi est un langage compilé qui s'execute sur des plateformes 32 bits. Depuis l'editeur a apporté de nouvelles fonctionnalités qui ne sont pas traitées sur Fobec.com.

Lire/écrire dans un fichier texte

Procedure NewTxt;Var F : Textfile; Begin AssignFile(F, 'c:ek.txt'); {Assigns the Filename} ReWrite(F); {Create a new file named ek.txt} Writeln(F, 'You have written text into a .txt file');...
delphi/truc-astuce/fichier/
le 15/03/2004
vu 1594 fois
SwissDelphiCenter

Enregistrer/lire un fichier dans un TBlobStream

// To save a file to BLOB: procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'), bmWrite); try ...
delphi/truc-astuce/base-donnee/
le 14/03/2004
vu 1601 fois
SwissDelphiCenter

Crypter une image

procedure EncryptBMP( const BMP: TBitmap; Key: Integer); var BytesPorScan: Integer; w, h: integer; p: pByteArray; begin try BytesPorScan := Abs(Integer(BMP.ScanLine[1]) - ...
delphi/truc-astuce/graphisme/
le 14/03/2004
vu 2781 fois
SwissDelphiCenter

Lancer un autre programme

uses shellapi; Shellexecute(handle,'open','notepad.exe','',nil,sw_shownormal);ou WinExec('C:Windowsotepad.exe',SW_Show);
delphi/truc-astuce/fichier/
le 13/03/2004
vu 1575 fois
SwissDelphiCenter

Créer un composant TEdit avec une propriété alignement

unit AlignEdit;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TAlign = (eaLeft, eaCenter, eaRight); TAlignEdit = class(TEdit) private ...
delphi/truc-astuce/objet/
le 13/03/2004
vu 939 fois
SwissDelphiCenter

Calculer le checksum d'un fichier

function GetCheckSum(FileName: string): DWORD; var F: file of DWORD; P: Pointer; Fsize: DWORD; Buffer: array [0..500] of DWORD; begin FileMode := 0; AssignFile(F, FileName); Reset(F); ...
delphi/truc-astuce/fichier/
le 12/03/2004
vu 1381 fois
Communauté Delphi

Connaitre le type de fichier

uses ShellAPI; function MrsGetFileType( const strFilename: string): string; var FileInfo: TSHFileInfo; begin FillChar(FileInfo, SizeOf(FileInfo), #0); SHGetFileInfo(PChar(strFilename), 0,...
delphi/truc-astuce/fichier/
le 10/03/2004
vu 1004 fois
SwissDelphiCenter

Trouver la version d'Internet Explorer

uses Registry; function GetIEVersion(Key: string): string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; ...
delphi/truc-astuce/internet/
le 09/03/2004
vu 1212 fois
SwissDelphiCenter

Retrouver les informations CPU

unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrm_main = class(TForm) img_info: TImage; procedure ...
delphi/truc-astuce/systeme/
le 06/03/2004
vu 955 fois
SwissDelphiCenter

Connaitre le nombre d'occurence d'un mot dans un string

function CountPos( const subtext: string; Text: string): Integer; begin if (Length(subtext) = 0) or (Length(Text) = 0) or (Pos(subtext, Text) = 0) then Result := 0 else Result :=...
delphi/truc-astuce/autre-categorie/
le 06/03/2004
vu 1112 fois
SwissDelphiCenter

Script Delphi

Espace membre
Catégorie
Résumé de la rubrique
Contenu
528 articles
Rédaction
3 auteurs
Mise a jour
28/04/2009
Partager sur les réseau sociaux
Articles au hasard