Курсовая работа: Расчетная методика проектирования программного комплекса

Memo1.Lines.Add(format('%f',[arrReal[i]]));

Caption := 'Text Editor - ' + ExtractFileName(FileName);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Raschet;

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i, min, max: Integer;

begin

min := fMmin(N);

max := fMmax(N);

ComboBox1.Clear;

for i := min to max do

if Odd(i) then

ComboBox1.Items.Add(format('%d',[i]));

ComboBox1.ItemIndex := ComboBox1.Items.Count - 1;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Form4.Show;

end;

end.

Приложение В (Модуль 2)

unit Unit2;

interface