Discussion :

[Jipété]

Bonjour,

J'ai rempli la liste d'un ComboBox avec des strings représentant des TFPBaseInterpolation (unité extinterpolation, ça s'utilise ainsi : DestCanvas.Interpolation := TQuadraticInterpolation.Create; ou un autre filtre, DestCanvas est un TLazCanvas).

Maintenant, j'ai deux possibilités concernant l'utilisation au quotidien, à partir du choix fait dans le ComboBox :
soit

Code :

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

1
2
3
4
5
    case cbbxFilters.ItemIndex of
     0: DestCanvas.Interpolation := TBilineairInterpolation.Create;
     1: DestCanvas.Interpolation := TBlackmanInterpolation.Create;
     // et il y a beaucoup d'autres lignes
    end;

soit une seule ligne DestCanvas.Interpolation := (cbbxFilters.Text as TFPBaseInterpolation).Create; mais ça ne compile pas :

Error: Class or COM interface type expected, but got "TTranslateString"

avec le curseur qui clignote devant le "as".

J'ai jeté un œil à l'aide sur "as", je n'ai pas trouvé d'explication me permettant d'avancer, et je ne sais pas du tout quoi taper dans les moteurs de recherche.

Si quelqu'un a une idée de ce qui manque, sa réponse sera un grand bonheur
Merci d'avance,

[BeanzMaster]

Salut Jipete

soit une seule ligne DestCanvas.Interpolation := (cbbxFilters.Text as TFPBaseInterpolation).Create; mais ça ne compile pas

Normal tu passes une variable de type String. Ca ne peut pas être compatible (ce genre de truc pour construire des objet dynamiquement est très utile et ça me manque aussi un peu par rapport au PHP )

Tu n'as pas le choix que faire un truc dans le genre

Code :

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

1
2
3
4
5
6
7
8
Function GetInterpolationClass(Idx:Integer): TFPCustomInterpolation;
begin
  result:=nil;
  Case of Idx :
    0: result:=TMitchellInterpolation.Create;
    ....
  end;
end

;

[Andnotor]

as est un transtypage contrôlé à la compilation. L'autre variante serait bien sûr TFPBaseInterpolation(cbbxFilters.Text).

Dans le premier cas (as), le type de la donnée transtypée doit être conforme à ce qui est attendu (soit un type identique ou dérivé), dans le cas contraire, le compilateur râle. Dans le deuxième cas, le compilateur va passer tout droit (aucun contrôle particulier) et l'erreur éventuelle surviendra en runtime (violation d'accès logiquement si les points d'entrée ne sont pas conformes). Dans ce dernier cas, il faut donc bien savoir ce que l'on fait dès le départ.

Mais il y a peu de chance que ça fonctionne ici, même si cbbxFilters.Text n'est finalement qu'un pointeur

[Jipété]

Bonsoir,

et merci pour vos réponses

as est un transtypage contrôlé à la compilation. L'autre variante serait bien sûr TFPBaseInterpolation(cbbxFilters.Text).

Dans le premier cas (as), le type de la donnée transtypée doit être conforme à ce qui est attendu (soit un type identique ou dérivé), dans le cas contraire, le compilateur râle. Dans le deuxième cas, le compilateur va passer tout droit (aucun contrôle particulier) et l'erreur éventuelle surviendra en runtime (violation d'accès logiquement si les points d'entrée ne sont pas conformes).

Ah ben non, Lazarus n'est pas content, d'entrée de jeu :

Code :

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

DestCanvas.Interpolation := TFPBaseInterpolation(cbbxFilters.Text).Create;

-->

Error: Incompatible types: got "TObject" expected "TFPCustomInterpolation"

On ne m'ôtera cependant pas de l'idée que c'est dommage et qu'on n'est pas loin puisqu'en regardant bien une ligne qui compile et fonctionne : DestCanvas.Interpolation := TMitchelInterpolation.Create;, la partie en rouge on est bien d'accord que c'est du bête texte, hein.

[acaumes]

Bonjour,

Bonsoir,

DestCanvas.Interpolation := TMitchelInterpolation.Create;, la partie en rouge on est bien d'accord que c'est du bête texte, hein.

Non, pas vraiment,
Pour ton compilateur c'est du texte mais il peut (parce que il en a trouve quelque part la définition) en l'adresse de la fonction de crétaion de la classe.
Lorsque tu passes du texte DestCanvas.Interpolation := 'TMitchelInterpolation'.Create; (qui ne fonctionne pas) pour ton compilateur c'est du texte et il ne trouve pas (sauf à regarder du côté de RTTI de classe correspondante). C'est toute la difficulté entre les langages compilés (pascal) qui font le travail de mise en correspondance au moment se la compilation et ceux interprétés (PHP) qui eux attendent l'exécution de la ligne pour aller chercher dans les classes déjà trouvées si il y en a une qui correspond.

Cordialement

[Jipété]

Yep !

M'en suis sorti autrement : j'ai récupéré tous ces Txxx dans le fichier où ils étaient définis, les ai collés dans une nouvelle unité à moi, les ai intégrés dans une array of records prévue pour et roule ma poule, ça fonctionne du feu de Dieu !
("_ei" ça n'a rien à voir avec qui vous savez, de sinistre mémoire, c'est juste ExtInterpolation pour différencier les doublons d'avec "_rs" pour uReSample, l'unité qui m'a mis le pied à l'étrier.)

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
const
  ResampleFilters: array[0..16] of record
    Name  : string;	// Filter name
    Filter: TFilterProc;// Filter implementation
    Width : Double;	// Suggested sampling width/radius
  end = (
  (Name: 'Bilinear_ei';	Filter: @BilinearFilter_ei;	Width: 1.0),
//  (Name: 'Blackman';	Filter: @BlackmanFilter;	Width: 1.0),
//  (Name: 'BlackmanBessel';	Filter: BlackmanBesselFilter;	Width: 3.24),
//  (Name: 'BlackmanSinc';	Filter: BlackmanSincFilter;	Width: 4.0),
  (Name: 'Box_ei';	Filter: @BoxFilter_ei;	Width: 0.5),
  (Name: 'Catrom';	Filter: @CatromFilter;	Width: 2.0),
  (Name: 'Cubic';	Filter: @CubicFilter;	Width: 2.0),
//  (Name: 'Gaussian';	Filter: @GaussianFilter;	Width: 1.25),
  (Name: 'Hamming';	Filter: @HammingFilter;	Width: 1.0),
  (Name: 'Hanning';	Filter: @HanningFilter;	Width: 1.0),
  (Name: 'Hermite_ei';	Filter: @HermiteFilter_ei;	Width: 1.0),
  (Name: 'Lanczos_ei';	Filter: @LanczosFilter_ei;	Width: 3.0),
  (Name: 'Mitchel_fp';	Filter: @MitchelFilter_fp;	Width: 2.0),
  (Name: 'Quadratic';	Filter: @QuadraticFilter;	Width: 1.5),
    (Name: 'Box_rs';	Filter: @BoxFilter_rs;	Width: 0.5), 
//renommé    (Name: 'Triangle';	Filter: TriangleFilter;	Width: 1.0), // ancien nom de dessous
    (Name: 'Bilinear_rs';	Filter: @BilinearFilter_rs;	Width: 1.0),
    (Name: 'Hermite_rs';	Filter: @HermiteFilter_rs;	Width: 1.0),
    (Name: 'Bell';	Filter: @BellFilter;	Width: 1.5),
    (Name: 'B-Spline';	Filter: @BSplineFilter;	Width: 2.0),
    (Name: 'Lanczos3_rs';	Filter: @Lanczos3Filter_rs;	Width: 3.0),
    (Name: 'Mitchell_rs';	Filter: @MitchellFilter_rs;	Width: 2.0));

Je me balaye tout ça à grands coups de for i := 0 to length(ResampleFilters)-1 do ou autres ResampleFilters[cbbxFilters.ItemIndex].Filter, j'aime quand les choses fonctionnent ainsi

Plus qu'à essayer de comprendre pourquoi Gaussian et BlackMan plantent violemment à l'exécution (plus un autre souci avec les 2 BlackManXXX), mais comme j'ai suffisamment à faire avec ceux qui restent, puisqu'il paraît que le mieux est l'ennemi du bien, je vais sans doute déclarer que ça va bien comme ça !

Bon dimanche,

[hmira]

Bonjour,

soit une seule ligne DestCanvas.Interpolation := (cbbxFilters.Text as TFPBaseInterpolation).Create; mais ça ne compile pas :

avec le curseur qui clignote devant le "as".

....

Si quelqu'un a une idée de ce qui manque, sa réponse sera un grand bonheur

Bonjour Jipété,

Évidemment, que cela ne peut pas compiler ! Les opérateurs as, is appliqués à des instances d'objet, ont une signification bien précises. Mais là, je suis désolé, je vous le dis amicalement c'est du "n'importe quoi !".

Pour résoudre le problème de manière plus élégante, vous auriez pu utiliser le concept de "Référence de classe". Exemple :

Code PASCAL :

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
30
31
32
33
34
35
Type
 TFPBaseInterpolationRefClass : Class of TFPBaseInterpolation;
 
....
 
var
  aFPBaseInterpolationRefClass : TFPBaseInterpolationRefClass;
  aFPBaseInterpolation : TFPBaseInterpolation;
 
 
 aFPBaseInterpolationRefClass := nil; // Une référence de classe peut être à nil, et donc ne référencer aucune classe
 case cbbxFilters.ItemIndex of
     0: DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBilineairInterpolation;
     1: DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBlackmanInterpolation;
 
       .....
 end;
 
// Exemple d'instantiation d'objets
if aFPBaseInterpolationRefClass <> nil then
  aFPBaseInterpolation := aFPBaseInterpolationRefClass.Create
else
  aFPBaseInterpolation := nil;  // Ici , c'est l'instance d'objet qui est à nil.
 
// Exemple d'utilisation d'une instance d'objet
if Assigned(aFPBaseInterpolation) then
  aFPBaseInterpolation.xxxx := ....;
 
...
 
if  (aFPBaseInterpolation is TBilineairInterpolation) then
  TBilineairInterpolation(aFPBaseInterpolation).yyyy := ..... ; 
...
if (aFPBaseInterpolation Is TBlackmanInterpolation) then
  TBlackmanInterpolation(aFPBaseInterpolation).zzzz := .....;

A+

[Jipété]

Évidemment, que cela ne peut pas compiler ! Les opérateurs as, is appliqués à des instances d'objet, ont une signification bien précises. Mais là, je suis désolé, je vous le dis amicalement c'est du "n'importe quoi !".

Oui oui, mais en général, je ne circule pas trop sur ces terrains minés et pleins de chausse-trappes
J'aurais dû faire précéder ma ligne "atroce" de la précision "pseudo-code".

Pour résoudre le problème de manière plus élégante, vous auriez pu utiliser le concept de "Référence de classe". Exemple :

Code PASCAL :

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

1
2
3
4
5
6
7
// Exemple d'utilisation d'une instance d'objet
 
if  (aFPBaseInterpolation is TBilineairInterpolation) then
  TBilineairInterpolation(aFPBaseInterpolation).yyyy := ..... ; 
...
if (aFPBaseInterpolation Is TBlackmanInterpolation) then
  TBlackmanInterpolation(aFPBaseInterpolation).zzzz := .....;

Et donc une vingtaine d'entrées comme ça ? Sûrement efficace mais pas très élégant à mes yeux (bon, les goûts et les couleurs ça se discute pas ) : 20 filtres = une quarantaine de lignes lourdes, en plus dans le code de l'unité de l'ihm, moyen moyen, je préfère avoir tout ça dans l'unité dédiée aux filtres.

Merci quand même pour le tuyau (m'en rappellerais-je ? C'est une autre histoire...)

[hmira]

...Et donc une vingtaine d'entrées comme ça ? Sûrement efficace mais pas très élégant à mes yeux (bon, les goûts et les couleurs ça se discute pas ) : 20 filtres = une quarantaine de lignes lourdes, en plus dans le code de l'unité de l'ihm, moyen moyen, je préfère avoir tout ça dans l'unité dédiée aux filtres.

Bonjour,

Présenté comme ça, cela parait effectivement fastidieux ! MAIS, en réalité ce n'est pas comme cela que les choses se présentent et j'aurais du le préciser.

Le transtypage explicite est nécessaire et requis uniquement pour les propriétés et les méthodes statiques. Pour les propriétés et les méthodes virtuelles, il n'est nullement nécessaire d'effectuer des transtypage explicite avec des if ... is ... then Txx(aFPBaseInterpolation). xx), dès lors que l'instance d'objet (même si le type de la variable est déclarée en tant que classe de base exemple aFPBaseInterpolation : TFPBaseInterpolation) eut été créée et instanciée avec le type approprié, c.à.d. une classe descendante . Exemple : aFPBaseInterpolationRefClass := TBlackmanInterpolation.Create). En effet, il s'agit tout simplement du mécanisme du polymorphisme.

