Поиск символа в Edit

[sariman]

Привет всем пытаюсь проверить правильность пути, например, обычно же путь к диску пишется так 'D:\', вот я и хочу проверить чтобы в edit первая буква была в диапазоне a-z, на второй чтобы был символ ':', а на третьей был слэш '\', незнаю как реализовать, помогите пожалуйста)

[Stilet]

В OnChange

 with TEdit(Sender) do
  if (text<>'')and(text[1] in 'a..Z')and(copy(text,2,1)=':') then правильно

Впрочем в новых делфи это лучше решать регулярными выражениями.

[sariman]

ругается, пишет 'operator not applicable to this operand type'

[Sciv]

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

ругается, пишет 'operator not applicable to this operand type'

Потому что надо (text[1] in ['a'..'Z'])

Ну а если хотите, чтоб условие работало правильно, то лучше написать:

(text[1] in ['a'..'z','A'..'Z'])

[Stilet]

Верно. Сорри, писал вскользь

[sariman]

хм.. ввожу в edit 'D:\', пишет что не правильно(

[Sciv]

А если попробовать без copy:

(text<>'') and (text[1] in ['a'..'z','A'..'Z']) and (text[2]=':')

[Stilet]

А если попробовать без copy:

На первом же символе упадет с ошибкой.
Тогда уж и проверку нужно делать на длину строки

procedure TForm1.Edit1Change(Sender: TObject);
begin

  if (TEdit(Sender).text<>'')
   and(TEdit(Sender).text[1] in ['A'..'z'])and(copy(TEdit(Sender).text,2,1)=':')
  then form1.caption:='ok' else form1.caption:='no';
end;

Так работает.