[cezer]

Добрый вечер Ув. Программисты.
Делаю свой график вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

var   Form1: TForm1;   arPxl: array [0..7]  of TPoint;   i, j, max, a, b: Integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin   max := StrToInt(StringGrid1.Cells[0, 0]);   for i:= 0 to 5 do     for j:=0 to 0 do       if StrToInt(StringGrid1.Cells[i, j]) > max then         max := StrToInt(StringGrid1.Cells[i, j]);   Label1.Caption := IntToStr(max);       image7.Refresh; image7.Repaint; image1.Visible:=false; image2.Visible:=false; image3.Visible:=false; image4.Visible:=false; image5.Visible:=false; image6.Visible:=false; Canvas.Brush.Color:=clred;   arPxl[0].X:=50; arPxl[0].Y:=200;   arPxl[1].X:=50; a:=round(((strtoint(StringGrid1.Cells[0, 0])/max))*100); b:=(100-a)+100; arPxl[1].Y:=b; image1.Left:=arPxl[1].X-5; image1.Top:=arPxl[1].Y-5;   arPxl[2].X:=100; a:=round(((strtoint(StringGrid1.Cells[1, 0])/max))*100); b:=(100-a)+100; arPxl[2].Y:=b; image2.Left:=arPxl[2].X-5; image2.Top:=arPxl[2].Y-5;   arPxl[3].X:=150; a:=round(((strtoint(StringGrid1.Cells[2, 0])/max))*100); b:=(100-a)+100; arPxl[3].y:=b; image3.Left:=arPxl[3].X-5; image3.Top:=arPxl[3].Y-5;   arPxl[4].X:=200; a:=round(((strtoint(StringGrid1.Cells[3, 0])/max))*100); b:=(100-a)+100; arPxl[4].y:=b; image4.Left:=arPxl[4].X-5; image4.Top:=arPxl[4].Y-5;   arPxl[5].X:=250; a:=round(((strtoint(StringGrid1.Cells[4, 0])/max))*100); b:=(100-a)+100; arPxl[5].y:=b; image5.Left:=arPxl[5].X-5; image5.Top:=arPxl[5].Y-5;   arPxl[6].X:=300; //arPxl[6].y:=145; a:=round(((strtoint(StringGrid1.Cells[5, 0])/max))*100); b:=(100-a)+100; arPxl[6].y:=b; image6.Left:=arPxl[6].X-5; image6.Top:=arPxl[6].Y-5;   arPxl[7].X:=300; arPxl[7].y:=200;   image1.Hint:=(StringGrid1.Cells[0, 0]); image2.Hint:=(StringGrid1.Cells[1, 0]); image3.Hint:=(StringGrid1.Cells[2, 0]); image4.Hint:=(StringGrid1.Cells[3, 0]); image5.Hint:=(StringGrid1.Cells[4, 0]); image6.Hint:=(StringGrid1.Cells[5, 0]);   Canvas.Polygon(arPxl); image1.Visible:=true; image2.Visible:=true; image3.Visible:=true; image4.Visible:=true; image5.Visible:=true; image6.Visible:=true; Canvas.Polygon(arPxl);   end;

Вот исходники: График.rar

подскажите как сделать этот график универсальным.
А именно... Добавление сколько угодно в стринг грид данных, сколько угодно вспомогательных точек(image1 и тд). Ну вообщем чтоб он был универсальным для входных данных. За ранее спасибо.

С Уваженияем: Я.

[M.A.D.M.A.N.]

Копец блондинский код.
Нужно чтобы несколько графиков на одном холсте рисовались, с общими осями?

[cezer]

Сообщение от M.A.D.M.A.N.

Копец блондинский код.
Нужно чтобы несколько графиков на одном холсте рисовались, с общими осями?

Да уж блондинский))) Сейчас график принимает только 6 точек а как сделать все динамически чтоб я мог допустим указываю сколько точек вписываю значение и он строит график. Вот так надо(

[NumLock]

так хочешь Построитель графиков ?

[cezer]

Сообщение от NumLock

так хочешь Построитель графиков ?

Спасибо но пожалуй для меня пока слишком сложный этот самый "Построитель графиков" Есть потребность выводить столько точек сколько будет допустим добавленно в Edit. Я думал сделать все через циклы. Данамическое создание image, создание ячеек в стринггрид и тд. С созданием динамически image нашел но там не было последовательного номера для image чтоб присвоить ему координаты Top Left. как в стринггрид добавить ячейки знаю. А как все это организовать... Пока не додумался вот и прошу помощи.

[angvelem]

Сейчас пишу программу для внешней железки, потребовался график для данных из SQLite базы. Перешерстил уйму разных вариаций графиков, в итоге пришлось писать собственный - универсальных не бывает.