Hola jose_am y bienvenido a los foros de Club Delphi
Te sugiero que le des una leida a la
guía de estilo.
En lo posible trata de que haya una sola pregunta por mensaje, si tenés más de una duda, abrí un hilo por cada una.
Cita:
quiero elaborar una funcion que convierta la primer letra de la cadena a mayuscula
|
Código Delphi
[-]
function PrimeraMayuscula(Cad: string): string;
begin
Cad[1]:= UpCase(Cad[1]);
Result:= Cad;
end;
Con respecto a tu segunda duda, no está muy claro que es lo que buscas hacer.
Por lo que yo entendí sería algo como:
Código Delphi
[-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex <> -1 then
begin
BD.Edit;
case RadioGroup1.ItemIndex of
0: BD.FieldByName('REGULARIDAD').AsBoolean:= False; 1: BD.FieldByName('REGULARIDAD').AsBoolean:= True; end;
end;
end;
Nota: Es sólo un ejemplo orientativo. (sería un verdadero milagro que funcionase copiando y pegando).
Saludos.