procedure TForm1.MaskEdit1Change(Sender: TObject); begin { Teste la validité de la date, déclenche une erreur si incorrecte } if StrToDateDef(MaskEdit1.Text, -1) = -1 then begin MaskEdit1.Text := ''; raise Exception.Create('La date est incorrecte !'); end; end; procedure TForm1.Edit1Change(Sender: TObject); begin { Met le premier caractère en majuscules } if Length(Edit1.Text) > 0 then Edit1.Text[1] := Uppercase(Edit1.Text[1])[1]; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure tform1.edit1change(sender: tobject); Begin { met le premier caractère en majuscules } if length(edit1.text) > 0 then edit1.text[1] := uppercase(edit1.text[1])[1]; end;
edit1.text[1] := uppercase(edit1.text[1])[1];.
Var S: String; begin S := Edit1.Text; S[1] := uppercase(S[1])[1]; Edit1.Text := S; end;