Procédure : paramètre TShape.

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,

Me voila bloqué à nouveau... :calim2:

J'ai une procédure avec plusieurs paramètres! un des paramètres est un tableau de TShape car j’appellerai cette fonction une fois avec avec un tableau de TRectangle, et une autre fois avec des TCircle.
Mais il me met des erreurs d'accès!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm4.minMaxTotalAmp(tab: array of real; tabLab: array of TLabel; str: string; arrayComposant: array of TShape);
var
   t:integer;
   min, max, h: real;
   rmin, rmax: Tarray<integer>;
begin
 
 ........... //pas important!
 
    for t := 0 to length(rmin)-1 do
    begin
         arrayComposant[rmin[t]].Stroke.Color:=TAlphaColorRec.Blue;
         arrayComposant[rmin[t]].Stroke.Thickness:=2;
    end;
    for t := 0 to length(rmax)-1 do
    begin
         arrayComposant[rmax[t]].Stroke.Color:=TAlphaColorRec.Red;
         arrayComposant[rmax[t]].Stroke.Thickness:=2;
    end;
 
end;

et j'appelle 2 fois ma fonction :

Code:

1
2
3
4
5
arrayRectTotal: array[0..5] of TShape;
    arrayCerAmp: array[0..6] of TShape;
 
minMaxTotalAmp(tabTot, arrayLabelTot, 'V', arrayRectTotal);
  minMaxTotalAmp(tabAmp, arrayLabelAmpe, 'A', arrayCerAmp);

12/06/2019, 17h18
Andnotor

Citation:

Envoyé par parda3

........... //pas important!

Je crains que si ;)

Comment sont remplis rmin/rmax ?
Le contenu de ces tableaux doit être compris entre 0 et High(arrayComposant).

:roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TForm4.minMaxTotalAmp(tab: array of real; tabLab: array of TLabel; str: string; arrayComposant: array of TShape);
var
   t:integer;
   min, max, h: real;
   rmin, rmax: Tarray<integer>;
begin
   min:=tab[0];
   max:=tab[0];
   tabLab[0].text:=format('%.2f'+str, [tab[0]/1000]);
   setlength(rmin, 1);
   setlength(rmax, 1);
   rmin[0]:=0;
   rmax[0]:=0;
   for t := 1 to 5 do
   begin
     h:=tab[t];
     tabLab[t].Text:=format('%.2f'+str, [tab[t]/1000]);
     if h=min then
     begin
          SetLength(rmin, Length(rmin)+1);
          rmin[Length(rmin)-1]:=t;
     end;
     if h<min then
     begin
          SetLength(rmin,1);
          min:=h;
          rmin[0]:=t;
     end;
     if h=max then
     begin
          SetLength(rmax, Length(rmax)+1);
          rmax[Length(rmax)-1]:=t;
     end;
     if h>max then
     begin
          SetLength(rmax,1);
          max:=h;
          rmax[0]:=t;
     end;
   end;

rmin et rmax ne peuvent pas dépasser 6 éléments, de 0 à 5!
Mon problème survient sur les lignes ou j'appelle arrayComposant!

12/06/2019, 17h28
ShaiLeTroll

Il y a eu avant tous les Create et affectation de Parent pour TOUS les éléments de arrayComposant ?
12/06/2019, 17h33
parda3

Citation:

Envoyé par ShaiLeTroll

Il y a eu avant tous les Create et affectation de Parent pour TOUS les éléments de arrayComposant ?

arrayComposant est un des paramètre de ma fonction, mais les tableaux que j'appelle avec ma procedure sont bien définit dans mon Form.create.
13/06/2019, 08h35
ShaiLeTroll

et c'est ce arrayComposant qui doit contenir des objets invalides ou non instanciés qui explique la Violation d'accès
Il te faut mettre en doute TOUT ton code lorsqu'il y a une violation d'accès

Cela peut même être un autre code qui s'execute entre le remplissage de arrayComposant et son utilisation
Par exemple, une autre boucle sur un tableau qui déborde et écrit sur arrayComposant des valeurs incorrectes
13/06/2019, 09h29
SergioMaster

Bonjour,

si je reprends la suite de vos diverses discussions, à mon avis, vous vous êtes sacrément compliqué la vie !
Personnellement je serais parti sur des frames (voir même des pseudos composants créés à partir de frames à la mode pprem ;))
ou mieux encore de styles personnalisés (car, après tout, vous utilisez FMX)

1 pièce(s) jointe(s)

Haha!!! ça c'est intéressant!!! j'avais justement cherché au début comment créer un composant contenant 2 autres composants (une forme + un label)!
Mais j'ai du mal cherché, ou ne pas mettre les bon mots clés!

Je vais me documenter sur le sujet et essayer d'adapter mon code, car cela pourrait être plus clair.

Mais pour le code j'ai mis tout ce qui est concerné. Le problème apparaît lorsque je change ma bordure!
Voila l’état de mes variables avant que je lance :
Code:

