How to do a Case Statement for TEXT values... 1

[PaidtheUmpire]

I want to create a "case"-like statement which would look something like this...

<code>Case OutputType.Text if
'KML - GoogleEarth' : GoogleEarthLine;
'XXX - Other' : OtherLine;</code>

Otherwise i might need a large amount of the following...
<code>If OutputType.Text = 'KML - GoogleEarth'
then GoogleEarthLine;</code>


Any ideas?

Delphi, Delphi, Delphi. Oi! Oi! Oi!

 

[earthandfire]

Since .NET supports this you almost certainly can with Delphi 2005, but not with tradional Delphi


Hope this helps.

 

[PaidtheUmpire]

Thanks,

Pity i'm using Delphi 7 then huh


Thanks again...

Delphi, Delphi, Delphi. Oi! Oi! Oi!

 

[DelphiAaron]

The following function enables you to use the Case statement with string type variables:
~~~~~~~~~~~~~~~~~~~~~~~~~

function StringToCaseSelect(Selector : string;
 CaseList: array of string): Integer;
var cnt: integer;
begin
   Result:=-1;
   for cnt:=0 to Length(CaseList)-1 do
begin
     if CompareText(Selector, CaseList[cnt]) = 0 then
     begin
       Result:=cnt;
       Break;
     end;
   end;
end;

{
Usage:

case StringToCaseSelect(OutputType.Text,
      ['KML - GoogleEarth','XXX - Other','XXX - Other2']) of
   0:ShowMessage('You picked KML - GoogleEarth') ;
   1:ShowMessage('You picked Other') ;
   2:ShowMessage('You picked Other2') ;
end;
}

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[earthandfire]

Clever workaround.

 

[lespaul]

I'll have to keep that helpful little utility!

have a star!

leslie

Leslie

Anything worth doing is a lot more difficult than it's worth - Unknown Induhvidual

Essential reading for anyone working with databases: The Fundamentals of Relational Database Design