[nemq]

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

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

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

[nemq]

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

[nemq]

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

Код:

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;

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

Код:

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

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

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

Код:

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

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

[Vayrus]

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

Скачать

[nemq]

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

[Vayrus]

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