Syntax error expected but const real found

Убрать «грязную» конкатенацию строк #1201 Comments The text was updated successfully, but these errors were encountered: Ну, это кто где грязь видит знаете. Во Free Pascal это есть, у нас — совместимость. @miks1965 Извините, я не понял, о какой совместимости конкретно идет речь? Такой код НЕ работает во Free Pascal 3.0.4: Fatal: Syntax error, […]

Содержание

  1. Убрать «грязную» конкатенацию строк #1201
  2. Comments
  3. Footer
  4. Описание сообщений об ошибках компилятора скрипт движка
  5. Перечень наиболее встречающихся сообщений класса Error (для поиска нужной Вам ошибки используйте Ctrl+F.):
  6. Рассмотрим также некоторые сообщения классов warning и hint.
  7. Несколько рекомендаций:
  8. Syntax error expected but const real found

Убрать «грязную» конкатенацию строк #1201

The text was updated successfully, but these errors were encountered:

Ну, это кто где грязь видит знаете. Во Free Pascal это есть, у нас — совместимость.

@miks1965 Извините, я не понял, о какой совместимости конкретно идет речь? Такой код НЕ работает во Free Pascal 3.0.4:

Fatal: Syntax error, «;» expected but «const string» found

Именно такая ситуация и была вами названа на форуме, как «грязная реализация конкатенации с литералами-символами, что надо убирать». Почему же тогда закрыли issue?

Это уже не работает. Потому и закрыли

Так при чем тогда ссылка на совместимость с FP? О чем речь? Сказали бы просто, что проблема уже решена, зачем же вводить в заблуждение такими комментариями?

К тому же в последней публичной сборке 1790 это ЕЩЕ работает по-старому, несмотря на коммит da91abd

Мы закрываем Issue не для наших читателей, а потому что Issue выполнен и закрыт. Смотрите коммиты и не задавайте вопросов, где это есть

@miks1965 я согласен с тем что issue не для читателей закрываются, но как тому кто постоянно тестирует и находит ошибки в паскале — мне очень неудобно когда вы не добавляете в коммит референс к хотя бы 1 issue которая как то связана с коммитом.

Достаточно добавить » #1201 «, даже не » fix #1201 «, и даже не в основной текст — а в описание (вторая строчка названия коммита). Потом искать в каком коммите что было исправлено, без этого — очень сложно.

Во Free Pascal это есть, у нас — совместимость.

@miks1965 Может быть, вы поясните все-таки как этот issue связан с упомянутой вами совместимостью с Free Pascal? А то, мне кажется, у нас тут иногда получается разговор слепого с глухим. Кто-то задает один вопрос, вы же отвечаете на какой-то свой и при этом советуете «не задавать вопросов».

мы это оставили

а в чем смысл, если пробел между строками можно все равно ставить?

  1. На сколько я понял — в FP это можно.
  2. Это:

К такому решению претензия только одна — такой расширенный синтаксис не может считаться «правильным» до тех пор, пока не будет явно описан в Справке, как валидный, т.к. ни в одном другом распространенном компиляторе Паскаля такого никогда не было. FP тут абсолютно не при чем!

И пробелы между константами-литералами должны быть допустимы только в том случае, если эти литералы находятся на смежных строчках, а не на одной. Если используются дополнительные символьные коды, то они также должны быть приклеены к литералам с любой стороны. Т.е. такой код с пробелами не должен быть корректным:

А вот такой код — правильный, еще как минимум со времен TP:

© 2023 GitHub, Inc.

You can’t perform that action at this time.

You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.

Источник

Описание сообщений об ошибках компилятора скрипт движка

Часто бывает так, что скрипт не хочет компилироваться и компилятор выдает какую-то ошибку. В этой статье даны пояснения наиболее распространенным ошибкам компилятора Adrenaline Bot.

Перечень наиболее встречающихся сообщений класса Error (для поиска нужной Вам ошибки используйте Ctrl+F.):

