Visible:boolean

visible := true

Hide Show

if edInput.Text = '' then

Exit;

Листинг 25

procedure TfmExample.bbRunClick(Sender:TObject);

var

i, n, sum:integer;

begin

if edInput.Text = '' then

exit;

n := strToInt(Trim(edInput.Text));

edInput.Text := '';

edInput.SetFocus

sum := 0;

for i := 1 to n do

sum := sum + i;

mmOutput.Lines.Add('сумма всех чисел в диапазоне 1..'+ IntToStr(n) + 'равна' + IntToStr(Sum));

end;

Листинг 26

procedure TfmExample.FormActivate(sender:TObject);

begin

edInput.SetFocus;

lbOutput.Caption := 'Введите исходное целое число';

end;

Рис. 22

TListBox Items

StringList Editor

+

-

*

/

ItemIndex := -1

ItemIndex := -1

OnClick

TEdit

Листинг 27

procedure TfmExample.bbRunClick(Sender:TObject);

var

x, y, z:real;

begin

if (edInput1.Text = '') or (edInput2.Text = '') or (lbSign.ItemIndex < 0) then

begin

beep;

lbOutput.Caption := 'Не все требуемые параметры введены'

end

else

begin

try

x := strToFloat(Trim(edInput1.Text));

except

ShowMessage('Ошибочная запись числа: '+ edInput1.Text);

edInput1.SetFocus;

exit

end;

try

y := strToFloat(Trim(edInput2.Text));

except

ShowMessage('Ошибочная запись числа: '+ edInput2.Text);

edInput2.SetFocus;

exit

end;

case lbSign.ItemIndex of

0: z := x + y;

1: z := x - y;

2: z := x * y;

3: try

z := x/y;

except

z := 1.1e38;

end;

end;

lbOutput.Caption := Trim(edInput1.Text) + ' ' + lbSign.Items[lbSign.Item-Index] + Trim(edInput2.Text) + ' = ';

if z > 1.1e38 then

lbOutput.Caption := lbOutput.Caption + 'бесконечность'

else

lbOutput.Caption := lbOutput.Caption + FloatTostr(z);

edInput1.Text := '';

edInput2.Text := '';

lbSign.ItemIndex := -1;

end;

end;

Листинг 28

procedure TfmExample.FormActivate(sender:TObject);

begin

edInput1.SetFocus;

lbSign.ItemIndex := -1;

lbOutput.Caption := 'Введите исходные данные';

end;

SmallInt -32768 .. 32767

Integer -2147483648 .. 2147483647

LongWord 0 .. 4294967295

Int64 -9*1018 .. 9*1018

Cardinal 0 .. 2147483647

Currency  922 337 203 685 477, 5897

«Дата-Время» (TDateTime)

1. Date():TDateTime;

2. DateToStr(d:TDateTime):string;

3. DateTimeToStr(d:TDateTime):string;

4. Time: TDateTime;

5. TimeToStr(d:TDateTime):string;

6. DayOfWeek(Date: TDateTime):integer; (1-й день - воскресенье);

7. YearOf(Date: TDateTime): integer;

8. procedure DecodeDate(Date:TDateTime; var Year, Month, Day: Word);

9. procedure DecodeTime(Time:TDateTime; var Hour, Min, Sec, MSec: Word);

10. Now():TDateTime;

D := date - 120;

T := time + StrToTime('1:30');

Листинг 29

var

A: array of integer;

B: array of array of real;

C: array of array of array of char;

SetLength(<название массива>, <размерность>);

SetLength(a, 7);

SetLength(b[2], 9);

SetLength(b[3], 11);

A := nil; Finalize(b);

Листинг 30

var

v1, v2, v3, v4, v5, v6: variant;

begin

v1 := 2;

v2 := 1234.5678;

v3 := 'пример строки';

v4 := '1000';

v5 := v1 + v2 + v4; // v5 = 2236.5678