[Delphi] Pierwsza litera

Jak zrobić, żeby zamieniło pierwszą, małą litere stringa na dużą?

---

 Edit1.Text := UpperCase(Edit1.Text[1])+Copy(Edit1.Text, 2, Length(Edit1.Text));

Edit1.Text:=AnsiUpperCase(Edit1.Text[1])+PAnsiChar(Integer( Edit1.Text)+1);:devil:

Imho go nie zrozumieliscie, chyba mu chodzilo o pierwsza, mala a nie o pierwsza w tekscie :P

@down
ok ;)
Użytkownik Kajetanek edytował ten post 25 maj 2006, 16:34

---

Kajetanek, dobrze mnie zrozumieli :) Chodzilo mi o pierwszą litere w texcie.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl