LES POINTEURS EN DELPHI

Messages postés
50
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
1 décembre 2010
- - Dernière réponse : Reality31600
Messages postés
11
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
30 mai 2011
- 18 mars 2011 à 23:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/faq/962-les-pointeurs-en-delphi

Afficher la suite 
yannfrance
Messages postés
50
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
1 décembre 2010
-
Bonjour,
Merci pour ton tutoriel.
C'est très clair, bien détailler, bien expliquer en profondeur.
Ca tombe juste au moment ou j'en ai besoin.
Ca fait plaisir, merci bien Bacterius...
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
5 -
De rien, ça faisait longtemps que je voulais poster un truc sur les pointeurs ...
Je suis à peu près sûr de tout de ce que je raconte, après on va bien voir ^^

Cordialement, Bacterius !
cirec
Messages postés
4233
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 juillet 2019
32 -
tiens regarde on peut aussi écrire ;)

type
tagBGRQUAD = packed record
bgrRed: Byte;
bgrGreen: Byte;
bgrBlue: Byte;
bgrReserved: Byte;
end;
TBGRQuad = tagBGRQUAD;

procedure TForm1.Button1Click(Sender: TObject);
var
aColor : Integer;
aRGB : TBGRQuad ABSOLUTE aColor;
begin
with PaintBox1.Canvas do
begin
aColor := Brush.Color;
with aRGB do
begin
bgrRed := 250;
bgrGreen := 0;
bgrBlue := 0;
end;
Brush.Color := aColor;
FillRect(PaintBox1.ClientRect);
end;
end;
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
5 -
Tout à fait ça remplace bien la fonction RGB ^^

Cordialement, Bacterius !
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
5 -
Euh Cirec ne vaudrait-il pas plutôt faire ceci :

procedure TForm1.Button1Click(Sender: TObject);
var
aColor : Integer;
aRGB : TBGRQuad ABSOLUTE aColor;
begin
with PaintBox1.Canvas do
begin
with aRGB do
begin
bgrRed := 250;
bgrGreen := 12;
bgrBlue := 66;
end;
{ Ici, aColor prend la couleur rgb(250, 12, 66) }
Brush.Color := aColor;
FillRect(PaintBox1.ClientRect);
end;
end;