0. expected but found . Обычно это сообщение возникает при синтаксической ошибке.Например,в случае не баланса скобок,компилятор сообщит: ‘)’ expected but ‘;’ found (вместо ожидавшейся скобки найдена запятая).
Компилятор часто сообщает, что ‘end’ ожидается, например: x:= 5,7; здесь неуместен разделитель-запятая, а сообщается про end. (‘END’ expected but ‘,’ found)

1. is not a type identifier . Данное не является именем типа.

2. ‘;’ not allowed before ‘Else’ . Перед else нельзя ставить точку с запятой

3. Abstract method must be virtual or dynamic . Абстрактный метод должен быть виртуальным или динамическим.

4. Ambiguous overloaded call to . Компилятор не может однозначно выбрать перегружаемый блок. Измените параметр.

5. Array type required . Ошибка возникает в случаях, когда в индексе элемента массива указано больше уровней, чем предусмотрено описанием, и если массив не описан. Например, после объявления двумерного массива х или простой переменной х ошибочно записывают элемент х[2,1,1] (в нем показано три измерения).

6. Assignment to FOR-loop variable . Присваивание значения параметру FOR-цикла в теле цикла.
Например, вследствие описки дважды используется имя i в кратном цикле:
For i:= 1 to n do For i:= 1 to m do .

7. Break or Continue outside of loop . Break или Continue — не в цикле.

8. Cannot initialize local variables . Локальные переменные запрещено инициализировать (задавать им значения при описании).

9. Cannot assign to/read a read-only/write-only property . Присвоение значения свойству read/only и чтение свойства write/only запрещены.

10. Constant expression expected . В этом месте должна стоять константа или константное выражение, например константа выбора в структуре Case.

11. Constant expression violates subrange bounds . Выход значения константы из диапазона. Контроль не полон. Например, «сойдет с рук» присваивание x:=3000000000, где х имеет тип integer, но значение х будет искажено.

12. Constant or type identifier expected . Требуется имя типа или тип-диапазон.

13. Could not compile used unit . Компиляция присоединенного модуля невозможна.

14. Data type too large . Тип определяет структуру размером более 2 Гбайт; это слишком много.

15. Declaration expected but found . Пропущено описание или оператор.

16. Declaration of differs from previous declarations . Данный заголовок блока не соответствует упреждающему объявлению блока.

17. Default parameter must be by-value or constant . Необязательный параметр (со значением по умолчанию) не должен вызываться по ссылке.

18. Expression expected . В этом месте программы должно стоять выражение.

19. Expression too complicated . Выражение излишне сложно для компиляции.

20. File type not allowed here . В этом месте или в этой роли файловую переменную нельзя использовать. Например, она не может быть формальным параметром-значением.

21. For loop control variable must be simple local variable . Параметр цикла должен быть простой локальной (описанной в этом же блоке) переменной.

22. For loop control variable must have ordinal type . Параметр цикла должен иметь порядковый тип. Вещественный тип запрещен.

23. Function needs result type . В заголовке функции надо указывать тип ее результата.

24. Identifier expected but found . В этом месте должно стоять имя. Например, пропущено имя
функции после Function.

25. Identifier redeclared . описано повторно, но в пределах блока имя можно описать лишь раз. Проверьте, не обозначена ли локальная переменная тем же именем, что и формальный параметр блока.

26. Illegal character in input file . Запретный знак, например «русская» буква, либо вы оставили скобку >, убрав открывающую скобку <.

27. Illegal type in Read/Readln (Write/Writeln) statement . Элемент запрещенного типа в списке ввода/вывода.

28. Incompatible types . Несоответствие типов по присваиванию или типов операндов одной операции. Сообщение выдается и при неверном использовании структур. Например, z — запись, ошибочно записано присваивание z:= 0 (работать надо с полями записи).

29. Invalid function result type . Недопустимый тип результата функции.

30. Label already defined: . уже помечает другой оператор.

31. Left side cannot be assigned to . He может быть такой левой части в присваивании. Примеры: попытка присвоить значение файловой переменной, присвоение значения формальному параметру-константе.

32. Line too long . В строке программного текста больше 255 знаков.

33. Low bound exceeds high bound . Нижняя граница превышает верхнюю.

