where to post new code for revision and sharing ? - TRegistryExtended

[beefycoder]

Ok thank you in advance. Take all the time needed. Do it once, do it right. And no more gray hair and lost sleep over updates

[Robson]

I already tried that. End result is

Code: [Select]

registryextended.pas(260,18) Error: Ordinal expression expected

On the line containing "case aRoot of" , where aRoot is of type string.

Maybe there is a compiler directive i don't know of that will make FPC "happy". So for now, this is how it works.

And i really don't want to get into wishlist given on that link, i work with IDE i got right now. Lazarus/FPC combo being a free alternative to Delphi with near complete feature set (there is always room for more) it is an offer hardly anyone can refuse.

var
CorNor : String;

      case AnsiIndexStr(UpperCase(CorNor), ['BLACK','WHITE','MAGENTA','RED','GREEN','BLUE','YELLOW']) of
        0 : ShowMessage('1');
        1 : ShowMessage('2');
        2 : ShowMessage('3');
        3 : ShowMessage('4');
        4 : ShowMessage('5');
        5 : ShowMessage('6');
        6 : ShowMessage('7');
      end;

[beefycoder]

Elegance in action ! Touché ! 

[eny]

...
 case AnsiIndexStr(...

And so we learn something every day: I had never before seen the exit(n) construct.
(It's used in the AnsiIndexStr function.)
According to the ref manual this is an ObjFPC special extension.
Very useful!

[Robson]

Sorry, I forgot the unit

unit strutils;

[fabienwang]

Elegance in action ! Touché ! 

You're french? Touché is a french word =)

[marcov]

According to the ref manual this is an ObjFPC special extension.

FPC in general (it is also visible in other modes). But Delphi adapted it in D2009.