J'ai regardé par simple curiosité le code sources des classes TFPBaseInterpolation, TBilineairInterpolation, TBlackmanInterpolation, etc . et il s'avère que toutes les propriétés et méthodes des ces classes sont déclarées virtuelles, et même abstraites dans la classe ancêtre.

Donc d'après-mois aucun transtypage explicite ne sera nécessaire et donc je persiste et je signe que la méthode que je vous ai suggérée est la bonne approche. Maintenant, libre à vous d'opter pour une autres méthode inefficace comme celle par exemple qui consiste à faire des copier/coller du code source !

A+

[Jipété]

Bonsoir hmira,

Pour résoudre le problème de manière plus élégante, vous auriez pu utiliser le concept de "Référence de classe". Exemple :
[--snip--]

J'ai réactivé mes recherches sur les filtres, et je suis bloqué sur un point bizarre.
Quand je compile votre exemple (résumé juste pour une lecture facile ici) :

Code :

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

1
2
3
4
5
6
  var
    aFPBaseInterpolationRefClass : TFPBaseInterpolationRefClass;
    aFPBaseInterpolation : TFPBaseInterpolation; // post hmira
  begin
    case cbbxFilters.ItemIndex of
       0: DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBilineairInterpolation;

je gagne ça au niveau de la ligne 0: :

