Jak zrobić żeby zmienić w editcie Index pierwszeszej litery na duży lub mały. Wiem że tmożna w edicie zmienić CharChase na upper i lowwer. Ale ja nie chce zastosować tego do całego editu tylko do jego pierwszego znaku !
//Nie zaczyna sie zdania od EJ lolku
0
0
Może zbyt zgrabne rozwiązanie to nie jest, ale działa tak jak chcesz:
dodaj StrUtils do uses.
Edit1.Text := LowerCase(LeftStr(Edit1.Text, 1)) + RightStr(Edit1.Text, Edit1.GetTextLen-1);
0
var
s:string;
begin
if Length(Edit1.Text)>0 then
begin
s:=Edit1.Text;
s[1]:=AnsiLowerCase(s[1])[1]; //albo ansiuppercase
Edit1.Text:=s;
end;
end;
0
if length(Edit1.txet) = 1 then Edit1.text := AnsiUpperCase(Edit.text);
0
if length(Edit1.txet) = 1 then Edit1.text := AnsiUpperCase(Edit.text);
przeciez to dziala tylko kiedy Edit ma 1 znak, a jemu chodzi nie o 1 znak tylko o PIERWSZY znak
PS. pq - Widzisz, Ty piszesz całą procedurkę a ja to w 1 poleceniu załatwiłem ;)
0
PS. pq - Widzisz, Ty piszesz całą procedurkę a ja to w 1 poleceniu załatwiłem ;)
Ale moje może (choć nie musi) być efektywniejsze! I nie wymaga StrUtils.