{Delphi} Tekst

Jak zrobić zmienianie tekstu: Tak jak w tytule, Pierwsze Duże Litery, tYLKO pIERWSZA mAŁA, etc. [???]

Zeby pisalo sie z wielkiej litery po kropce, znku zapytania itd, sproboj to:
Dobrze nie pamietam ale musi pracowac :-)

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if LastKey in ['.', '!', '?'] then Key := UpCase(Key);
if not (Key in [' ', #9, #10, #13]) then //Pominmy "znaki biale"
LastKey := Key;
end;

Dobrze nie pamietam ale musi pracowac :-)
[code]procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if LastKey in ['.', '!', '?'] then Key := UpCase(Key);
if not (Key in [' ', #9, #10, #13]) then //Pominmy "znaki biale"
LastKey := Key;
end;[/code]

Jakoś nie działa :-/ . Delphi nie wie co to jest <font color="red">LastKey</span> :-0

Ustaw sobie zmienną globalną lastkey i przypisuj do niej wartość key na końcu procedury :)

Ustaw sobie zmienną globalną (...)

string ?

Wotek, sorry zapomnialem ze

var
LastKey: Char = '.';

[browar]