34. Missing operator or semicolon .Пропуск операции (например перед скобкой) или пропуск точки с запятой. При пропуске ‘;’ маркер ошибки стоит на очередном предложении (объявлении или операторе).

35. Missing parameter type . He указан тип формального параметра-значения или параметра процедурного типа.

36. Not enough actual parameters . He хватает фактических параметров.

37. Need to specify at least one dimension . Нужно задавать в операторе SetLength хотя бы один размер динамического массива.

38. Number of elements differs from declaration . Число элементов в структурной константе не соответствует ее описанию.

39. Operator not applicable to this operand type . Операция не применима к операндам данного типа. Например: ‘А’ or ‘В’; ‘Text1’* ‘Text2’.

40. Order of fields in record constant differs from declaration . Порядок полей в записи-константе не соответствует описанию записи.

41. Ordinal type required . Требуется порядковый тип (например, в индексе).

42. Out of memory . Компилятору не хватает памяти.

43. Statement expected but found . В этом месте должен стоять оператор. Сообщение выдается во всех случаях, когда в тело блока или секцию инициализации ошибочно помещают описание ( ). Ошибочная форма обращения к процедуре Procedure или к функции Function также вызывает сообщение.

44. Sets may have at most 256 elements . Множество (тип Set) не может содержать более 256 элементов.

45. Slice standard function only allowed as open array argument . Функцию Slice можно использовать лишь как фактический параметр

46. Statement not allowed in interface part . Предложения в секции интерфейса программного модуля недопустимы.

47. Syntax error in real number . Синтаксическая ошибка в записи числа вещественного типа.

48. There is no overload version of that can be called with these arguments .Не предусмотрен перегружаемый блок , который мог бы вызываться с таким аргументом. Пример: IntToStr(x), где х – выражение вещественного типа.

49. Too many actual parameters . Фактических параметров больше, чем формальных.

50. Type actual and formal var parameters must be identical . Тип фактического параметра должен быть идентичен типу
формального параметра-переменной.

51. Type of expression must be . Выражение должно быть указанного типа. Например,после While и Until должно стоять логическое выражение.

52. Undeclared identifier: . Не описано . Проверьте есть ли описание в нужном месте,нет ли опечаток в имени. Если указано имя компонента формы, проверьте,поместили ли компонент на данную форму.

53. Unexpected end of file in comment started on line . Неожиданный конец файла при незавершенном комментарии, начало комментария — в строке N.

54. Unit name mismatch: . Имя модуля ошибочно.

55. Unsatisfied forward or external declaration . Отсутствует описание блока, объявление которого было дано (заголовок в интерфейсе или в описании объектного типа, либо упреждающее описание).

56. Unterminate string . He закрыта апострофом строка-константа типа string.

Рассмотрим также некоторые сообщения классов warning и hint.

1. Return value of function might be undefined . В теле функции нет присваивания ее результата.

2. Variable might not have been initialized . Указывает имя переменной, которой не задали значения.

3. For-Loop variable may be undefined after loop . Попытка использования значения параметра For-цикла после завершения этого цикла.

4. Text after final ‘END.’ ignored by compiler . Текст, идущий за конечной строкой модуля, игнорируется компилятором.

5. Variable is declared but never used in . Обращает внимание на переменную , описанную,но не нашедшую применения.

6. Value assigned to never used . Хотя бы одно значение переменной никак не использовано.

Несколько рекомендаций:

Не удаляйте прежний вариант кода,пока не убедитесь,что ошибка устранена. Лучше на время закомментировать код,заключив его в скобки:

Компилятор не анализирует, как будет выполняться программа, поэтому выход значения индекса из диапазона выявляет только если индекс задан константным выражением. Деление на ноль вообще пропускается, кроме оператора div, в случае если делитель — константное выражение.

Источник

Syntax error expected but const real found

Есть код. Говорит ошибка
строка 69 (предпоследняя строка)Ожидалось ‘;’

А действительно, что ты хотел сказать этим оператором?

Добавлено 17.04.11, 18:46
После строки

P.S. пиши код с отступами.

Код был написан с отступами. Только, чтобы это увидеть, надо использовать тэги подсветки, а не цитаты.