Error: Incompatible types: got "TFPBaseInterpolationRefClass" expected "TFPCustomInterpolation"

Je trouve ça très capricieux, chatouilleux et extrêmement bloquant (parce que, oui, en ce qui me concerne, tout ce qui est abstrait et virtuel, j'ai du mal à comprendre le sens des mots et la finalité des choses).

En plus, je ne savais même pas qu'on pouvait construire des choses avec 2 := qui se suivent ! On en apprend tous les jours, vous me direz, mais là, je ne sais pas ce que ça fait.
Quand je fais i := 3; je sais que je mets la valeur 3 dans ma variable i déclarée comme integer, par exemple, mais
DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBilinearInterpolation; je ne sais pas ce que ça fait, et je ne sais pas le dire et l'écrire en langage français, comme pour le i ci-dessus.

Un soupçon d'explications complémentaires ?
Merci,

[hmira]

Bonjour Jipété,

Comme je ne disposais pas du contexte complet de votre application, je vous ai donné un exemple rapide pour illustrer le concept et l'utilisation des références de classes tout essayant de rester le proche de votre code initial. J'ai utilisé vos propres noms de classes etc. Et il se troue qu'effectivement en le relisant, une erreur manifeste s'est glissée dans le code ! (il s'agit des ':=' qui se suivent dans la même instruction, et qui ne cherchez pas plus, ne veulent rien dire ! Mea culpa.

Cependant, le principe général des références de classes reste valable.

Le code ci-dessous, à adapter bien sûr, annule et remplace le code précédent

Voilà j'espère que cette fois-ci, il n'y a pas d'erreur, sinon, je vous fournirai à l'occasion un exemple complet et simple, en dehors du contexte de votre application, mettant en ouvre les références de classes. A charge à vous ensuite d'appliquer ces concepts dans votre application.

Code 'PASCAL :

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
30
31
32
33
type
 TFPBaseInterpolationRefClass : Class of TFPBaseInterpolation;
....
 
var
 aFPBaseInterpolationRefClass : TFPBaseInterpolationRefClass;
 // aFPBaseInterpolation : TFPBaseInterpolation; // (n'est plus utilisée, remplacée directement par DestCanvas.Interpolation) 
 
 aFPBaseInterpolationRefClass := nil; // Une référence de classe peut être à nil, et donc ne référencer aucune classe
 case cbbxFilters.ItemIndex of
   0: aFPBaseInterpolationRefClass := TBilineairInterpolation;
   1: aFPBaseInterpolationRefClass := TBlackmanInterpolation;
   .....
 end;
 
// Exemple d'instantiation d'objets
if aFPBaseInterpolationRefClass <> nil then
  DestCanvas.Interpolation := aFPBaseInterpolationRefClass.Create
else
  DestCanvas.Interpolation := nil; // Ici , c'est l'instance d'objet qui est à nil.
 
// Exemple d'utilisation d'une instance d'objet
if Assigned(DestCanvas.Interpolation) then
  DestCanvas.Interpolation.xxxx := ....;
 
...
// Le Transtypage est requis uniquement pour les propriétés et les méthodes statiques 
if (DestCanvas.Interpolation is TBilineairInterpolation) then
  TBilineairInterpolation(DestCanvas.Interpolation).yyyy := ..... ; 
...
// Le Transtypage est requis uniquement pour les propriété et les méthode statiques 
if (DestCanvas.Interpolation Is TBlackmanInterpolation) then
  TBlackmanInterpolation(DestCanvas.Interpolation).zzzz := .....;

A+

[Jipété]

Bonsoir,

merci pour ce retour, mais tout d'un coup j'ai eu une illumination :

d'abord j'ai utilisé la complétion de code et lorsque j'ai saisi DestCanvas point int le système m'a proposé Interpolation:TFPCustomInterpolation, ensuite j'ai regardé attentivement les 3 lignes concernées dans le tuto FreePascal (2 vraiment du tuto et 1 rajoutée par moi) :

Code :

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

1
2
3
4
// Execute the stretch draw via TFPSharpInterpolation
// DestCanvas.Interpolation := TFPSharpInterpolation.Create; // une horreur, gardé pour mémoire [origine]
DestCanvas.Interpolation := TMitchelInterpolation.Create; // OK [rajouté par moi]
// suite du tuto :

et là je me suis dit : mon gars, tu as tout sous les yeux, qu'est-ce que tu vas te prendre la tête avec la complexité de la solution de hmira, genre DestCanvas.Interpolation.xxxx := ....; et il faudra lui demander par quoi remplacer xxxx et que mettre à droite du :=, la complétion n'étant pas très utile sur ce coup-là.

Et j'avais d'autant plus tout sous les yeux qu'in fine, c'est ce que j'avais déjà écrit dans le premier post :

Code :

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

1
2
3
4
5
6
7
8
case cbbxFilters.ItemIndex of
  0: DestCanvas.Interpolation := TBlackmanInterpolation.Create;
  1: DestCanvas.Interpolation := TBoxInterpolation.Create;
  2: DestCanvas.Interpolation := TBsplineInterpolation.Create;
  3: DestCanvas.Interpolation := TMitchelInterpolation.Create;
end;
// suite du tuto :
DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);

et ça fonctionne !

Le seul souci (et c'est l'origine de cette discussion), c'est l'obligation de synchroniser à la main la liste dans le case cbbxFilters.ItemIndex et la liste d'items dans le combobox, avec tous les risques d'erreurs, de fautes de frappe, etc., et c'est ça dont je voulais m'affranchir.
Bah, si y a pas moyen y a pas moyen, faudra juste être très soigneux.

Demain les tests complets,

[anapurna]

salut

pourquoi faire un case alors que tu peut tres bien instancier une class par son nom

Code :

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

 DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass('MACLASSFINAL')) .create

