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.
type TImageSize = record Width: Integer; Height: Integer; end; function ReadGIFSize(Stream: TStream): TImageSize;type TG if Header = record Signature: array [0..5] of Char; Width,...
type TPrinterDevice = class {type definition NOT interfaced by Printers.pas} Driver, Device, Port: string; end; { .... } uses Printers;{ .... } function GetCurrentPrinterPort: string;...
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var drawRect: TRect; begin with ListBox1.Canvas do begin FillRect(rect); ...
function DeleteAllFileInDir(sDir: string): integer; var Rec: TSearchRec; C: integer; begin result := 0; if sdir[length(sDir)] '' then sDir := sDir + ''; C := findfirst(sdir + '*.*',...
function TDM.ExportIBQToCSV( const sSQL, sFileName: string; IBQ: TIBQuery): Boolean; var OutFile: TIBOutputDelimitedFile; begin result := false; if not assigned(IBQ) then Exit; with IBQ...
uses WinInet; function GetProxyInformation: string; var ProxyInfo: PInternetProxyInfo; Len: LongWord; begin Result := ''; Len := 4096; GetMem(ProxyInfo, Len); try if ...