[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: Пользуемся тегами!

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

[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:= LowerCase(Memo1.Text);
end;

[Asinkrit]

Лучше использовать AnsiLowerCase

[Страдалецъ]

У него только английские, так что по барабану AnsiLowerCase или LowerCase.

[lmikle]

Код:

var
  Sh : Integer;
begin
  Sh := Ord('a') - Ord('A');
  ...
  s[i] := Chr(ord(s[i]) + Sh);
...