[Jipété]

Salut,

salut

pourquoi faire un case alors que tu peux très bien instancier une class par son nom

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass('MACLASSFINAL')).create

Ah, toi, tu prends le train en marche et tu as raté le début de l'histoire,

En fait, c'est juste qu'au final j'ai une bonne vingtaine de filtres à tester et que le plus simple, dans ce cas, c'est le bon vieux combobox dont la liste d'items sera remplie avec la liste des filtres, d'où le case combobox.ItemIndex of que je vais d'ailleurs coupler avec le choix du fichier à traiter, du coup, une fois celui-ci déterminé, plus qu'à choisir un filtre ou un autre dans la liste du combo (qui aurait pu être une ListBox, d'ailleurs, mais elle prend plus de place), et roule ma poule !

[anapurna]

salut

oui je prend le train en route mais je double tout le monde

l'exemple que je t'ai donnée peut très bien s'écrire pour que ce soit plus parlant pour toi

Code :

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

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass(format('T%s',[cbbxFilters.Items[cbbxFilters.ItemIndex]]))).create

je te donne juste un exemple de ce qui est possible de faire sachant que les items des combo sont des TString
tu peut faire un peu ce que tu veut ajouter un objet ou gérer des libelles

autre exemple
initialisation

Code :

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

cbbxFilters.Items.AddObject('filtre1',TMitchelInterpolation.Create);