yana33311, кнопка «CODE=pas», а не QUOTE.

Этого недостаточно. Тут вся структура программы порушена. Что за переменная e в 25-ой строке, где она описана? Есть функция exp, переменной e готовой нет. Как может компилироваться строка №39 (Case K Of), когда K описана как Real? Что за описание переменных внутри Case-а (49 строка)?

Ошибок гораздо больше на самом деле (лень проверять в TP, проверил в FPC):

Источник

Adblock
detector

Источник

MrBubonchik

0 / 0 / 0

Регистрация: 18.11.2017

Сообщений: 57

1

Найти ошибку в программе

18.11.2017, 14:30. Показов 2817. Ответов 4

Метки нет (Все метки)

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

var h1,h2,m1,m2,s1,s2,t,t1,r1,r2:longint;
begin
assign (input'input.txt');
assign(output'output.txt');
reset(input);
reWrite(output);
read(h1,m1,s1);
read(h2,m2,s2);
t:=h1*3600+m1*60+s1;
t1:=h2*3600+m2*60+s2;
r1:=t-t1;
r2:=t1-t;
if t > t1 then (writeLn (r1));
if t1 > t then (writeLn (r2));
end.

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь



0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

 18.11.2017, 14:30

Ответы с готовыми решениями:

Найти ошибку в программе
program TAB;
var i:integer;
A:array of real;
begin
i:=1;
while i&lt;5 do
A:=i*i-4;
i:=i+1;…

Найти ошибку в программе
Какие числа не введу sum=0
Не пойму где ошибка, объясните пожалуйста;
Заранее спасибо;

…

Найти ошибку в программе
не могу никак найти ошибку, пишет &quot;Program1.pas(37) : Встречено ‘else’, а ожидался оператор&quot;…

Найти ошибку в программе
Это задание из егэ C1.
По моему мнению, ошибка здесь в том, что когда x&gt;=3.14/2 или y&gt;=0,…

4

Эксперт Pascal/Delphi

6803 / 4562 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

18.11.2017, 15:26

2

MrBubonchik, что сделать-то нужно?



0

0 / 0 / 0

Регистрация: 18.11.2017

Сообщений: 57

19.11.2017, 13:23

 [ТС]

3

Пишет СЕ
Без понятия почему
Помогите!!!

Добавлено через 39 секунд
вообще нужно узнать разность времён

Добавлено через 1 минуту
solution.source(3,14) Fatal: Syntax error, «)» expected but «const string» found
Не знаю что это значит



0

Cyborg Drone

Модератор

9481 / 4805 / 3211

Регистрация: 17.08.2012

Сообщений: 15,045

19.11.2017, 20:47

4

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Перевод:

В исходном тексте программы в 3 строке на 14 позиции неустранимая синтаксическая ошибка, обнаружено «)», но ожидалась константная строка.

Это наведённая ошибка. Вы пропустили запятые. Замените:

Pascal 
3
4

assign (input,'input.txt');
assign(output,'output.txt');



1

0 / 0 / 0

Регистрация: 18.11.2017

Сообщений: 57

20.11.2017, 18:39

 [ТС]

5

Спасибо
Уже нашёл…



0
Источник

Topic: Unable to Successfully Compile Program  (Read 4132 times)

Hi
 I’m am trying to write a payroll program in PASCAL, however it is not compiling. I have these errors:
 (13,25) illegal expression
(13,26) cant evaluate constant expression
(13,26) fatal syntax error expected but «ordinal const» found

This is apart of the program

Program StaffSal (input, output);
   Uses crt;
Const
      Salrate = 0.1;
      Exerate = 0.8;
      Orate = 0.85;
Type
   employee = Record
   Names, position : string;
   Octsales, Novsales, Decsales : Real;
End;
Var
   staff : array [1…22] of employee;
   q : integer;
   totalsales, salary, thpay, totalsalary : integer;
begin
   for q := 1 to 22 do begin

Any ideas how i can fix it?


Logged

  1. staff : array [1…22] of employee;

You are using tripple dot character instead of two regular dots.

  1. staff : array [1 .. 22] of employee;

