Созание компоненты
| Категория реферата: психология, педагогика
| Теги реферата: психологические рефераты, образец курсовой работы
| Добавил(а) на сайт: Shurupov.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TNEdit1]);
end;
constructor TNEdit1.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
end;
function TNEdit1.getNum : Single;
begin
try
Result := StrToFloat(text);
except begin
Result := 0;
text := '';
end;
end;
end;
procedure TNEdit1.setNum(val: Single);
begin
EditNumber:=val;
text:=FloatToStr(val);
end;
Рекомендуем скачать другие рефераты по теме: доклад по обж, ответ 3.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
Главная