Code source pour développer une application, page 37
Un sujet vous tient à coeur ou un code source à partager ? Le site est ouvert à tous, n'hesitez pas à publier sur Fobec.com
Code source informatique
Compresser/décompresser un Stream
Uses ZLib; procedure CompressStream(inpStream, outStream: TStream); var InpBuf,OutBuf: Pointer; InpBytes,OutBytes: integer; begin InpBuf := nil; OutBuf := nil; try ...
Ajouter des éléments de menu à l'execution
type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; MainMenu1: TMainMenu; Fonts1: TMenuItem; procedure Fonts1Click(Sender: TObject); procedure FormCreate(Sender:...
Lister tous les exe lancés sur le système
Uses Psapi, tlhelp32; procedure CreateWin9xProcessList(List : TStringList) ; var hSnapShot : THandle; ProcInfo : TProcessEntry32; begin if List = nil then Exit ; hSnapShot :=...
Retrouver les noms de fichiers dans le presse papier
///exemple : en copiant des fichiers dans l'explorateur uses clipbrd, shellapi;{$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var f: THandle; buffer: Array [0..MAX_PATH] of...
Trouver les liens dans un memo
procedure TForm1.Button1Click(Sender: TObject); var i, p: integer; s: string; begin ListBox1.Clear; for i := 0 to Memo1.Lines.Count - 1 do begin if Pos('http://',...
Enregistrer une page contenu dans un WebBrowser
Uses ActiveX,MSHTML_TLB, SHDocVw_TLB, ComCtrls, OleCtrls; procedure TForm1.Button1Click(Sender: TObject); var HTMLDocument: IHTMLDocument2; PersistFile: IPersistFile; begin HTMLDocument :=...
Detecter la fin de la lecture dans un Mediaplayer
procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.Not if y := True; MediaPlayer1.OnNot if y := Not if yProc; end; procedure TForm1.Not if yProc(Sender: TObject); begin With...
Enregistrer/charger un TListView
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, comctrls, StdCtrls;type TForm1 = class (TForm) ListView1: TListView; Button1: TButton; Button2: TButton; ...
Ajouter une image sur une ListBox
type TForm1 = class(TForm) ListBox1: TListBox; Image1: TImage; procedure FormCreate(Sender: TObject); procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect:...
Exporter un TStringgrid vers un ListView
Procedure StringGrid2ListView(StringGrid : TStringGrid; Listview : TListView); var i,j,k : Integer; ListItem : TListItem; begin ListView.Items.BeginUpdate; try With StringGrid, ListView...
Créer un fichier Excel sans utiliser OLE
const CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); CXlsEof: array[0..1] of Word = ($0A, 00); CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0); CXlsNumber: array[0..4] of Word...
Convertir un TColor en RGB et vice-versa (2)
type TTabsheet = class( ComCtrls.TTabSheet ) private FColor: TColor; Procedure SetColor( value: TColor ); Procedure WMEraseBkGnd( var msg: TWMEraseBkGnd ); message WM_ERASEBKGND; ...
Imprimer un Timage
uses printers;{....} procedure TForm1.Button1Click(Sender: TObject); var ScaleX, ScaleY :Integer; RR :TRect; begin with Printer do begin BeginDoc; try ScaleX :=...
Convertir des décimales en nombres romains
function DecToRoman(Decimal: LongInt): String; const Numbers : Array[1..13] of Integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000); Romans: Array[1..13] of string = ...
DCD Web V6.0
"Un programme permettant de créer des sites Web... La V6.0 comprend maintenant desfonctions JAVA et permet de créer, pour les débutants comme pour les confirmés, des sitestrès beaux... "
Monnaie
Voici une application très utile pour nos débuts, indiquez le prix en Euro, la sommeversée en Francs et .... voici ce que la boulangère vous rendra comme monnaie en Euro
Rechercher et remplacer du texte dans un Richedit
// Sans utiliser TReplaceDialog function Search_And_Replace(RichEdit: TRichEdit; SearchText, ReplaceText: string): boolean; var startpos, position, endpos: integer; begin startpos := 0; ...
Supprimer les doublons dans une stringlist
var sl : TStringList; begin sl := TStringList.Create; with sl do begin Sorted := True; Duplicates := dupIgnore; Add( edit1.text ); end; listbox1.Items.Assign( sl ); sl.Free;...
Inverser les lettres d'un string
function ReverseString( s : string ) : string; var i : integer; s2 : string; begin s2 := ''; for i := 1 to Length( s ) do begin s2 := s[ i ] + s2; end; Result := s2; end;