[Киндер]

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

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

Код:

1 2 3 4 5 6 7 8 9 10

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;

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

Код:

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

[Киндер]

спасибо