[Киндер]

Здравствуйте! Пусть у нас есть Edit1 в котором написан текст. Подскажите, как отфильтровать его так, чтобы там был только текст БЕЗ цыфр и спец. символов

[M.A.D.M.A.N.]

Код:

function ClearText(Text:String):String;
var Temp:String;
    Index:Byte;
begin
  Temp:='';
  For Index:=1 To Length(Text) Do
    If Not (Text[Index] In ['A'..'Z','a'..'z']) Then
      Temp:=Temp+Text[Index];
  Result:=Temp;
end;

Использовать

Код:

edit1.Text:=ClearText(edit1.Text);

[Киндер]

спасибо