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.
private procedure SearchAndHighlightText(aText: string); {....} procedure TForm1.SearchAndHighlightText(aText: string); var i: Integer; begin for i := 0 to...
function iswrongip(ip: string): boolean; var z, i: byte; st: array[1..3] of byte; const z if f = ['0'..'9']; begin st[1] := 0; st[2] := 0; st[3] := 0; z := 0; Result :=...
function GetMenuFont: TFont; var ncm: TNonClientMetrics; begin ncm.cbSize := SizeOf(TNonClientMetrics); SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0); ...
uses ComObj;{$R *.DFM} function OpenConnection(ConnectionString:AnsiString):Integer; var ADODBConnection : OleVariant; begin ADODBConnection := CreateOleObject('ADODB.Connection'); ...
function bmp2emf( const SourceFileName: TFileName): Boolean;// Converts a Bitmap to a Enhanced Metafile (*.emf) var Metafile: TMetafile; MetaCanvas: TMetafileCanvas; Bitmap: TBitmap; begin ...
...type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); // Your routines (that you'll run by name) must be here procedure Hello_World(Sender:...
{ The SYSTEM_INFO structure contains information about the current computer system. This includes the architecture and type of the processor, the number of processors in the system, the page...
{ Question: How can I get all classes that are currently registered in my application? Answer: There is no way to get at classes registered via RegisterClasses, since the list holding these...