[mailkyda]

Сообщение от NumLock

Код:

var
  s: String;
  i: Integer;
begin
  s:='';
  for i:=1 to Length(Memo1.Text) do
    if Memo1.Text[i] in ['А'..'Я', 'а'..'я', ' '] then s:=s+Memo1.Text[i];
  Memo1.Text:=s;
end;

Спасибо, но теперь весь текст удаляется почему то.
Попробовал сделать так, и протестировал на англ тексте, все работает.

Код:

var
 i:integer;
 s:string;
begin
s:='';
for i:=0  to Length(Memo1.Text) do
  if Memo1.Text[i] in ['А'..'Z', 'a'..'z', ' '] then s:=s+Memo1.Text[i];
  Memo1.Text:=s;
end;