Colección de citas famosas - Slogan de motivación - ¿Cómo recorre Delphi las cuatro casillas de verificación seleccionadas en el cuadro de grupo y obtiene sus valores de título?
¿Cómo recorre Delphi las cuatro casillas de verificación seleccionadas en el cuadro de grupo y obtiene sus valores de título?
Utilice el control de elevación y el control RzCheckGroup.
Definir variables
I: entero
Str: cadena
Inicio
str:= ' ';
Para i:=0 a RzCheckGroup1. proyecto. contar -1 hacer
iniciar
si RzCheckGroup1. Luego verifique el elemento [I]
str:=str RzCheckGroup1. elementos .string【I】;
Fin;
mostrar mensaje(str);
Fin
use raize,
Luego defina los nombres de las casillas de verificación como casilla de verificación 1 casilla de verificación 2 casilla de verificación 3 casilla de verificación 4.
Definir variables
I: entero
Str: cadena
Inicio
str:= ' ';
para i:=1 a 4,
iniciar
if TCheckBox(buscar componente('checkBox' inttostr(I))). comprobado
str := str TCheckBox(buscar componente('checkBox' inttostr(I))). Título;
Fin;
mostrar mensaje(cadena);
Fin;