Discussion :

[Helianza]

Bonjour,

Je ne sais pas si le titre est suffisamment clair, alors je vous montre un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var toto : String;
  i : Integer;
  jour1 : Integer;
  jour2 : Integer;
  jour3 : Integer;
  jour4 : Integer;
  jour5 : Integer;
  jour6 : Integer;
  jour7 : Integer;
 
begin
  for i := 1 to 7 do
    begin
      if toto = 'Salut' then ('jour' + IntToStr(i)) := 0;
      if toto = 'Hello' then ('jour' + IntToStr(i)) := 1;
      if toto = 'Hallo' then ('jour' + IntToStr(i)) := 2;
    end;
end;

J'ai bien trouvé une fonction qui serait FindIntegerVariable, mais je ne la trouve que sur un site, et n'arrive pas à l'utiliser.
Est-ce que ce que je demande est possible ?

D'avance, merci !

[SergioMaster]

Bonjour,

Je ne suis pas sûr de comprendre. Vous voulez parler d'une énumération ?

type Jours=(Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi,Dimanche);

ou d'une liste de valeurs, genre dictionnaire
comme dans cet exemple

[Helianza]

Non, rien d'aussi compliqué.

Je voudrais affecter à la variable jour1 (1 étant ici fonction de i) la valeur 0, 1 ou 2 en fonction de la valeur de toto. J'ai pris toto pour l'exemple, je pensais que ce serait plus simple, mais je vais donner le code réel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Var i : Integer;
    j : Integer;
    jour1 : Integer;
    jour2 : Integer;
    jour3 : Integer;
    jour4 : Integer;
    jour5 : Integer;
    jour6 : Integer;
    jour7 : Integer;
    rb0 : TRadioButton;
    rb1 : TRadioButton;
    rb2 : TRadioButton;
 
begin
  rqtFestinResa.First;
  for i := 1 to rqtFestinResa.RecordCount do
    begin
      rqtFestinResa.Edit;
      for j := 1 to 7 do
      begin
        rb0 := FindComponent('rbUser' + IntToStr(i) + 'Null' + IntToStr(j)) as TRadioButton;
        rb1 := FindComponent('rbUser' + IntToStr(i) + 'Norm' + IntToStr(j)) as TRadioButton;
        rb2 := FindComponent('rbUser' + IntToStr(i) + 'Alte' + IntToStr(j)) as TRadioButton;
        if rb0.isChecked = true then ('jour' + IntToStr(j)) := 0;
        if rb1.isChecked = true then ('jour' + IntToStr(j)) := 1;
        if rb2.isChecked = true then ('jour' + IntToStr(j)) := 2;
      end;
      rqtFestinResa.Next;
    end;

Je souhaite ne faire qu'une seule requête SQL pour mettre à jour mon enregistrement : "Update reservation set lun_type = :jour1, mar_type = :jour2..." Du coup, je souhaite affecter à chaque variable (jour + j) sa valeur.
Sinon, je ne peux pas boucler, et il faut que j'écrive les 7 cas possibles, un pour chaque jour de la semaine. Rien de compliqué, bien sûr, mais comme je débute, j'essaye de voir s'il n'existe pas une solution à mon problème.

[tourlourou]

Utiliser un tableau d'entiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var
  Jours: array [1..7] of integer;

[Charly910]

Bonjour,
Je ne pense pas avoir bien compris ce que tu veux faire, mais est ce que tu ne pourrais pas utiliser un tableau de chaines : Jour[i],
puis construire ta chaine "Update reservation... avec les jour[i] ?

A+
Charly

Grillé par Tourlourou ! : tableau d'entiers ou de chaines ...

PS : tu peux aussi utiliser des tableaux de RadioButon qui éviteraient peut être les FindComponent ?

[anapurna]

salut

pour 7 jour autant utiliser un byte et se servir des opération de byte (SHL,SHR,AND,... )

Mes deux cents

[Paul TOTH]

c'est marrant cet usage de FindComponent(), c'est vraiment une fonction que je n'utilise jamais; ça me fait penser au document.getElementById() de Javascript, mais même en Javascript je ne l'utilise plus

[foetus]

