ошибка синтаксиса на ровном месте

@kebot · Регистрация: 11.07.2012

Студворк — интернет-сервис помощи студентам

народ помогите разобраться, вызвал процедуру

Delphi
1
2
3
4
5
6
7
8
9
10
11
  uses
  procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);  
 
 
  procedure TForm3.DBGrid2KeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
begin
  if (Key=VK_SPACE) then
  memo1.Text:='хочу поэксперементировать с данной процедурой ';
end;

а компилятор после Word; ставит курсор иговорит что он тут "." хотел бы видеть а видит видите ли ";"
так я то это не руками писал - делфи сам сгенирировал
сколько в интернете примеров не смотрел везде 1 в 1 как у меня и никто не жалуется

стоит только закоментировать это чудо - прога пускается нормально
вывод никаких пропущеных begino и end нет

procedure TForm3.DBGrid2DblClick(Sender: TObject); - пускается нормально
procedure TForm3.DBGrid2KeyPress(Sender: TObject; var Key: Char); - пускается нормально

procedure TForm3.DBGrid2KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState); - та же история ('.' expected but ';' found )

что за трабла то ? версия делфи у меня 7

@Drongo · 02.12.2013, 21:49

это опечатка или нет, процедура в процедуре?
попробуйте поставить

Delphi
1
end;

перед

Delphi
1
2
procedure TForm3.DBGrid2KeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);

Добавлено через 26 минут
ну и конце (если конец юнита) надо поставит

Delphi
1
end.

@kebot · 02.12.2013, 22:10 **[ТС]**

да нет никаких процедур в процедуре
зря я описание из uses показал толлько запутал

самая обычная процедура
1 вытащите на форму dbgrid
2 выделите dbgrid и откройте события этого компонента в инспекторе
3 выберите событие OnKeyDown два раза щелкните создастся эта процедура
4 напишите внутри что нить невинное и попробуйте запустить

у меня не пускается

@FIL · 02.12.2013, 22:20

Удали этот обработчик так, чтобы прога запускалась, и создай его заново.

@Drongo · 02.12.2013, 22:23

У меня все работает

Delphi
1
2
3
4
5
6
7
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 
if (Key=VK_SPACE) then
ShowMessage('Работает');
end;

@northener · 02.12.2013, 22:43

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

зря я описание из uses показал толлько запутал

В секции uses не может быть никаких описаний функций/процедур. Не для этого она предназначена. Описания могут быть только в секциях interface и implementation

@kebot · 03.12.2013, 20:15 **[ТС]**

я таки докопался до "сути бытия"

главный модуль моей программы носит имя word.pas
соответственно unit word; и до сего дня жить мне это ну ни как не мешало (кода наверно листов 100 а4)

но как только в заголовке процедуры встретился key :word; делфи полез в бутылку

p.s. признаться я думал, что компилятор как то разграничивает такие понятия как зарезервированное
имя типа данных и то как программист свою прогу назовет

Новые блоги и статьи Все статьи Все блоги /
Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .

@kebot 9 / 9 / 4 Регистрация: 11.07.2012 Сообщений: 200
	02.12.2013, 22:10 [ТС]
	да нет никаких процедур в процедуре зря я описание из uses показал толлько запутал самая обычная процедура 1 вытащите на форму dbgrid 2 выделите dbgrid и откройте события этого компонента в инспекторе 3 выберите событие OnKeyDown два раза щелкните создастся эта процедура 4 напишите внутри что нить невинное и попробуйте запустить у меня не пускается 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	02.12.2013, 22:20
	Удали этот обработчик так, чтобы прога запускалась, и создай его заново. 0

@kebot 9 / 9 / 4 Регистрация: 11.07.2012 Сообщений: 200
	03.12.2013, 20:15 [ТС]
	я таки докопался до "сути бытия" главный модуль моей программы носит имя word.pas соответственно unit word; и до сего дня жить мне это ну ни как не мешало (кода наверно листов 100 а4) но как только в заголовке процедуры встретился key :word; делфи полез в бутылку p.s. признаться я думал, что компилятор как то разграничивает такие понятия как зарезервированное имя типа данных и то как программист свою прогу назовет 0