String vers Ordinal (Typé)

Version imprimable

02/10/2006, 10h24
chtom

String vers Ordinal (Typé)
Bonjour,

J'ai 3 forms : TFmBienvenue, TFmCharge, TFmTest qui déscende d'une forme TFmAncetre.
J'ai également un type TFormType déclarée comme suit :
Code:

1 2 3 Type TFormType = (ftNone, ftBienvenue, ftCharge, ftTest);
J'aimerais affectée dans le constructeur de TFmAncestre le bon type de form automatiquement en fonction de ClassName.

PS : Actuellement, j'ai simplifié le problème de mes 3 forms mais il y en aura X.

Je voudrais eviter de faire:
Code:

1 2 3 4 if ClassName = 'TFmBienvenue' then formtype = ftBienvenue else if ClassName = 'TFmCharge' then formtype = ftCharge else if ClassName = 'TFmTest' then formtype = ftTest;
mais plutot faire :
Code:

1 2 formtype =JESAISPASQUOI('ft' + (Copy(ClassName, 4, length(ClassNAme) - 3)));

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
  TFormType = (ftNone, ftBienvenue, ftCharge, ftTest);
 
Const
  TabType :Array[TFormType ] of String = ('', 'Bienvenue', 'Charge', 'Test');
 
function JESAISPASQUOI(const s:string):TFormType;
var
  key: TFormType;
begin
  Result := ftNone;
  for key=low(TabType) to high(TabType) do
  begin
     if  compareText(s, TabType[key]) then
     begin
       Result := key;
       break;
     end;
  end;
end;

ou un truc qui ressemble (j'ai pas vraiment testé ;) )

Bruno.

02/10/2006, 10h52
chtom

Cette solution va fonctionner mais on peux pas faire plus simple pour definir ca ?

Code:

'TFmBienvenue' -> ftBienvenue

Code:

'TFmTest' -> ftTest

Code:

'TFmCharge' -> ftCharge

Pourquoi travailler avec les noms de classes et pas directement avec les classes. Etudie le code suivant (F1 est ton amie, pas le temps de t'expliquer tout ceci) :

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
 
unit FrmAncetre;
 
implementation
 
type
   TFmAncetreClass = class 
   ...
   End;
 
   TFmAncetreClass = class of TFmAncetre;
 
var 
  Frms : array[TFormType] of TFmAncetreClass
 
function GetClass(ft: TFormType): TFmAncetreClass;
 
 
implementation
 
function GetClass(ft: TFormType): TFmAncetreClass;
begin
  Result := Frms[ft];
End;
 
initialization
  Frms[ftNone] := Nil;
 
 
***************
unit FmBienvenue; 
 
interface
 
type 
  FmBienvenue = class(TFmAncetreClass)
  .... 
  End;
 
 
implementation
...
 
initialization
  Frms[ftBienvenue] := TFmBienvenue;

cdlt

e-ric