Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки