ВУЗ:
Составители:
Рубрика:
for i:=0 to Text.Count-1 do
Sum:=Sum+ StrToFloat(Text[i]);
lbResult.Caption:=FloatToStr(Sum);
except
ShowMessage('Ɉɲɢɛɤɚ ɩɪɟɨɛɪɚɡɨɜɚɧɢɹ!');
end;
end;
destructor TCalcBox.Destroy;
begin
btCalc.free;
lbResult.Free;
inherited Destroy;
end;
procedure Register;
begin
RegisterComponents('Samples', [TCalcBox]);
end;
end.
Ɂɚɞɚɧɢɹ
ȼ ɤɚɠɞɨɦ ɡɚɞɚɧɢɢ ɬɪɟɛɭɟɬɫɹ:
– ɫɨɡɞɚɬɶ ɤɥɚɫɫ ɞɥɹ ɤɨɦɩɨɧɟɧɬɚ;
– ɫɨɡɞɚɬɶ ɬɟɫɬɢɪɭɸɳɟɟ ɩɪɢɥɨɠɟɧɢɟ;
– ɩɪɨɜɟɪɢɬɶ ɪɚɛɨɬɭ ɤɨɦɩɨɧɟɧɬɚ ɩɪɢ ɞɢɧɚɦɢɱɟɫɤɨɦ ɫɨɡɞɚɧɢɢ;
– ɭɫɬɚɧɨɜɢɬɶ ɤɨɦɩɨɧɟɧɬ;
– ɩɪɨɬɟɫɬɢɪɨɜɚɬɶ ɢɧɬɟɪɮɟɣɫ ɜɪɟɦɟɧɢ ɩɪɨɟɤɬɢɪɨɜɚɧɢɹ;
– ɩɨɞɝɨɬɨɜɢɬɶ ɨɬɱɟɬ.
ɋɬɪɭɤɬɭɪɚ ɨɬɱɟɬɧɨɣ ɪɚɛɨɬɵ ɞɨɥɠɧɚ ɛɵɬɶ ɩɨɫɬɪɨɟɧɚ ɩɨ ɨɛɳɟɣ ɫɯɟɦɟ.
ɋɥɟɞɭɟɬ ɨɛɪɚɬɢɬɶ ɜɧɢɦɚɧɢɟ ɧɚ ɨɬɪɚɠɟɧɢɟ ɫɥɟɞɭɸɳɟɣ ɢɧɮɨɪɦɚɰɢɢ. ȼɪɚɡ-
55