This is correct syntax.


Logged

Lazarus 2.2.4 with FPC 3.2.2, Windows 10 — all 64-bit

Working solo on an acrade, action/adventure game in retro style (pixelart), programming the engine and shell from scratch, using Free Pascal and SDL. Release planned in 2025.


Logged

How can i fix the syntax error….expected but «ELSE» found? Please

If (staff[q].position = ‘Executive’) then
staff[q].thpay := staff[q].salary * Exerate;
else
staff[q].thpay := staff[q].salary * Orate;
end; {**if**}


Logged

How can i fix the syntax error….expected but «ELSE» found? Please

  1. If (staff[q].position = ‘Executive’) then

  2.   staff[q].thpay := staff[q].salary * Exerate //no «;» before else

  3. else

  4.   staff[q].thpay := staff[q].salary * Orate;

or

  1. If (staff[q].position = ‘Executive’) then

  2. begin

  3.   staff[q].thpay := staff[q].salary * Exerate;

  4. //more stuff here

  5. end

  6. else

  7. begin

  8.   staff[q].thpay := staff[q].salary * Orate;

  9. //more stuff here

  10. end;


Logged

This is the If Statement i currently have:

If (staff[q].position = ‘Executive’) then
            Begin
staff[q].thpay := staff[q].salary * Exerate;
end   
else
begin
staff[q].thpay := staff[q].salary * Orate;
end; {**if**}

When i run it

staff[q].thpay := staff[q].salary * Exerate;

**********************calculates the correct figure

but

staff[q].thpay := staff[q].salary * Orate;

*************************gives me zero as the answer

I tried

If (staff[q].position = ‘Executive’) then
            Begin
staff[q].thpay := staff[q].salary * Exerate;
end   
else
If (staff[q].position <> ‘Executive’) then
begin
staff[q].thpay := staff[q].salary * Orate;
end; {**if**}

But i get an error

i  cant figure out how to fix it
Please help

« Last Edit: April 02, 2018, 06:49:28 pm by sakki »


Logged

