StringGrid

[BuSiNkA_Lapochka]

необходимо считать данные со stringgrid (там задаются координаты x и y) и изобразить полученные точки на графике вот листинг

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Sg: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array [1..

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];
end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j:ineteger;
begin
for i:=0 to n do
for j:=0 to 1 do

end;

end.

[Stilet]

Если грубо то так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Sg: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
   Chart1: TChart;
    Series1: TFastLineSeries;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array [1..

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
  if Chart1=nil then begin
   Chart1:=TChart.Create(self);
   Chart1.Parent:=Self;
   Chart1.Align:=alClient;
   Chart1.Show;
  end;
  if Series1=nil then
   Series1:=TFastLineSeries.Create(Chart1);
   Series1.ParentChart:=Chart1;
  else Series1.clear;

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];
    Series1.AddXY(i,j);
end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j:ineteger;
begin
 Тут ниче не надо. Пусть график вместе с гридом наполняется
end;

end.

Одно только не понятно - В каком виде координаты в грид вводятся?
Обрати внимание - для примера я график наполняю числами из счетчика i и j
Вместо них нужно подставлять данные из грида, но в зависимости от того как они выглядят.

[BuSiNkA_Lapochka]

чего то не получается(( ничего не рисует(
отправляю текстовый файлТаблица.txt пожалуйста окажите помощь!

[Stilet]

Не. Прикрепляй сюда свой проект в архиве, ибо пересобирать твои формы некошерно.

[BuSiNkA_Lapochka]

вот вся прога главная.rar

[BDA]

Вот (10 символов)

[BuSiNkA_Lapochka]

А если мне надо поставить только точки, не соединяя их линиями?

[Stilet]

Значит выбери другой тип диаграммы - точечный. Я точно не помню как она называется, но есть в настройках Chart такая.

[BuSiNkA_Lapochka]

необходимо найти максимальное значение х и y и провести через них параллельные прямые осям и затем минимальные значения и так же провести параллельные прямые через эти точки в результате получиться прямоугольник. как это сделать????главная.rar

[BuSiNkA_Lapochka]

помогите нашла максимумы и минимумы а как через них провести прямые не знаю( подскажитеглавная.rar