Transformer le premier caractère d'une Tedit en majuscules
AITFRAH1
Messages postés
10
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
19 janvier 2010
-
24 janv. 2006 à 11:04
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 24 janv. 2006 à 13:05
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 24 janv. 2006 à 13:05
1 réponse
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
24 janv. 2006 à 13:05
24 janv. 2006 à 13:05
salut,
essaie çà:
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
var buffer:string;
begin
with edit1 do
begin
if (key' ') and (tag1) then
begin
buffer:= text; //il faut faire une copie
if buffer<>'' then//ne rien faire si vide
begin
buffer[1]: =upcase (buffer[1]);//on met le premier caractere en majuscule
text:= buffer; //on reaffecte
end ;
key: =#0;//ce caractere ne sera pas affiché
end;
if (key' ') and (tag0)then //on mémorise dans le tag
begin
tag: =1; key:=#0;
end;
end;
end;
@+
jlen
essaie çà:
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
var buffer:string;
begin
with edit1 do
begin
if (key' ') and (tag1) then
begin
buffer:= text; //il faut faire une copie
if buffer<>'' then//ne rien faire si vide
begin
buffer[1]: =upcase (buffer[1]);//on met le premier caractere en majuscule
text:= buffer; //on reaffecte
end ;
key: =#0;//ce caractere ne sera pas affiché
end;
if (key' ') and (tag0)then //on mémorise dans le tag
begin
tag: =1; key:=#0;
end;
end;
end;
@+
jlen
