StringGrid,ValueListEditor

← →
bagos (2007-04-18 14:07) [0]

Братья по проге,выручайте,запутался в своем коде,не могу решить проблему.
Грид заполняется данными:
Фиксированный столбец
var i : Integer; begin StringGrid3.RowCount := ValueListEditor1.RowCount + 1; for i := 1 to StringGrid3.RowCount - 2 do begin StringGrid3.Cells[0,i + 1] := ValueListEditor1.Keys[i] ; end; StringGrid3.Cells[0,0] := "Длина серии";
ValueListEditor1 содержит
2 9
3 8
4 7
5 6
6 5
7 4
8 3
9 2
в столбце value по идее можно задавать значение в любом порядке. Key заполняется из [s1,s2] в нашем случае s1=2, s2=9
На форме есть memo1,в нем данные например такие:
N1[6]
N1[5]
N2[2]
N1[7]
N1[7]
N1[2]
N1[9]
N1[6]
N1[6]
N1[9]
N1[3]
N1[8]
N1[6]
N1[5]
N1[8]
N1[7]
N1[6]
N2[3]
N1[6]
N1[2]
N1[5]
N1[8]

Нахожу максимальное значение после N, в нашем случе это будет 2, (N2 самое большое)
число 2 будет кол-вом столбцев в StringGrid3 (3 грид ,в него вносятся все данные).
Также есть StringGrid1 в который заносятся данные из memo1,подсчитываю одинаковое кол строк
т.е.
N1[6] - 6 строк
N1[5] - 3
N2[2] - 1
N1[7] - 3
etc.
Далее идет основной код,заполнения StringGrid3:
var Xz1,Xz2 : Integer; Xv1,Xv2 : Integer; I : Integer; Index,Index2,Gg : Integer; begin for I := 0 to StringGrid1.RowCount - 1 do begin Xz1 := PosEx("N",StringGrid1.Cells[0,i]) + 1; Xz2 := PosEx("[",StringGrid1.Cells[0,i]) - 2; Index := StrToInt(Copy(StringGrid1.Cells[0,i],Xz1,Xz2)); Xv1 := PosEx("[",StringGrid1.Cells[0,i]) + 1; Xv2 := PosEx("]",StringGrid1.Cells[0,i]); Gg := StrToInt(StringGrid3.Cells[0,2]) - 2; Index2 := StrToInt(Copy(StringGrid1.Cells[0,i],Xv1,Xv2 - Xv1)) - Gg; StringGrid3.Cells[Index,Index2] := StringGrid1.Cells[1,i]; end;

Все заполняется верно. Но! начальник попросил сделать в valulisteditor1 ввод keys не из интервала [s1,s2] а самому,т.е допустим
3 7
5 9
8 2
4 3
Вот теперь проблема что данные заносятся,но уже не попорядку в StringGrid3,нужно чтобы также было,строчка друг за другом
Обращаюсь к вам за помощью друзья,т.к. сам уже не в состоянии,мозги кипят :(
Спасибо.

← →
Михась (2007-04-18 16:10) [1]

мужики,выручайте

← →
Михась (2007-04-18 16:11) [2]

мужики,выручайте пацана

← →
bagos (2007-04-18 16:11) [3]

> Михась (18.04.07 16:11) [2]
> мужики,выручайте пацана

и то верно

StringGrid,ValueListEditor Найти похожие ветки