Si j'ai bien compris , ce que tu cherches c'est la "reflection" (l'introspection étant un sous-ensemble, lien wiki en anglais) (ou réflexion en français)

Convert a string matching the symbolic name of a class or function into a reference to or invocation of that class or function.

[Helianza]

Bonjour !

Moult réponses dans cette soirée !
Je n'avais pas pensé au tableau, je pense que c'est une solution qui fonctionne très bien ici. Merci à Tourlourou et Charly910 !

PS : tu peux aussi utiliser des tableaux de RadioButon qui éviteraient peut être les FindComponent ?

Ici, je crée un module d'inscription à la cantine, j'ai trois radiobutton par jour, sur sept jours de la semaine. Sauf que le tout se reproduit autant de fois que j'ai de personnes qui m'ont délégué la possibilité de les inscrire, et d'invités que je souhaite inscrire. Du coup, je ne sais pas trop bien comment gérer tout cela. Faire un tableau de 21 colonnes, et du coup, chaque utilisateur a sa propre ligne ?
C'est pourquoi je fonctionne avec des boucles. Est-ce quelque chose qui n'est pas bon, point de vue performance ? Gérer le tableau serait plus efficace ?

c'est marrant cet usage de FindComponent(), c'est vraiment une fonction que je n'utilise jamais; ça me fait penser au document.getElementById() de Javascript, mais même en Javascript je ne l'utilise plus

Même question que pour le camarade d'avant, est-ce une mauvaise chose ? Comment auriez-vous procédé ici ? J'ai fait ça, parce que c'est ce que j'ai trouvé, mais je suis ouvert à une autre solution, si cette autre solution est mieux.

Si j'ai bien compris , ce que tu cherches c'est la "reflection" (l'introspection étant un sous-ensemble, lien wiki en anglais) (ou réflexion en français)

Je ne connaissais pas, et je crois que non, ce n'est pas ce que je voudrais

Ce que je recherche, mais je me dis que cela ne doit pas exister, c'est une fonction du genre : VAR('jour' + IntToStr(j)) et qui retournerait jour"valeurdej" en tant que variable. Que je traiterais ensuite comme une variable normale. En gros, je concatène ce qui m'intéresse, et le résultat de cette concaténation est une variable (que j'ai préalablement déclarée), à laquelle j'affecte la valeur que je souhaite.
Si j = 19, j'obtiens ma variable jour19, à laquelle j'affecte la valeur que je veux.

[free07]

c'est marrant cet usage de FindComponent(), c'est vraiment une fonction que je n'utilise jamais; ça me fait penser au document.getElementById() de Javascript, mais même en Javascript je ne l'utilise plus

Interessant et quel est l'alternative à FindComponent ? J'ai pris actuellement la maintenance d'un programme qui en fait une utilisation importante.

[SergioMaster]

Bonjour,

Il y a des informations manquantes qui se trouvent en fait dans cette discussion

Le code dans les grandes lignes :
- je fais une requête, elle me retourne x résultats.
- je compte les résultats, et je crée pour chaque ligne un panel avec des boutons radios dedans.
- je boucle sur mes enregistrements pour sélectionner les boutons radios.
- je modifie mes boutons radios.
- je reboucle sur mes boutons radios pour modifier mes lignes dans la query.

Mais ça c'était posé en FMX

Panel + FMX , étrange mais pas improbable
Quand même je trouve que l'approche est bien compliquée, l'alternative un tableau d'objet , a minima un tableau de TRadioButtons mais cela pourrait aussi être un tableau d'objets avec un élément qui serait le TRadioButton

Schématiquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
type 
Tmesboutonsradio : record  // ou mieux une class 
 ui : TradioButton
 valeur : integer;  // on pourrait aussi utiliser le tag de TRadioButton 
end;
 
TableauRadios : TList<TMesBoutonsRadio>

[Paul TOTH]

Interessant et quel est l'alternative à FindComponent ? J'ai pris actuellement la maintenance d'un programme qui en fait une utilisation importante.

si je prend ceci: <<Ici, je crée un module d'inscription à la cantine, j'ai trois radiobutton par jour, sur sept jours de la semaine. Sauf que le tout se reproduit autant de fois que j'ai de personnes qui m'ont délégué la possibilité de les inscrire, et d'invités que je souhaite inscrire. Du coup, je ne sais pas trop bien comment gérer tout cela. Faire un tableau de 21 colonnes, et du coup, chaque utilisateur a sa propre ligne ?>>

je regroupe les composants dans des TFrame auquel j'ajoute une fonction.

exemple les 3 radiobutton dans un TFrame qui a une function GetOptions()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
type
  TOption = (matin, midi, soir);
  TOptions = set of TOption;
 
procedure GetOption(var Options: TOptions; db: TCheckBox; Option: TOption);
begin
  if cb.Checked then Options := Options + Option;
end;
 
function TFrameJour.GetOptions: TOption;
begin
  Result := [];
  GetOption(Result, cbMatin, matin);
  GetOption(Result, cbMidi, midi);
  GetOption(Result, cbSoir, soir);
end;

de même on peut créer un TFrame par semaine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
type
  TSemaine = array[1..7] of TOptions;
 
function TFrameSemaine.GetSemaine: TSemaine;
begin
// on peut aussi créer un tableau de TFrameJour dans le constructor et utiliser alors une boucle
  Result[1] := FrameJour1.GetOptions;
  Result[2] := FrameJour2.GetOptions;
  Result[3] := FrameJour3.GetOptions;
  Result[4] := FrameJour4.GetOptions;
  Result[5] := FrameJour5.GetOptions;
  Result[6] := FrameJour6.GetOptions;
  Result[7] := FrameJour7.GetOptions;
end;

et du coup je récupère toutes les options d'une semaine par FrameSemaine1.GetSemaine

cette approche éviter de créer un composant tout en pouvant ajouter une fonction sur un "pseudo composant" sous la forme d'un TFrame

et toutes ces frames gagneraient sans doute à être crées dynamiquement...sauf à vouloir les positionner précisément dans l'IDE

[Helianza]

Je dois bien avouer que là, je suis un peu perdu, j'ai démarré delphi il y a peu, je n'ai encore jamais vu ces TFrame.
Je pense que pour cet exemple, je vais terminer comme j'ai commencé, et tenter de faire les choses d'une meilleure manière pour le prochain module qu'il va me falloir faire. Je garde en tout cas votre exemple et m'en servirai pour commencer mes études sur les TFrame

Je souhaite aussi réagir à cette phrase :

Panel + FMX , étrange mais pas improbable

Je travaille avec une développeuse Delphi qui bossait en VCL, et qui gère très bien le VCL, mais qui s'est lancé dans le FMX parce qu'on souhaite que ces modules soient utilisables sur smartphone. Du coup, il se peut qu'on ne fasse pas les choses correctement. D'où ma question : il faut éviter les panels quand on fait du FMX ?
Moi j'ai fait un panel que je crée dynamiquement, avec des boutons radios créés dynamiquement, et il me paraissait plus simple de fixer la position du panel (align : top, et donc collé au panel qui le précède) et de là, fixer la position des rbs dans ce panel. Cela risque de poser problème à un moment, notamment lors de l'exécution sur smartphone ?

Et j'en profite, parce que je crois qu'on ne le fait jamais assez, pour vous remercier de votre investissement dans l'aide au développement de novices

[SergioMaster]

Pour répondre brièvement à "Panel+FMX" c'est parce que FMX propose des TLayout, qui sont en quelque sorte des panels invisibles.

Moi j'ai fait un panel que je crée dynamiquement, avec des boutons radios créés dynamiquement, et il me paraissait plus simple de fixer la position du panel (align : top, et donc collé au panel qui le précède) et de là, fixer la position des rbs dans ce panel.

Je crois que deux modes de pensée vont s'affronter : Frames versus Style

Qu'est-ce qu'un frame, schématiquement une forme spécifique, Paul fait une démonstration parfaite de ce que cela peut apporter avec l'ajout de la fonction GetOptions
Un Style c'est juste une présentation rien n'empêche de donner à un Panel un Style qui contiendra diverse boite de choix (mais pas de fonctions), cela me fait penser à ces deux discussions de Parda3
https://www.developpez.net/forums/d1...enement-style/
https://www.developpez.net/forums/d1...ametre-tshape/

Cela risque de poser problème à un moment, notamment lors de l'exécution sur smartphone ?

Le fait de positionner dynamiquement l'ensemble ? Non je ne pense pas.

Il est aussi possible d'envisager l'utilisation d'un TGridLayout à la place d'un TPanel, c'est en tout cas ce que j'ai envisagé pour mon composant FMX.TRadioGroupBox

[SergioMaster]

Le fait de positionner dynamiquement l'ensemble ? Non je ne pense pas.

Par contre, il va falloir calculer la hauteur du Panel/Frame en fonction de la largeur de la cible
J'ai fait de petits essais uniquement sur GridLayout et Style voilà ce que ça donne (avec un peu de code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm74.GridLayout1Resize(Sender: TObject);
var nc,nr : Integer;
    H : Single;
begin
H:=GridLayout1.ItemHeight;
nc:=Trunc(GridLayout1.Width / GridLayout1.ItemWidth);
nr:=(GridLayout1.ControlsCount div nc);
if GridLayout1.ControlsCount mod nc > 0 then inc(nr);
if GridLayout1.Height<>H*nr then GridLayout1.Height:=GridLayout1.ItemHeight*nr;
end;

[SergioMaster]

Bonjour,

J'ai voulu aller un peu plus loin avec les styles
en pièce jointe un programme un peu en vrac mais qui tient compte de la taille d'affichage d'écran. (et donc du portage vers des mobiles)

Cela répond peut-être à l'interrogation de Free07

Interessant et quel est l'alternative à FindComponent ?

Pour les styles : FindStyleRessource

J'ai pris en compte la remarque de anapurna (bien que R soit un integer il suffit de la passer en byte)

pour 7 jours autant utiliser un byte et se servir des opérations de byte (SHL,SHR,AND,... )