на форумах советуют использовать (пишут, что это то-же самое)
- Код: Выделить всё
const blah-blah-blah
в свете редкого юзанья "микропаскаля для avr", хотелось бы еще раз уточнить, действительно ли это так?! по занимаемой памяти итд
спасибо
Модератор: Модераторы
const blah-blah-blah
Проблема в том, что современные прогеры на Си от древних ушли недалеко, поэтому продолжают пользовать эту штукенцию и как объявление для компилятора и как константу.
Про занимаемую память в этом случае спрашивать бессмысленно, т.к. компилятор подставит ближайший тип, в который влезает эта "константа". А вот что с ней будет дальше - его совершенно не интересует. Поэтому можно запросто столкнутся с ситуёвиной, когда тип константы в сочетании с типом других данных даст Вам неправильный ответ
... про ленина ...
sunjob писал(а):ой капец, щас свалюсь от смеха со стула...
sunjob писал(а):там по моему, если мне не исменяет моя компсомольско-партийная память, шла речь о праститутках ...
const X = 123;
const X: integer = 123;
runewalsh писал(а):Этот const и физически, и с точки зрения языка уже не const, а var
const
ID_NOTIFY = 0;
ID_DEVICE = 1;
procedure TForm1.FormResize(Sender: TObject);
begin
StatusBar1.Panels.Items[ID_DEVICE].Width := StatusBar1.Width div 3; // не работает
StatusBar1.Panels.Items[0].Width := StatusBar1.Width div 3; // работает
end;
sunjob писал(а):// не работает
sunjob писал(а):подразумевается очевидное
sunjob писал(а):// не работает
_ID_NOTIFY_FY_ = 0;
_ID_DEVICE_FY_ = 1;
var size:Integer;
begin
size := StatusBar1.Width;
size := size div 3;
StatusBar1.Panels.Items[_ID_DEVICE_FY_].Width := size;
ShowMessage(IntToStr(_ID_NOTIFY_FY_));
StatusBar1.Panels.Items[_ID_NOTIFY_FY_].Width := StatusBar1.Width div 3;
что у Вас сидит в _ID_NOTIFY_FY_
fpc-3.2.2 lazarus-2.0.12
fpc-3.2.2 lazarus-2.2.0
size := StatusBar1.Width;
size := size div 3;
StatusBar1.Panels.Items[_ID_NOTIFY_FY_].Width := size;
StatusBar1.Panels.Items[_ID_DEVICE_FY_].Width := size;
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4