Разработка компонентов в DELPHI. Вощинская Г.Э. - 54 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

Parent:=Self;
Top:=120;
Left:=0;
Caption:='Calculate';
// Ⱦɟɥɟɝɢɪɭɟɦ ɦɟɬɨɞ btCalcClick ɫɨɛɵɬɢɸ OnClick
OnClick:=btCalcClick;
end;
lbResult:=TLabel.Create (self);
with lbResult do begin
Width := 75; Height := 25;
Parent:=Self;
top:=60;
Left:=0;
Caption:='';
end;
//ɋɨɡɞɚɟɦ ɩɨɬɨɦɨɤ ɚɛɫɬɪɚɤɬɧɨɝɨ ɤɥɚɫɫɚ TStrings
FText:=TStringList.create;
FText.clear;
end;
procedure TCalcBox.SetText(Value: TStrings);
begin
// Ʉɨɩɢɪɭɟɦ ɜ ɩɨɥɟ FText ɫɨɞɟɪɠɢɦɨɟ TStrings
FText.Assign(Value);
end;
procedure TCalcBox.btCalcClick(Sender: TObject);
var sum: extended;
i: integer;
begin
// ɉɨɞɫɱɢɬɵɜɚɟɦ ɫɭɦɦɭ ɜɜɟɞɟɧɧɵɯ ɡɧɚɱɟɧɢɣ
try
Sum:=0;
54

Страницы