Технология разработки программных продуктов Turbo Delphi

end;

 

procedure TForm1.bRangeStKeyPress(Sender: TObject; var Key: Char);

begin

     if not(key in['0'..'9',',','-',#8]) then key:=#0;

end;

 

procedure TForm1.buildGraphClick(Sender: TObject);

var

x,y,Xmin,Xmax,Ymin,Ymax:real;

Xgmin,Xgmax,Ygmax,Ygmin,i,Xg,Yg:integer;

begin

Xgmin:=0;

Xgmax:= Graphic.ClientWidth;

Ygmin:= Graphic.ClientHeight;

Ygmax:=0;

Xmin:=0;

Xmax:= n-1;

Ymin:=CSort[n-1];

Ymax:=CSort[0];

Xg:=Xgmin + Trunc((Xgmax-Xgmin)*(0-Xmin)/(Xmax-Xmin));

Yg:=Ygmin + Trunc((Ygmax-Ygmin)*(CSort[0]-Ymin)/(Ymax-Ymin));

Graphic.Canvas.Moveto(Xg,Yg);

for i:= 1 to n-1 do begin

Graphic.Canvas.Pen.Color:=clGreen;

 

Xg:=Xgmin + Trunc((Xgmax-Xgmin)*(i-Xmin)/(Xmax-Xmin));

Yg:=Ygmin + Trunc((Ygmax-Ygmin)*(CSort[i]-Ymin)/(Ymax-Ymin));

Graphic.Canvas.Lineto(Xg,Yg);

 

end;

Xg:=Xgmin + Trunc((Xgmax-Xgmin)*(0-Xmin)/(Xmax-Xmin));

Yg:=Ygmin + Trunc((Ygmax-Ygmin)*(C[0]-Ymin)/(Ymax-Ymin));

Graphic.Canvas.Moveto(Xg,Yg);

for i:= 1 to n-1 do begin

Graphic.Canvas.Pen.Color:=clBlue;

Xg:=Xgmin + Trunc((Xgmax-Xgmin)*(i-Xmin)/(Xmax-Xmin));

Yg:=Ygmin + Trunc((Ygmax-Ygmin)*(c[i]-Ymin)/(Ymax-Ymin));

Graphic.Canvas.Lineto(Xg,Yg);

end;

Graphic.Canvas.Pen.Color:=clred;

xg:=0;

Yg:=Ygmin + Trunc((Ygmax-Ygmin)*(0-Ymin)/(Ymax-Ymin));

Graphic.Canvas.Moveto(Xg,Yg);

xg:=Graphic.ClientWidth;

Graphic.Canvas.Lineto(Xg,Yg);

Graphic.Canvas.Pen.Color:=clred;

Graphic.Canvas.Moveto(0,0);

Graphic.Canvas.Lineto(0,1000);

end;

procedure TForm1.SortCClick(Sender: TObject);

var

w:real;

i,j:integer;

begin

sortArrayC.Width:=n*50;

SortArrayC.colCount:=n;

sort(csort);

for i := 0 to n-1 do

SortArrayC.Cells[i,0]:=floatToStrF(CSort[i],ffGeneral,4,4);

end;

 

procedure TForm1.startXKeyPress(Sender: TObject; var Key: Char);

begin

     if not(key in['0'..'9',',','-',#8]) then key:=#0;

end;

 

procedure TForm1.StepKeyPress(Sender: TObject; var Key: Char);

begin

      if not(key in['0'..'9',',',#8]) then key:=#0;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

  ShellExecute (Form1.Handle, nil, 'Справка.chm', nil, nil, SW_RESTORE);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Application.Terminate;

end;

function TForm1.GetExcelFileName: String;

begin

  Result := ExtractFilePath(Application.ExeName) + 'файл';

  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then

    Result := Result + EXCEL_FILE_EXT;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

while Form1.AlphaBlendValue < 255 do

Form1.AlphaBlendValue:=Form1.AlphaBlendValue+3;

timer1.Enabled:=False;

end;

end.