Delphi-6 - среда разработки программного обеспечения для систем промышленной автоматизации. Букреев В.Г - 88 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

этого следует также учесть, что с изменением числа узловых точек таб-
лица с данными (компонент StringGrid1) должна автоматически уста-
навливать число строк равное величине SpinEdit1.Value. Для этого нуж-
но войти в процедуру обработки событий компонента SpinEdit1, кото-
рая автоматически создается двойным щелчком левой кнопки мыши на
данном компоненте, и внести соответствующие изменения:
procedure TForm1.SpinEdit1Change(Sender: TObject);
// Установка числа строк в таблице
begin
//Присвоить число строк таблицы равное SpinEdit1.Value+1
StringGrid1.RowCount:=SpinEdit1.Value+1;
//Пронумеруем первый столбец
For i:=1 to SpinEdit1.Value+1 do
StringGrid1.Cells[0,i]:=FloatToStr(i);
end;
Далее создадим обработку событий от текстового меню. Рассмотрим
пункт меню Файл | Сохранить результаты:
procedure TForm1.N4Click(Sender: TObject);
// Запись входного и выходного списка точек в текстовый файл.
begin
// Указать компоненту SaveDialog1 расширение
// сохраняемого файла: XLS.
Form1.SaveDialog1.Filter:='xls';
// Проверка – расчеты выполнены или нет?
if Calculated then //Расчеты выполнены
If Form1.SaveDialog1.Execute then //Нажата кнопка сохра-
нить
begin
// Связать переменную F с указанным файлом.
AssignFile(F,Form1.SaveDialog1.FileName+'.xls');
{$I-} //Директива компилятора
// Перезаписать файл F, если он есть, или создать новый, ес-
ли нет.
Rewrite(F);
// Добавить заголовок входного списка точек.
WriteLn(F,'InputPoints');
// Добавить строку в файл с именами столбцов
WriteLn(F,'X'+' '+'Y'+' '+'Z'+'
'+'Q');
// В цикле добавляем в файл все точки дискретно заданной
// функции.
For i:=0 to Length(InputQZ.X)-1 do
begin
88

Страницы