function formtyaz(frmy:ansistring):ansistring;
var
a:integer; ch:string;
begin
if length(frmy)<>0 then
begin
CASE FRMY[1] OF
'ı': FRMY[1] := 'I';
'i': FRMY[1] := 'İ';
else
begin
ch:=FRMY[1];
ch:=ansiUpperCase(ch);
FRMY[1] :=ch[1];
end;
end;
FOR A:=2 TO LENGTH(FRMY) DO
BEGIN
if (frmy[A-1]='.') OR (frmy[A-1]=' ') THEN
CASE FRMY[A] OF
'ı': FRMY[A] := 'I';
'i': FRMY[A] := 'İ';
else
begin
ch:=FRMY[a];
ch:=ansiUpperCase(ch);
FRMY[a] :=ch[1];
end;
end
else
CASE FRMY[A] OF
'I': FRMY[A] := 'ı';
'İ': FRMY[A] := 'i';
else
begin
ch:=FRMY[a];
ch:=ansilowerCase(ch);
FRMY[a] :=ch[1];
end;
end;
end;
result:=frmy; end;
end;
En son Fatih! tarafından 24 Ara 2004 08:54 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
şeklinde yaptım ama olmuyor. Kısacası Bir çok Edit ve Memo bileşeninin olduğu bir formda acaba böyle tek bir fonksiyon veya procedure ile nasıl bu şekilde bir cümle formatlama yaptırabiliriz?
Teşekkürler kolay gelsin.
"Bilgisizlerin geçtikleri mevkiye yaptığı fenalığı, yüzlerce aslan bir araya gelse yapamaz" MEVLANA
if (sender is TEdit) then
(sender as TEdit).Text:=formtyaz((sender as TEdit).Text)
else
if (sender is TMemo) then
(sender as TMemo).Text:=formtyaz((sender as TMemo).Text)
memo ve editlerin onexit olayllarına bu ortak kodu yaz
