Blue Snake

Zmenu na velke pismena urobi funkcia AnsiUpperCase a na male AnsiLowerCase.

Zapis:

function AnsiUpperCase(const S: string): string;
function AnsiLowerCase(const S: string): string;

Pouzitie:

procedure TForm1.BtChangeClick(Sender: TObject);
begin
  EdOutText.Text := AnsiUpperCase('Kniha Je Kopa Myslienok.');
end;

Do EDOutText.Text sa ulozi "KNIHA JE KOPA MYSLIENOK."

procedure TForm1.BtChangeClick(Sender: TObject);
begin
  EdOutText.Text := AnsiLowerCase('Kniha Je Kopa Myslienok.');
end;

Do EDOutText.Text sa ulozi "kniha je kopa myslienok."