Цитата:
Сообщение от 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