1 2 3 4 5 6 7 8 9 10 for t := 0 to length(rmin)-1 do begin arrayComposant[rmin[t]].Stroke.Color:=TAlphaColorRec.Blue; arrayComposant[rmin[t]].Stroke.Thickness:=2; end; for t := 0 to length(rmax)-1 do begin arrayComposant[rmax[t]].Stroke.Color:=TAlphaColorRec.Red; arrayComposant[rmax[t]].Stroke.Thickness:=2; end;
Pièce jointe 483089

Est ce que le problème pourrait venir du fait que je déclare mes tableau de type TShape? Qu'il ne reconnaisse pas la propriétés Stroke?
Mais étant donné que c'est la classe parent de TRectangle et TCircle, ça paraîtrait bizarre!!!

13/06/2019, 11h02
Paul TOTH

Citation:

Envoyé par parda3

Est ce que le problème pourrait venir du fait que je déclare mes tableau de type TShape? Qu'il ne reconnaisse pas la propriétés Stroke?
Mais étant donné que c'est la classe parent de TRectangle et TCircle, ça paraîtrait bizarre!!!

non, ce genre d'erreur ne peux se produire qu'à la compilation sur Delphi, on n'est pas sur un langage interprété mais sur un langage compilé fortement typé qui ne permet pas d'écrire n'importe quoi.

mais ton code est assez incompréhensible en fait, et je soupçonne qu'il soit artificiellement complexe, peux-tu nous montrer l'écran que tu veux afficher et indiquer ce que ton code est supposé faire ? je crois comprendre que tu as des indicateurs qui changent de couleur suivant certains seuils, mais ce n'est pas très clair.
13/06/2019, 11h13
parda3

1 pièce(s) jointe(s)

Je suis en train de regarder les frames que m'a conseillé SergioMaster, cela va simplifier un peu!

Mon programme récupère des données à partir de fichiers CSV, que je stock dans des tableau.
ces valeurs, je dois les afficher et les dispatcher dans les différentes formes ci dessous. (Pour le moment, je travaille que sur ALab et Hello., 1er et dernière ligne)

Ce que j'essaye de faire c'est de changer la bordure des formes qui ont la valeur min et max.

Pièce jointe 483133
13/06/2019, 11h29
SergioMaster

Citation:

Envoyé par parda3

Je suis en train de regarder les frames que m'a conseillé SergioMaster, cela va simplifier un peu!

Heureux de le lire, et si, en plus ces frames sont transformées en "composant" voir https://register.gotowebinar.com/reg...90976759963907 cela sera encore plus simple ;)
mais je pense que les Styles peuvent être aussi une solution

alors voila typiquement le genre de situation ou je passe sur du code non visuel, mais bon j'ai quelques années d'expérience :)

pour une approche plus simple, je créerais un TFrame qui représente une colonne et j'en placerais donc 6 côte à côte pour reproduire cet écran.

l'avantage de passer par un TFrame c'est qu'on va pouvoir lui ajouter des méthodes et des propriétés ce qui va économiser les variables temporaires que tu as

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
type
  TMainform = class(TForm)
    Frame1: TFrameColonne;
    Frame2: TFrameColonne;
    Frame3: TFrameColonne;
    Frame4: TFrameColonne;
    Frame5: TFrameColonne;
    Frame6: TFrameColonne;
  private
   FColonnes: array[0..5] of TFrameColonne;
  end;
 
procedure TMainFormCreate(Sender: TObject);
begin
// on va se simplifier la vie pour l'accès à la nième colonne une bonne fois pour toute
  FColonnes[0] := Frame1;
  FColonnes[1] := Frame2;
  FColonnes[2] := Frame3;
  FColonnes[3] := Frame4;
  FColonnes[4] := Frame5;
  FColonnes[5] := Frame6;
end;
 
procedure TMainForm.LoadCSV;
var
  value: ...
begin
  ...
  for i := 0 to 5 do
  begin
    value := ...
    FColonnes[i].SetValue(value); // une méthode à créer en fonction de tes besoins
  end;
 
  Min := 0;
  MinValue := FColonnes[0].GetValue(); // idem
  Max := 0;
  MaxValue := MinValue;
  for i := 1 to 5 do
  begin
    Value := FColonnes[i].GetValue();
     if Value < MinValue then
     begin
       Min := i;
       MinValue := Value;
     end;
     if Value > MaxValue then
     begin
       Max := i;
       MaxValue := Value;
     end;
   end;
  end;
 
// et alors, par exemple
  for i := 0 to 5 do
  begin
    FColonnes[i].IsMini( i = Min);
    FColonnes[i].IsMaxi( i = Max);
  end;
end;

13/06/2019, 11h44
parda3

Comme quoi, avoir un avis extérieure, c'est plutôt une bonne chose! ;)

Merci @SergioMaster pour ton lien, je vais écouter tout ça!