utilisation

Code :

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

  DestCanvas.Interpolation :=  TFPBaseInterpolationRefClass(cbbxFilters.Items.Objects[cbbxFilters.ItemIndex])

voila mes 2 Cts
j’espère avoir fait avancer le schmilblick

[hmira]

salut

pourquoi faire un case alors que tu peut tres bien instancier une class par son nom

Code :

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

 DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass('MACLASSFINAL')) .create

Dans le cas présent Non !
En effet, sauf erreur de ma part, FindClass ne marche que pour les classes descendantes de TPersistent et de surcroit déjà enregistrées par RegisterClass ou RegisterClasses.
Or, il se trouve qu'aucune des classes qui nous concernent (TFPCustomInterpolation, TFPBaseInterpolation, TBlackmanInterpolation, TMitchelInterpolation, etc..) n'est persistante, et encore moins enregistrée !
Sinon, FindClass aurait été une très bonne idée et résoudrait incontestablement, de manière élégante, le problème de Jipété sans qu'il soit obligé d'avoir des illuminations.

A+

[anapurna]

salut

le finclass n'est qu'un exemple j'ai pas regardé les ancêtres des filtres
finclass ne fait qu'une recherche dans une list d'objets on peut tres bien l’écrire soit même

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
 
//variable list global
var
  classFilterByName : TStringList;
