Ver Mensaje Individual
  #5  
Antiguo 10-04-2011
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 27
Delphius Va camino a la fama
Hola juaarias,
¿Conoces la estructura de selección CASE? Tu código puede simplificarse con ésta.

Código Delphi [-]
case rdgTipoPago.ItemIndex of
0: frmRecibo.lblTipo.Caption := 'Efectivo';
1: frmRecibo.lblTipo.Caption := ...
...
N: ...
end; // El case finaliza con un end.

Te recomiendo una lectura sobre la gramática y sintaxis de Pascal/Object Pascal. En la ayuda hay todo un apartado sobre ésto.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita