|
#1
|
|||
|
|||
"Чистая" строка
Здравствуйте! Пусть у нас есть Edit1 в котором написан текст. Подскажите, как отфильтровать его так, чтобы там был только текст БЕЗ цыфр и спец. символов
|
#2
|
||||
|
||||
Код:
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); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 30.08.2008 в 15:57. |
#3
|
|||
|
|||
спасибо
|