Please put your code between code-tags (click the button with the # on it).

Bart


Logged

@sakki

Or it is better if you send us the whole source code. To do it, copy all the files into a new folder except: *.bak, *.exe, *.dbg, and the lib folder. Compress the folder and send the zip file to this forum.


Logged

@sakki: do you write this program in Microsoft Word? Rather yes…

  1. If (staff[q].position = ‘Executive’) then

These are not correct apostrophes. Even the code formatting mechanism here does not color this literal. The following is correct.

  1. If (staff[q].position = ‘Executive’) then

Install Lazarus and write this program in it. Or use Notepad++.

« Last Edit: April 02, 2018, 07:49:57 pm by furious programming »


Logged

Lazarus 2.2.4 with FPC 3.2.2, Windows 10 — all 64-bit

Working solo on an acrade, action/adventure game in retro style (pixelart), programming the engine and shell from scratch, using Free Pascal and SDL. Release planned in 2025.

Furious programming, you really have good eyesight. I think I need a pair of eyeglasses.


Logged

@ furious programming

I type the code in Word and copy and paste to Forum hence….

I know

If (staff[q].position = ‘Executive’) then

is correct because when i run the program in Pascal it works
but there is something wrong with the ELSE part of the code because i did the Maths and the program gives me zero as the answer, but that is incorrect.

Hence, there is something wrong with the  «ELSE» part of the  code.
I dont know what else to think or do.


Logged

I have inspected the code and I found 2 issues:
— The if-then-else was outside the for-loop, which makes the condition testing not effective (line #37)
— I think using upcase is better (line #33)

Below is the code I have fixed:

  1. program StaffSal(input, output);

  3. uses

  4.   Crt;

  6. const

  7.   SalRate = 0.1;

  8.   ExeRate = 0.8;

  9.   ORate   = 0.85;

  11. type

  12.   Employee = record

  13.     Names, Position: string;

  14.     OctSales, NovSales, DecSales,

  15.     TotalSales, Salary, thPay: Real;

  16. end;

  18. var

  19.   Staff       : array[1..2] of Employee;

  20.   q           : integer;

  21.   TotalSalary : real;

  23. begin

  25. for q := 1 to 2 do begin

  26. Write(‘Enter Employee name : ‘);         readln(Staff[q].Names);

  27. Write(‘Enter October Sales figure  : ‘); readln(Staff[q].OctSales);

  28. Write(‘Enter November Sales figure : ‘); readln(Staff[q].NovSales);

  29. Write(‘Enter December Sales figure : ‘); readln(Staff[q].DecSales);

  30. Write(‘Enter Employee position : ‘);     readln(Staff[q].Position);

  31.     Staff[q].TotalSales := (Staff[q].OctSales + Staff[q].NovSales + Staff[q].DecSales);

  32.     Staff[q].Salary := Staff[q].TotalSales * SalRate;

  33. if Upcase(Staff[q].Position) = ‘EXECUTIVE’ then

  34.       Staff[q].thPay := Staff[q].Salary * ExeRate

  35. else

  36.       Staff[q].thPay := Staff[q].Salary * ORate;

  37. end;

  39.   TotalSalary := 0;

  40. for q := 1 to 2 do

  41.     TotalSalary := TotalSalary + Staff[q].Salary;

  43. for q := 1 to 2 do

  44. writeln(‘The total sales for the quarter is : ‘,

  45.       Staff[q].Names, Staff[q].TotalSales: 10: 2);

  47. for q := 1 to 2 do

  48. begin

  49. writeln(‘Name ‘,          Staff[q].Names);

  50. writeln(‘Salary ‘,        Staff[q].Salary: 8: 2);

  51. writeln(‘Take home pay ‘, Staff[q].thPay: 8: 2);

  52. end;

  54. writeln(‘Type the word FINISH to end the program :’);

  55. readln;

  56. readln;

  58. end.

« Last Edit: April 02, 2018, 09:24:46 pm by Handoko »


Logged

!!! Free Pascal Expert Needed !!!

Because I use Lazarus not Free Pascal IDE, here needs a Free Pascal Expert. The OP have problem opening the program I have fixed. You can download them (.lpi, .lps and .pas) at the attachment below.

« Last Edit: April 02, 2018, 09:49:16 pm by Handoko »


Logged

@ Handoko and everyone who assisted

Thanks so very much!
 :D :D :D :D

IT WORKS !!!!
YEAH!!!


Logged

Источник
Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

918.
Илья
 
(26.05.2005 18:54)


0  

А ты дай текст!

917.
ната
 
(26.05.2005 18:11)


0  

var1zad1.pas(2,9) Fatal: Syntax error, identifier expected but const real found народ, что это значит?? плиз, ответьте….

916.
Илья
 
(26.05.2005 17:59)


0  

Что за WinCrt?Новый CRT?

915.
Ryder
 
(25.05.2005 10:32)


0  

Большое спасибо за помощь в предыдущем вопросе!
Предложение записать его в FAQ.

Подскажите где найти WinCrt.tpu ??

914.

 
(24.05.2005 22:36)


0  

Dima, пользуйтесь названиями заполнения и названиями цветов.
Например:
setfillstyle (xhatchfill,blue);
будет решетка синего цвета.
а с цифрами легко запутаться.
И смотрите, что на черном фоне черного не видно :))))

913.
Илья
 
(24.05.2005 21:16)


0  

Чтобы менять раскладку(язык)-жми в ТП :правые Ctrl+Shift

912.
Dima
 
(24.05.2005 19:57)


0  

Проблема!!!!!
Прписываю setfillstyle(1,0);
FloodFll(X,Y);
А черним нге зарисовует , в чьом проблема

Ответ: Да нет, просто нулевой цвет = черный — при заливке на самом деле это прозрачный

911.
Ryder
 
(24.05.2005 18:51)


0  

Как печатать в паскале на русском языке?
У меня Turbo Pascal 7.1

Ответ: Посмотрите на нашем форуме http://www.yourpascal.com/topic2012.html
и
http://www.yourpascal.com/topic1454.html

910.
Илья
 
(24.05.2005 15:30)


0  

