Выдается ошибка Error: incompatible types: got "Byte" expected "TFPUExceptionMask" в
funcnion GetExceptionMask: TFPUExceptionMask;
begin
Byte(Result) := Get8087CW and $3F;
end;
Объявление:
TFPUException = (exInvalidOp, exDenormalized, exZeroDivide,
exOverflow, exUnderflow, exPrecision ...
Найдено 3 результата
- 09.04.2012 11:55:16
- Форум: Lazarus
- Тема: Синтакт. ошибка: ругается на несоответствие типов
- Ответы: 1
- Просмотры: 1593
- 07.04.2012 13:03:31
- Форум: Lazarus
- Тема: Как сохранить проект и всё подчиненное ему?
- Ответы: 4
- Просмотры: 3107
Как сохранить проект и всё подчиненное ему?
Как легко сохранить проект Lazarus со всеми взаимосвязами и файлам, чтобы развернуть это всё на другой машине и продолжить работу далее (не с "нуля")?
- 07.04.2012 08:35:01
- Форум: Lazarus
- Тема: Синтакт. ошибка: ругается на ASM
- Ответы: 1
- Просмотры: 1925
Синтакт. ошибка: ругается на ASM
Выдается ошибка: Fatal Syntax error, "BEGIN" expected but "ASM" found
на
"procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);
asm
PUSH EBX
MOV EBX,EDX
MOV EDX,EAX
SHR EDX,16
DIV BX
MOV EBX,Remainder
MOV [ECX],AX
MOV [EBX],DX
POP EBX
end; ", хотя такие ...
на
"procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);
asm
PUSH EBX
MOV EBX,EDX
MOV EDX,EAX
SHR EDX,16
DIV BX
MOV EBX,Remainder
MOV [ECX],AX
MOV [EBX],DX
POP EBX
end; ", хотя такие ...