...
 
// Enregistrer une classe
procedure registerClassFilterByName(classe: TFPBaseInterpolationRefClass);
begin
  // Ajout de la classe si elle n'est pas déjà référencée
  if (classFilterByName.IndexOf(classe.ClassName) = -1) then
  begin
    classFilterByName.AddObject(classe.ClassName,TObject(classe));
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// Obtenir une classe par son nom
function getClassFilterByName(nom: string): TFPBaseInterpolationRefClass;
var
  i : integer;
begin
  // Recherche dans la liste des classByName
  i := classFilterByName.IndexOf(nom);
  // si pas trouvé, on renvoie nil
  if (i = -1) then
    result := nil  // si trouvé, on renvoie la classe associée
  else
    result := TFPBaseInterpolationRefClass(classFilterByName.objects[i]);
end;

Code :

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

1
2
3
4
5
6
 
// enregistrement des classes  :
if  classFilterByName = Nil Then 
  classFilterByName := TStringList.Create;
 
registerClassFilterByName(TMitchelInterpolation);

...
// libération classFilterByName

Code :

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

1
2
3
4
if classFilterByName.count =1 Then  
begin
  classFiletrByName.Free;
end;

// Utilisation :

Code :

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

1
2
3
 
getClassFilterByName('TMitchelInterpolation').create
...

je pense en avoir assez dis pour qu'il puisse se débrouiller tout seul
on se sert d'une méthode similaire pour ajouter la lecture des différents format graphique

mes 2 Cts

[tourlourou]

Les noms remplissant la ComboBox viennent bien de quelque part... Soit une constante tableau de ces appellations avec une autre dimension pour une référence au type, un Create spécifique doit être aisé et éviter de s'emmêler dans l'ordre du combo et du case of, au mieux d'ailleurs avec un TStringList et un IndexOf sur le nom.

[Jipété]

je pense en avoir assez dit pour qu'il puisse se débrouiller tout seul

