Форум: "Начинающим";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
Вниз
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]
> мужики,выручайте пацана
и то верно
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
