Hi Neven,
That's kinda cool, but it's not going to be very good for i18n is it?
:-)
Cheers,
Kerry
> Been thinking about this problem with case statements and came across
> GetEnumName in the RTTI calls
> Surprisingly Delphi includes the 'names' of enumerated types in the
program
> (I always thought they were symbolic and therefore
> removed by the compiler)
>
> So Try This!
>
> What would be nice though is
>
> 1/ TString having a method to load value from an enurmerated type
> 2/ The compiler does allow much in the way of Enum names 'C++' was
> disallowed and 'Left'
> caused problems in the case statement - both these problems could be
> addressed in 1/ by removing a leading character
> or using a regex type expression to include illegal chars
>
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
> StdCtrls, ExtCtrls, TypInfo, mwkRadioGroup;
>
> type
> TForm1 = class(TForm)
> mwkRadioGroup1: TmwkRadioGroup;
> procedure FormCreate(Sender: TObject);
> procedure mwkRadioGroup1Click(Sender: TObject);
> private
> public
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> type
> TRadioButtons = (VB,Delphi,C,Java);
>
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> i: integer;
> begin
> for i := Ord(Low(TRadioButtons)) to Ord(High(TRadioButtons)) do
> mwkRadioGroup1.Items.Add(r(TypeInfo(TRadioButtons),i));
> end;
>
>
> procedure TForm1.mwkRadioGroup1Click(Sender: TObject);
> begin
> case TRadioButtons(mwkRadioGroup1.ItemIndex) of
> VB: ShowMessage('I choose VB as best language');
> Delphi:ShowMessage('I choose Delphi as best language');
> C: ShowMessage('I choose C as best language');
> Java: ShowMessage('I choose Java as best language');
> end;
> end;
>
> end.
>
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