Bon, ben il va essayer demain, mais il rappelle qu'il a énormément de mal avec tout ce qui est abstrait, virtuel, impalpable...

En plus il essaye de mixer les Tfpmachinchose de Lazarus/FreePascal avec la construction trouvée dans l'unité Resample du projet DoubleCommander, qui se goupille ainsi (il ne met qu'un filtre pour ne pas trop alourdir) :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
type
  // Type of a filter for use with Stretch()
  TFilterProc = function(Value: Single): Single;
 
  // Sample filters for use with Stretch()
  function HermiteFilter (Value: Single): Single;
 
  // Interpolator
  // Src:	Source bitmap
  // Dst:	Destination bitmap
  // filter:	Weight calculation filter
  // fwidth:	Relative sample radius
  procedure Stretch(Src, Dst: TBitmap; filter: TFilterProc; fwidth: single);
 
// -----------------------------------------------------------------------------
//			List of Filters
// -----------------------------------------------------------------------------
 
const
  ResampleFilters: array[0..1] of record
    Name  : string;	// Filter name
    Filter: TFilterProc;  // Filter implementation
    Width : Single;	// Suggested sampling width/radius
  end = (
    (Name: 'Hermite';	Filter: HermiteFilter;	Width: 1.0));
 
implementation
 
uses
  Math, IntfGraphics, GraphType, FPImage;
 
// -----------------------------------------------------------------------------
//			Filter functions
// -----------------------------------------------------------------------------
 
// Hermite filter
function HermiteFilter(Value: Single): Single;
begin
  // f(t) = 2|t|^3 - 3|t|^2 + 1, -1 <= t <= 1
  if (Value < 0.0) then
    Value := -Value;
  if (Value < 1.0) then
    Result := (2.0 * Value - 3.0) * Sqr(Value) + 1.0
  else
    Result := 0.0;     
end;

[tourlourou]

Voici une illustration de la class factory :

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
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
implementation
 
{$R *.frm}
 
type
  TAncetre = class
    class function CreateDescendant(aIndex: integer): TAncetre;
    function QuiSuisJe: string; virtual;
  end;
 
  TEnfant1 = class(TAncetre)
    function QuiSuisJe: string; override;
  end;
  TEnfant2 = class(TAncetre)
    function QuiSuisJe: string; override;
  end;
  TEnfant3 = class(TAncetre)
    function QuiSuisJe: string; override;
  end;
  TEnfant4 = class(TAncetre)
    function QuiSuisJe: string; override;
  end;
 
  TClasseDescendant = class of TAncetre;
 
  TAssociation = record
    Nom    : string;
    Classe : TClasseDescendant;
  end;
 
var
  TableauAssociatif: array [1..4] of TAssociation;
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Descendant: TAncetre;
begin
  i:=Trunc(random(4))+1;
  Descendant:=TAncetre.CreateDescendant(i);
  ShowMessage(TableauAssociatif[i].Nom+' =? '+Descendant.QuiSuisJe);
  Descendant.Free;
end;
 
class function TAncetre.CreateDescendant(aIndex: integer): TAncetre;
begin
  Result:= TableauAssociatif[aIndex].Classe.Create;
end;
 
function TAncetre.QuiSuisJe: string;
begin
  Result:='TAncetre';
end;
 
function TEnfant1.QuiSuisJe: string;
begin
  Result:='TEnfant1';
end;
 
function TEnfant2.QuiSuisJe: string;
begin
  Result:='TEnfant2';
end;
 
function TEnfant3.QuiSuisJe: string;
begin
  Result:='TEnfant3';
end;
 
function TEnfant4.QuiSuisJe: string;
begin
  Result:='TEnfant4';
end;
 
initialization
  randomize;
  with TableauAssociatif[1] do begin Nom:='Enfant1'; Classe:=TEnfant1; end;
  with TableauAssociatif[2] do begin Nom:='Enfant2'; Classe:=TEnfant2; end;
  with TableauAssociatif[3] do begin Nom:='Enfant3'; Classe:=TEnfant3; end;
  with TableauAssociatif[4] do begin Nom:='Enfant4'; Classe:=TEnfant4; end;
 
finalization
 
end.