lazarus, ООП, sigsegv

А пропустить через дебаггер и посмотреть где падает?

какой?

Что какой? Дебаггер? Понятия не имею что там в лазарусе.
Я просто лет 20 назад писал на паскале и, думаю, смог бы помочь если бы ты ткнул меня носом ЧТО ИМЕННО приводит к краху.

если включить все проверки, то при вызове Button2Click вылазят такие невнятные ошибки, и если нажать «Приостановить», то вылазит страшное окно с ассемблером %)
если отключить — говорит SIGSEGV и показывает на строку 129.
если вырубить вызов getPowerState, то ругается на следующий метод, и т.д., пока всё не отключишь.

TPrinter, я так понимаю, это что-то системное?
Я вижу, что ты при создании формы запускаешь дефолтный конструктор этого TPrinter.
Ты уверен, что ему не нужны никакие настройки?
Код выглядит странно — как будто ты ожидаешь, что TPrinter сам найдёт принтер и сам разберётся как им пользоваться.

это в лабе задание - создать класс «принтер».
сначала на первой кнопке ругалось, потому что там, где property ... write была функция, а не процедура.
даже интересно, теперь-то что, если не баг, конечно.

Если включить логику то

function TPrinter.getPowerState:boolean;
begin
  result:=powerState;
end;

function TPrinter.getPowerState:boolean;
begin
  result:=getPowerState;
end;

спасибо, на мысль натолкнул. попробую ещё.

ООП в лазарусе пока только постигаю

Это все равно, что постигать управление самолетом в бетономешалке.

если стои´т цель постичь управление самолетом в бетономешалке, то что поделать.
лаба же.

Красивая асоциация)) жаль вранье

жаль вранье

Да нет, все верно. Иначе бы не писал.

Чем ооп в лазарусе хуже (вставить нужное)?

Чем ооп в лазарусе хуже (вставить нужное)?

Тем, что нагромождение сомнительных приемов, отвлекающих от сути, при этом уступающее по фичам некоторым другим, тому же Eiffel'ю например.

Код в студию. А то так не угадать где у тебя ошибка.
Да. На лоре поголовно ненавидят паскаль.
Обратись http://freepascal.ru/ там тебе помогут. А то давай код. Посмотрю чёкак.

в шапке же ссыль!
ненавидят… это лучше, чем слепо любить.

Код класса TPrinter совершенно нерабочий.

TPrinter=class
....
  property paperCount:integer read getPaperCount write setPaperCount;
....
  end;

....
procedure TPrinter.setPaperCount(ppr:integer);
begin
  paperCount:=ppr; <------ бесконечная рекурсия
end;

Даю пример как исправить. Поправь по аналогии другие свойства класса.

TPrinter=class
  private
  FPaperCount: Integer;  <---- смотри сюда 
....
  property paperCount:integer read getPaperCount write setPaperCount;
....
  end;

....
procedure TPrinter.setPaperCount(ppr:integer);
begin
  FPaperCount:=ppr; <--- и сюда
end;

Голословно. ООП в паскале вполне на уровне, язык прост и понятен - самое то для обучения

самое то для обучения - это баш и питон!

вот уж спасибо - считай, за меня сделал)

У тебя в классе TPrinter нет переменных chargeLevel, paperCount, power. Есть только свойства с этими именами. Кодом, что представлен, ты как Мюнхаузен пытаешься сам себя за волосья из болота вытащить. Не прокатит.

Опиши в разделе private что-то типа:
FpowerState:boolean;
FchargeLevel:integer;
FpaperCount:integer;

И в методах
getPowerState, setPowerState, getCharge, setCharge, getPaperCount, setPaperCount
обращайся только к этим именам.

И будет тебе щастье.

ЗЫ. Ну да. Тебе уже все объяснили

вот уж спасибо - считай, за меня сделал)

Это классическая ошибка. Многие наступали.

там похоже ещё надо

function TPrinter.print(t:string):boolean;
// поменять на 
function TForm1.print(t:string):boolean;

ООП в паскале вполне на уровне

На уровне наколенной поделки.

язык прост и понятен - самое то для обучения

Для обучения кого? Обучения чему? Индустрия требует кодеров на питонах, рубях и жабаскриптах, а в вузах по-прежнему старперы преподают паскаль. Особо упоротые - под ДОСом.

o_O нееее…

Да.

бред сивой кобылы.
мне нужен метод класса TPrinter - его и беру, каким боком тут TForm1?

для обучения
баш

Это что б детки поседели ещё в молодости?

с чего бы?..
баш так и так изучать придётся - если, конечно, пейтон его не вытеснит в качестве основного шелла. так что пускай сразу учатся.

С того, что нормальных типов данных нет, моргнёшь и уже у тебя что-то неэкранированное куда-то полезло и «вроде работает» пока -rf файл не «сработал», а уж длиннее что-то, чем на пару страниц вообще клиника.

Да и синтаксис, честно говоря, тот ещё уродец.

В нормальных осях основной шелл - это tcsh

В нормальных осях основной шелл - это rc

Пофикшено.

В нормальных осях основной шелл - это powershell

Вброшено.

Толстовато. =)