Почему часто выдаётся ошибка:Runtime error?И как это исправить?(что-то с типами данных?)

Ответ: Извините, но хотя бы без участка кода дать ответ не смогу

909.
Rapid Core
 
(23.05.2005 19:07)


0  

Хоть это и паскалевский сайт, но спрошу я про Delphi.
Есть ли в нем аналог команды readkey, как в паскале.
Ну что-то вроде этого:
var
c:char;
begin
c:= readkey;
if c = (#75) then траля-ля и так далее, так вот мне нужно тоеж самое, только в Delphi.

Ответ: Там немного другое. Нужно обрабатывать событие OnKeyDown или OnKeyPressed. Они есть практически для любого компонента.
На закладке Evewts нужно щелкнуть в соответствующем поле справа — появится подпрограмма — в ней и пиши код

908.
FactoR
 
(23.05.2005 12:43)


0  

пиши на firebug[@]ykt.ru , FactoR[@]lghost.ru

907.
Ворон
 
(22.05.2005 01:13)


0  

Хочется сказать создателям сайта большое человеческое thanks a lot! Симпатичное оформление сайта + никакой е#ли со скачиванием файлов — то, что надо скромному кликеру.

906.
Александр
 
(20.05.2005 19:16)


0  

HELP! Почему при переходе из оконного в полноэкранный режим Паскаль(BP7) зависает(не реагирует на любое нажатие, кроме Alt+Enter). У меня стоит WinXP Professional.

Ответ: Я полноэкранный вообще не люблю, но у меня и 98-ой — где проблем меньше.
По этой причине ответный вопрос: а Вам это надо? Если надо, то поспрашиваю у знакомых, которые почему-то в таком режиме работают

905.
Evil
 
(20.05.2005 19:08)


0  

Существует ли в паскале встроенная процедура вывода содержимого экрана либо значения переменной на принтер?

Ответ: Да, это «старый» Write/Writeln:
В качестве возможного устройства построчной печати допускается использование до трех устройств печати. Если присоединено только одно устройство печати, на него обычно ссылаются, как на устройство LРT1. Для этого устройства можно также использовать синоним РRN. (смотри чуть ниже пример)
——————
Построчное устройство печати — это устройство, предназначенное только для вывода.
—————
Стандартный модуль Рrinter описывает текстовую файловую переменную с именем Lst и устанавливает ее связь с устройством LРT1. Чтобы облегчить вывод какой-либо информации из вашей программы на устройство печати, включите в оператор uses вашей программы модуль Рrinter, а для вывода используйте процедуры Writе(Lst,…) и Writеln(Lst,…) без всякой инициализации.
——- LPT ————-
var
Lst: Text;
begin
Assign(Lst,»»LPT1»»);
Rewrite(Lst);
Writeln(Lst,»»Привет…»»);
Close(Lst);
end;
——- —————

904.
FactoR
 
(20.05.2005 14:01)


0  

По неизвестным мне причинам (я не один хозяин, но отвчеаю на вопросы я) файл удален с сайта, возможно по просьбе автора, а в списке остался. Пытаюсь исправить, но проблемы пока со связью.
Возможное решение проблемы: что нужно? (какую именно задачу решить надо?) — помогу реализовать
Задача:
Разработать программу для обработки данных типизированного файла которая должна включать процедуры:
Создание файла
Для записи данных в файл
Для чтения данных из файла
Дополнения файла новыми записями
модификация ряда записей файла:
для одного из видов поиска записей файла с выводом найденых записей или сообщением о неуспешном поиске:
а) по одному поисковому признаку
б) по любому сочитанию заданных поисковых признаков:
Магазин игрушек. Наименование, цвет, цена, возростные границы детей для которых игрушка предназначена.

Ответ: Оставьте адрес — кое-какие заготовки есть уже, и можно дописать так, как нужно
Размещать текст здесь ….

Источник

Понравилась статья? Поделить с друзьями:
  • Syntax error eol while scanning string literal python
  • Syntax error eof while scanning triple quoted string literal
  • Syntax error eof in backquote substitution
  • Syntax error end of file unexpected expecting then
  • Syntax error end of file unexpected expecting done