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.
uses commctrl;{$R *.DFM} procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh if tState; X, Y: Integer); var i: integer; r: TRect; begin for i := 1 to...
function FileCount( const aFolder: string): Integer; var H: THandle; Data: TWin32FindData; begin Result := 0; H := FindFirstFile(PCHAR(aFolder + '*.*'), Data); if H INVALID_HANDLE_VALUE ...
function WaitForFile(FileName: string): Boolean;{Wait for a file to be created. Tracks the directory were the file will be created.Returns true if file exists, false on error.} var WaitHandle:...
procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); var rad, a: Single; i: Integer; begin for i := 0 to 100 do begin a := Random * 2 * pi; rad := Random * r; ...
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then MessageDlg('No internet connection',...
type pFontStyles = ^TFontStyles; pInteger = ^Integer; function FontStylesToInteger ( const Value : TFontStyles) : Integer; begin Result := pInteger(@Value)^; end; function ...