TechTIC prog:lazarus:classes

Création d'une Class ou d'un Object

Anonymous (anonymous@undisclosed.example.com) — 2023-06-17T17:11:24+0200

Création d'une Class ou d'un Object Déclaration d'une class type TMyClass = class(TObject) // TMyClass hérite de TObject private FSomeVar: integer; public constructor Create; overload; // overload = plusieurs définition de la même procédure sont disponibles constructor Create(Args: array of integer); overload; destructor Destroy; override; // override = redefini la méthode virtual du parent. procedure DoSomethingLater; virtual; abstract; // Cette méthode n'existe pa…

Exception & Erreurs

Anonymous (anonymous@undisclosed.example.com) — 2021-05-13T15:37:06+0200

Exception & Erreurs La class Exception = class(TObject) public constructor Create(const msg : string); constructor CreateFmt(const msg : string; const args : array of const); constructor CreateRes(ResString: PString); constructor CreateResFmt(ResString: PString; const Args: array of const); constructor CreateHelp(const Msg: string; AHelpContext: Longint); constructor CreateFmtHelp(const Msg: string; const Args: array of const; AHelpContext: L…

Interfaces

Anonymous (anonymous@undisclosed.example.com) — 2020-05-05T15:45:35+0200

Interfaces Sources et Ressources * * * *

JSON

Anonymous (anonymous@undisclosed.example.com) — 2021-05-01T17:20:23+0200

JSON Créer un JSON A partir d'un String var vJD: TJsonData; begin vJD := GetJSON(AString); try if assigned(vJD) then { Ok le JSON est valide } begin ... end; finally vJD.free; end; end;

Manipulation des Classes

Anonymous (anonymous@undisclosed.example.com) — 2021-03-21T18:57:17+0200

Manipulation des Classes Tests Pour savoir si un objet est de la class X, on peut utiliser l'operateur is if vCtrl is TForm then ...

TApplication

Anonymous (anonymous@undisclosed.example.com) — 2021-05-07T12:04:37+0200

TApplication CaptureException Apparement TApplication aurait une property CaptureException (public) pour gérer les exceptions.... a creuser. procedure TApplication.RunLoop; begin repeat if CaptureExceptions then try // run with try..except HandleMessage; except HandleException(Self); end else HandleMessage; // run without try..except until Terminated; end;

TAsyncProcess

Anonymous (anonymous@undisclosed.example.com) — 2023-04-16T14:24:51+0200

TAsyncProcess Exemple d'utilisation unit uMain; {$mode objfpc}{$H+} interface uses AsyncProcess, Classes, Controls, Dialogs, Forms, Graphics, StdCtrls, SysUtils; type { TForm1 } TForm1 = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Memo: TMemo; procedure Button1Click(Sender: TObject); private procedure PingAsync; procedure ReceptAProcTerminate(Sender: TObject); procedure ReceptReadData(Sender: TObject); procedur…

TCanvas

Anonymous (anonymous@undisclosed.example.com) — 2020-05-13T15:07:43+0200

TCanvas Dessiner du Texte On peut ecrire sur un Canvas avec la fonction DrawText ou TextOut. DrawText Plus d'infos sur DrawText TextOut TextOut est accessible via TCanvas.TextOut. Au final TextOut utilise l'API ExtTextOut de Windows Sources: * ClipRect Differences TextOut / DrawText

TClipboard (Gestion du presse papier)

Anonymous (anonymous@undisclosed.example.com) — 2021-03-21T17:39:26+0200

TClipboard (Gestion du presse papier) Lecure du clipboard uses clipbrd, ... Edit.Text := Clipboard.AsText; Sources & Ressources *

TCollection

Anonymous (anonymous@undisclosed.example.com) — 2021-05-05T19:18:59+0200

TCollection Sources & Ressources * TCollection VS TList VS TObjectList

TForm

Anonymous (anonymous@undisclosed.example.com) — 2021-04-17T11:33:54+0200

TForm Déclencher l'affichage complet de la Form Grace à cette astuce, on est sûr que le dessin de la Form et de tous ses contrôles est terminé... procedure TForm1.FormCreate(Sender: TObject); begin FFirstActivate := True; ... end; procedure TForm1.FormActivate(Sender: TObject); begin if FFirstActivate then begin FFirstActivate := False; Application.ProcessMessages; { ICI on est sur que tous les Controls ont étaient dessinés } ... end; end;…

TList et descendants

Anonymous (anonymous@undisclosed.example.com) — 2023-03-15T16:28:09+0200

TList et descendants Les Containers Informations sur les differents types de “Containers” en Pascal. * Data Structures, Containers, Collections/fr * TFPList Choisir son container * TFPList VS TStringList : il vaudrait mieux utiliser TStringList d'aprés les informations contenues sur cette page Sort Pour utiliser la méthode Sort sur un TList il faut lui fournir une function de comparaison

TObjectList

Anonymous (anonymous@undisclosed.example.com) — 2021-05-05T19:19:10+0200

TObjectList Sources & Ressources * TCollection VS TList VS TObjectList

TProcess et TProcessUTF8

Anonymous (anonymous@undisclosed.example.com) — 2021-04-24T13:05:44+0200

TProcess et TProcessUTF8 TProcess Doc : * TProcess -> wiki.freepascal.org * TProcess ->freepascal.org Programme de démo (Ping) Ce programme fait un Ping sur google.fr et affiche le résultat dans un TMemo procedure TForm1.Ping; var vProc: TProcess; begin vProc := TProcess.Create(nil); try // Nom de l'executable vProc.Executable := 'ping'; // Ajout des parametres vProc.Parameters.Add('google.fr'); // Ci dessous : poUsePipe trés important pour ut…

TRect, TPoint etc...

Anonymous (anonymous@undisclosed.example.com) — 2024-07-20T12:26:25+0200

TRect, TPoint etc... TRect Création pour créer un TRect : // Avec les données Left, Top, Right, Bottom Rect:=Classes.Rect(ALeft, ATop, ARight, ABottom); //Retourne un TRect (unit Classes) // Avec les données Left, Top, Width, Height Rect:=Bounds(ALeft, ATop, AWidth, AHeight); //Retourne un TRect (unit Classes)

TRegExpr

Anonymous (anonymous@undisclosed.example.com) — 2021-03-09T15:46:46+0200

TRegExpr Exemple d'utilisation procedure TMainForm.RegExecute(ARegex, AText: string); var vReg: TRegExpr; vI: integer; begin MMRes.Clear; vReg := TRegExpr.Create(ARegex); try if vReg.Exec(AText) then begin repeat MMRes.Lines.add('RegExpr.SubExprMatchCount=%d', [vReg.SubExprMatchCount]); if vReg.SubExprMatchCount > 0 then begin for vI := 0 to vReg.SubExprMatchCount do begin …

TRegistry (La base de Registre)

Anonymous (anonymous@undisclosed.example.com) — 2021-04-22T18:09:00+0200

TRegistry (La base de Registre) Adresses a connaitre * Trouver les chemins d'accès aux applications \HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\ Sources & Ressources *

TStream et descendants

Anonymous (anonymous@undisclosed.example.com) — 2023-03-02T19:10:42+0200

TStream et descendants TFileStream Creation * TFileStream.create TStringsList Write Ecrire du texte vS:='test'; FLogFileStream:=TFileStream.Create(FLogFilename,fmCreate or fmOpenWrite); FLogFileStream.Write(Pointer(vS)^,Length(vS)); FLogFileStream.free; Sources et Ressources

TStrings et descendants

Anonymous (anonymous@undisclosed.example.com) — 2020-06-03T18:12:49+0200

TStrings et descendants Astuces Accéder à tout le texte TStrings.text Sources et Ressources *

TThread

Anonymous (anonymous@undisclosed.example.com) — 2023-04-23T17:44:31+0200

TThread Titre Code du Thread { TMyThread } procedure TMyThread.Execute; begin {... fait quelque chose dans un thread ...} Synchronize(@SynchroEnum); // Appel une procedure synchronisée avec le thread principal end; procedure TMyThread.SynchroEnum; begin {... Fait quelque chose synchronisé avec le thread principal ...} end; constructor TMyThread.Create(CreateSuspended: boolean); begin FreeOnTerminate := True; inherited Create(CreateSuspended); end;