Проверка Edit на минус

[LLIALLIJIbIK]

procedure TForm5.Edit1Change(Sender: TObject);
begin
if Edit1.Text[1]='-' then begin
ShowMessage('Введите положительное значение');
Edit1.Text:='';
end;
end;

Ввожу "-", выскакивает ShowMessage, нажимаю ок и программа останавливается с ошибкой "Access violation at address 0045C727 in module Project2.exe. Read of address 00000000". Подскажите, в чем трабл.

[Stilet]

if copy(Edit1.Text,1,1)='-' then begin

подходит?

[LLIALLIJIbIK]

Да, спасибо большое

[artemavd]

procedure TForm5.Edit1Change(Sender: TObject);
begin
 if Edit1.Text = '' then 
 begin
  ShowMessage('Введите значение');
 end
 else
 begin
  if Pos('-',Edit1.Text) > 0 then
  begin
   ShowMessage('Введите положительное значение');
  end
  else
  begin
   ...
  end;
end;

[Mad_Cat]

2artemavd
странная конструкция

if Pos(Edit1.Text,'-') = 0

имхо должно быть

if Pos('-',edit1.text) <> 0 then

[artemavd]

Mad_Cat

,
да, верно, я на память писал просто. Ты прав.

[Stilet]

А зачем через Pos() определять?

[Человек_Борща]

А зачем через Pos() определять?

Может после минуса будет число.

[Kix.IV]

Может после минуса будет число.

Тогда и перед минусом тоже.

[artemavd]

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