Equivalente de "IIF" (de visual) para Delphi 7

[bellota]

Hola... voy a ser un poco básica en mi pregunta, pero es que no lo encuentro en la ayuda ni en el foro...

Como yo he trabajado con visual, sé que hay una función llamada IIF, que funciona de la siguiente manera:

estadocivil.text = IIf(optsoltero.Checked, "Soltero", "Casado")

Explicación:
si optsoltero está Checked, entonces se le asigna "Soltero", sino "Casado".

Entonces, necesito alguna función que trabaje de manera similar, o si hubiese alguna que haga lo mismo sería mejor.

Gracias!!!
Bellota

[[seoane]]

Me parece que no hay nada parecido en delphi, pero tampoco tiene mayor dificultad hacer una:

Código Delphi [-]
function iif(Value: Boolean; Str1, Str2: String): String;
begin
  if Value then
    Result:= Str1
  else
    Result:= Str2;
end;

[bellota]

Hey!!!... muchas gracias...!!! tu siempre me salvas.. ^_^

Bellota

[[Lepe]]

Bueno, yo he usado las rutinas:

Código Delphi [-]

// para no tener que hacer un uses de la unidad Math y Strutils, hacemos una copia aqui
// de las funciones más utiles

// copiadas desde la vcl en la unidad Math
function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer = 0): Integer; overload;
function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64 = 0): Int64; overload;
function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double = 0.0): Double; overload;

// copiadas desde la vcl en la unidad StrUtils
function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload;

Saludos