@Paul, je te remercie grandement pour ton aide, avant d'aller plus loin, je vais refaire un petit point sur mon programme...
Cela va faire 1 mois et demi que j'ai commencé à programmer en delphi et mon code à évoluer en même temps que moi! Il n'est pas optimisé sur certain point! :lol:
Mais ton code me simplifie déjà la vie, j'utilisais des TGridPanelLayout pour organiser ma page, et avec tout ces composants à gérer 1 par 1, c'était un sacré bor...!! :mouarf:

Je m'en vais apprendre et adapter mon code, je vous refait un point en fin d’après midi!

2 pièce(s) jointe(s)

Re,
comme j'avais un doute avec les styles j'ai écrit une petite application simple objectif : vérifier que l'on pouvait changer un stylelookup au runtime
Pièce jointe 483162
le bouton "switch" interverti les formes (mais pas les textes :D du moins est censé ne pas changer les textes mais j'ai voulu souligner le fait)
[Edit]
j'ai simplifié le code puis répondu à la question qui allait certainement suivre : 'comment mettre des valeurs ?'
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 procedure TForm45.Button1Click(Sender: TObject); begin BeginUpdate; // indique que la forme nécessitera un "rafraichissement" if Button1.Tag=0 then begin Panel1.StyleLookup:='inarectangle'; Panel2.StyleLookup:='inacircle'; Button1.Tag:=1; end else begin Panel1.StyleLookup:='inacircle'; Panel2.StyleLookup:='inarectangle'; Button1.Tag:=0; end; EndUpdate; // fin de mise à jour, rafraichit end; procedure TForm45.FormCreate(Sender: TObject); var AShape : TShape; begin Panel1.StylesData['text']:='un cercle'; Panel2.StylesData['text']:='un rectangle'; Panel1.StylesData['Forme.Fill.Color']:=TAlphaColors.Yellow; // comment initialiser une couleur (j'ai renommé dans mon style les Circle1Style1 et Rectangle1Style1 en forme) end; // évènement OnChange de Panel1 procedure TForm45.Panel1ApplyStyleLookup(Sender: TObject); var AShape : TShape; begin // comment changer la couleur selon une valeur if TPresentedControl(Sender).FindStyleResource<TShape>('forme',AShape) then begin if Button1.Tag=0 then aShape.Fill.Color:=TAlphaColors.Green else aShape.Fill.Color:=TAlphaColors.Red; end; end; end.
Voilà une petite chose qui pourrait bien faire l'objet d'un paragraphe du tutoriel sur les styles que j'envisageais d'écrire ;)

13/06/2019, 14h34
SergioMaster

Pour répondre @Paul, je ne suis pas sûr qu'il soit besoin d'ajouter de tableau de "FrameColonne",
si parda3 continue à les mettre dans un TGridPanelLayout, ces composants seront déjà mémorisés dans le GridPanelLayout.ControlCollection
13/06/2019, 14h51
parda3

Donc on peut transformer un panel carré en un panel rond, sans changer sa nature, juste la forme! c'est super!!! :mrgreen:

C'est toi qui a créer les style inarectangle et inacircle, ou c'est des style par default à delphi? ils ne sont pas défini dans l'unit!
13/06/2019, 14h57
SergioMaster

c'est moi dans la feuille de style il faut ouvrir le stylebook pour les voir
13/06/2019, 15h48
Paul TOTH
Citation:

Envoyé par SergioMaster

Pour répondre @Paul, je ne suis pas sûr qu'il soit besoin d'ajouter de tableau de "FrameColonne",
si parda3 continue à les mettre dans un TGridPanelLayout, ces composants seront déjà mémorisés dans le GridPanelLayout.ControlCollection

oui mais c'est juste plus simple d'avoir un tableau typé dont on fixe explicitement les éléments au lieu de supposer que le GridPanelLayout contient bien les composants auxquels on s'attend et dans l'ordre espéré...de plus, avec ce petit code d'initialisation on peut justement modifier l'organisation des éléments à l'écran selon les besoins sans que cela ne casse le code...ou au contraire on aura une erreur en disant que tel composant n'existe plus par exemple...mais en vrai, personnellement j'aurais sans doute écris
Code:

1 2 3 4 5 6 procedure TMainFormCreate(Sender: TObject); begin for i := 0 to 5 do FColonnes[i] := TFrameColonne.Create(Self); end;
avec un constructor surchargé qui s'occupe de tout :)
13/06/2019, 17h25
parda3

Citation:

Envoyé par SergioMaster

c'est moi dans la feuille de style il faut ouvrir le stylebook pour les voir

J'avais mal regardé! :roll:

Peut on accéder au tag du frame, en cliquant sur un des panel? J'ai bien sur défini un tag pour chaque frame!
j'ai testé ca: ((Sender as TPanel).parent).parent.tag, mais je pense que c'est moche! :lol:
13/06/2019, 17h56
SergioMaster

il faut choisir soit les frames soit les styles

Citation:

mais je pense que c'est moche!

effectivement c'est plus que moche
pourquoi ne pas ajouter au tframe une propriété ?

Voir 40 message(s) de cette discussion en une page