[Misterhomer]

И так есть текст из Memo1, включающий в себя набор латинских букв (больших и маленьких) без пробилив.Мне нужно заменить все большие буквы маленькими.
есть один алгоритм:

Код:

var
 s: STRING;
i: integer;
begin
s: = Memo1.Lines.Text;
for i: = 1 to length (s) do
if s [i] = 'A' then s [i]: = 'a';
for i: = 1 to length (s) do
if s [i] = 'B' then s [i]: = 'b';
for i: = 1 to length (s) do
if s [i] = 'C' then s [i]: = 'c';

Admin: Пользуемся тегами!

ну и так для каждой буквы.
Кто знает более рациональный способ замены букв?