[Pilot_Red]

Сообщение от Паскаль

А можно код?архивы не смотрю.

Держи, разбирайся..

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series,
  BubbleCh;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Sg: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    Chart1: TChart;
    Series1: TPointSeries;
    Button4: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);

  private
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Sg, Edit1 do
  begin
    ColCount := StrToIntDef(Text, Sg.ColCount);
  end;
end;


procedure TForm1.Button2Click(Sender: TObject); {заполнение из файла}
var List: TStringList;
  i, j: Integer;
begin
  List := TStringList.Create;
  List.LoadFromFile('Таблица.txt');
  with Form1.Sg do
    for i := 0 to RowCount - 1 do
      for j := 0 to ColCount - 1 do
        Cells[j, i] := List[i * ColCount + j];
  List.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
begin
  if Series1 = nil then begin
    Series1 := TPointSeries.Create(Chart1);
    Series1.ParentChart := Chart1
  end
  else Series1.clear;

  with Form1.Sg do
    for i := 0 to ColCount - 1 do
      Series1.AddXY(strtoint(cells[i, 0]), strtoint(cells[i, 1]));

{поиск максимума}

end;

procedure TForm1.Button4Click(Sender: TObject);
var i,j:integer;
  temp,max:integer;
begin
{поиск максимума x и y и провести через них прямые}
temp:=0;
  max:=strtoint(sg.cells[0,0]);
  for i:=0 to sg.rowcount-1 do   {i- номер столбца}
    for j:=0 to sg.colcount-1 do  {j - номер строки  }
      begin
        temp:= strtoint(sg.cells[j,i]);
        if temp>max then
          max:=temp;
      end;


end;

end.