FreePascal.ru

Tsuyu я не знаю как определено ChangeTool, но очень похоже, что это не процедура, а ссылка на нее, соответственно, второй вариант и не должен быть верным. Ведь не всегда ссылка ведет на процедуру. она может быть равна и nul.
procedure TMainWindow.ChangeTool(Sender: TObject);
begin ...

В чем разница между обычным вызовом и вызовом (по ссылке?) ?
Пример:
Так работает:

Так не работает:

Vadim писал(а):Tsuyu
Запускаете из Lazarus'а?

Да.

procedure TForm1.SqrtXClick(Sender: TObject);
begin
try
InfString.Text := InfString.Text + (Sender as TButton).Caption
+ ResultString.Text;
ResultString.Text := FloatToStr(sqrt(StrToFloat(ResultString.Text)));
except
on Exception do
begin
InfString ...

Нужно сделать кнопку Backspace.
При клике в глобальную переменную типа string Записываю текущее значение Edit1, но как удалить последний символ? Есть ли библиотеки для работы со строками в Pascal'е?
P.S. К сожалению, нуб в Pascal'e =\.

Где можно посмотреть полный список клавиш?

Спасибо большое, разобрал всё, кроме предпоследней строки.
if Key=#13 then (Sender as TEdit).OnChange(Sender);
При нажатии PauseBreak ничего не изменяется.

Подскажите, пожалуйста, как можно ограничить ввод(в Edit)с клавиатуры(KeyPress, KeyDown), не используя лист разрешенных символов?