|
Вопрос # 3 378/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Помогите
исправить ошибку: [Error] Project2.dpr(12): Undeclared identifier: 'kdiv36'
а так же:[Error] Project2.dpr(12): Undeclared identifier: 'kdiv36'! Пожалуйста!!
Приложение: Переключить в обычный режим- program Project2;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- var
- p,et,kv:integer;
- begin
- write('Input kv:');
- read(kv);
- p:=(kdiv36)+1;
- write('p= ',p);
- et:=kmod36div4;
- write('et= ',et);
- readln;
- end.
-
 |
Вопрос задал: prog-mer (статус: Посетитель)
Вопрос отправлен: 8 ноября 2009, 15:49
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Ладно, попробую включить телепатор:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
p, et, kv: integer;
begin
write('Input kv: ');
ReadLn(kv);
p:= (kv div 36) + 1; // <--- может должно быть так?
WriteLn('p= ', p);
et:= kv mod 36 div 4; // <--- может должно быть так?
WriteLn('et= ',et);
readln;
end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 8 ноября 2009, 16:06
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 23 сентября 2010, 22:51; участников в обсуждении: 3.
|
|
min@y™ (статус: Доктор наук), 8 ноября 2009, 16:02 [#1]:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
p, et, kv: integer;
begin
write('Input kv:');
read(kv);
p:=(kdiv36)+1; // <--- переменная (или функция) kdiv36 нигде не описана
write('p= ',p);
et:=kmod36div4; // <--- переменная (или функция) kmod36div4 нигде не описана
write('et= ',et);
readln;
end.
Наводящий вопрос №1: ты понимаешь, ваще, что написал?
Наводящий вопрос №2: если код не твой, то где скопипастил?
Наводящий вопрос №3: какова ЦЕЛЬ программы?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
prog-mer (статус: Посетитель), 8 ноября 2009, 16:39 [#2]:
Да спасибо я че то тупанул!
|
|
|
min@y™ (статус: Доктор наук), 8 ноября 2009, 16:46 [#3]:
Цитата (prog-mer):
Да спасибо я че то тупанул!
Признавайся, какой учебник курил?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Mystery2010 (статус: Посетитель), 23 сентября 2010, 22:51 [#4]:
Здравствуйте! помогите пожалуйста мне в такой проблеме: имеется недоделанная прога (база данных на делфи) которая при компиляции выдает ошибку Error DBCtrlEh.pas Undeclared identifier `TPopupCalculatorEh` , missing operator or semicolon, Undeclared identifier `IPopupCalculatorEh` вот в этой части кода и происходит ошибка
function TCustomDBNumberEditEh.GetDropDownCalculator: TWinControl;
begin
if FDropDownCalculator = nil then
begin
FDropDownCalculator := TPopupCalculatorEh.Create(Self);
FDropDownCalculator.Visible := False;
FDropDownCalculator.Parent := Self;
if HandleAllocated then
FDropDownCalculator.HandleNeeded;
// TPopupCalculatorEh(FDropDownCalculator). := False;
end;
Result := FDropDownCalculator;
end;
Мож какого-то компонента в дельфи недостает (DBGridEh уже установила), я думаю что в разделе uses нужно дописать какой-то класс содержащий TPopupCalculatorEh, но какой точно не знаю, что знала перепробовала. подскажите пожалуйста способ решения или хоть что почитать конкретно по теме. Заранее спасибо.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
