Mega Code Archive
Edit,dbedit ve memo,dbmemo,ya girilen karekterleri sadece kücük veya büyük harf yazdirmak
<![CDATA[
//Her ne kadar Edit denetiminin uppercase fonksiyonu
//kullanilabilir isede Türkce karekterleri desteklemiyor.
//prosedurlerin tanimlandigi kisma bunlari yazin.
Function kucult(Yazim:string):String;
Function Buyut(Yazim:string):string;
//Program icine bunlari yazin.
Function TAnaForm.kucult(Yazim:string):string;
var
Harfim:char;
Sayim:Byte;
begin
for Sayim:=1 to length(yazim) do
begin
Harfim:=Yazim[sayim];
Case Harfim of
'A'..'H','J'..'Z':Harfim:=Chr(Ord(Harfim)+32);
'Ö':Harfim:='ö';
'G':Harfim:='g';
'Ü':Harfim:='ü';
'S':Harfim:='s';
'I':Harfim:='i';
'I':Harfim:='i';
'C':Harfim:='c';
end;
Yazim[Sayim]:=Harfim;
end;
Kucult:=Yazim;
end;
Function TAnaForm.Buyut(Yazim:string):string;
var
Harfim:char;
Sayim:Byte;
begin
for Sayim:=1 to length(yazim) do
begin
Harfim:=Yazim[sayim];
Case Harfim of
'a'..'h','j'..'z':Harfim:=Chr(Ord(Harfim)-32);
'ö':Harfim:='Ö';
'g':Harfim:='G';
'ü':Harfim:='Ü';
's':Harfim:='S';
'i':Harfim:='I';
'i':Harfim:='I';
'c':Harfim:='C';
end;
Yazim[Sayim]:=Harfim;
end;
Buyut:=Yazim;
end;
//kullanimi Onkeypress olayini kullanin.
procedure TnewForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
var
harf:string;
begin
harf:=key;
harf:=anaform.buyut(harf);
key:=harf[1];
en;
]]>