[nemq]

выходит такая ошибка
Expression expected but 'BEGIN' found

[Страдалецъ]

Код покажите. Пока маловато инфы для совета.

[nemq]

мб по teamviewer покажу?))
icq 744961 там скину логин и пароль

[nemq]

отрывок кода...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of '0' .. '9', #8 : ; // цифры и клавиша <Backspace>#13: Form1.Edit2.SetFocus; // клавиша <Enter>'.' ,'.' : begin if Key = '.' then Key:=', if Pos(',',Edit1.Text) <> 0 then Key:= Chr(0); end; else // все остальные символы запрещены Key := Chr(0); end; end;

[Страдалецъ]

Код:

1 2	case Key of '0' .. '9', #8 : ;

Двоеточие в конце лишнее.

[Страдалецъ]

Код:

1 2	if Key = '.' then Key:=', if Pos(',',Edit1.Text) <> 0

Здесь вообще какая-то мешанина.

[Vayrus]

Лови и незабываем про репутацию

Скачать

[nemq]

да спасибо
а это что за ошибка

[Vayrus]

Убери эту строчку