Показать сообщение отдельно
  #5  
Старый 26.11.2015, 09:59
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от mailkyda
почему то
в заголовке сообщения написано почему

Код:
var
  s: String;
  i: Integer;
  c: Char;
begin
  s:='';
  for i:=1 to Length(Memo1.Text) do
  begin
    c:=Memo1.Text[i];
    if ((c>='а') and (c<='я'))
    or ((c>='А') and (c<='Я'))
    or ((c>='A') and (c<='Z'))
    or ((c>='a') and (c<='z'))
    or (c=' ') then s:=s+Memo1.Text[i];
  end;
  Memo1.Text:=s;
end;
ru, en
__________________
Пишу программы за еду.
__________________
Ответить с цитированием