Code source pour développer une application, page 29
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
Chifrenlett
<img alt="chifenlett" src="http://www.fobec.com/CMS/userdata/member005/chifenlett.gif" vspace="4" align="left" border="0"...
publié le 24/11/2002 dans Logiciel par Jean Jamet
Ajouter du texte à la fin d'un fichier
Function AppendOrWriteTextToFile(filename: TFilename; WriteText: String): Boolean; var f: Textfile; begin try AssignFile(f,filename); If FileExists(filename) = false then begin ...
Connaitre mon adresse IP
uses Winsock; function getIPs: TStrings;type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of Char; I: Integer;...
Cloner un composant
{Copie et cree un composant identique à Panel1} procedure TForm1.Button1Click(Sender: TObject); const x: Integer = 0; y: Integer = 0; var ms: TMemoryStream; s: String; p, temp: TPanel; begin...
Yams
Un jeu de yams développé dans le cadre de la Maîtrise de Sciences et Technologies option"chef de projet IT" de l'Université de Metz que nous avons réalisé.La distribution de ce jeu est...
Utiliser un TChar
uses Series;// Creates two series in the chart and assigns random values procedure TForm1.Button1Click(Sender: TObject); var i, j, kum: Integer; s, t: TLineSeries; begin with Chart1 do ...
Enregistrer/charger plusieurs composants dans un fichier
procedure SaveEditcontrols( const FileName: string; const Controls: array of TCustomEdit); var fs: TFilestream; writer: TWriter; i: Integer; ss: TStringstream; begin fs :=...
Arrondir une heure
function RoundTime(ADate: string; Rounding: Integer; bRound: Boolean): string; var Year, Month, Day, Hour, Min, Sec, MSec: Word; tmpDate: TDateTime; Res, D if f: string; M: integer; begin ...
Outils DOS GO-RT
<span style="font-weight: bold;">GO </span>: Cette outil est indispensable aux personnes qui travaillent sous DOS. <img alt="cdd"...
publié le 02/10/2002 dans Logiciel par Jean Jamet
Nouvelmeteo
<img alt="Nouvelmeteo" src="http://www.fobec.com/CMS/userdata/member005/Nouvelmeteo.gif" align="left" border="0" vspace="4"...
publié le 02/10/2002 dans Logiciel par Jean Jamet
Afficher l'icone associé Ã un raccourci
function GetAssociatedIcon( const AExtension: String; ASmall: Boolean): HIcon; var Info: TSHFileInfo; Flags: Cardinal; begin if ASmall then Flags := SHGFI_ICON or SHGFI_SMALLICON or...
Obtenir la longueur d'un son WAV
uses MPlayer, MMsystem;type EMyMCIException = class(Exception); TWavHeader = record Marker1: array[0..3] of Char; BytesFollowing: Longint; Marker2: array[0..3] of Char; Marker3:...
Convertir une Couleur de RGB en COLORREF (BGR)
function rgb2bgr(R,G,B: byte): COLORREF;overload; begin Result:= (Integer(B) shl 16) + (Integer(G) shl 8) + R; end; function rgb2bgr(RGB: integer): COLORREF;overload; var R,G,B: integer;...
Convertir une valeur Hexadecimale en integer
function StrToHex(s : string) : LongWord; var b : Byte; c : Char; begin Result := 0; s := UpperCase(s); for b := 1 to Length(s) do begin Result := Result * 16; c := s[b]; case c of ...
Retrouver un composant d'après son nom
{à la place d'écrire ...}Edit1.Text := 'Text 1';Edit2.Text := 'Text 2';Edit3.Text := 'Text 3';Edit4.Text := 'Text 4';{...}Edit10.Text := 'Text 10';{Il...
Formater un nombre avec un séparateur (millier)
function AddThousandSeparator(S: string; Chr: char): string; var I: integer; begin Result := S; I := Length(S)-2; while I > 1 do begin Insert(Chr, Result, I); I := I - 3; end; end; ...