Тема: Алгоритм замены латинских букв
Показать сообщение отдельно
  #2  
Старый 12.03.2010, 05:47
AlexSku AlexSku вне форума
Специалист
  
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:= LowerCase(Memo1.Text);
end;
Ответить с цитированием