Дата

← →
Geoji (2004-07-20 12:09) [0]

Добрый день! Такая проблема, - есть файлы: **0201.dbf, **0302.dbf, **0303.dbf, **0304.dbf..., **0401.dbf, **0402.dbf, **0403.dbf..., где первые две цифры -год, вторые - месяц. Если в запросе from m_s0401..., все нормально, но нужно в RadioGroup1 выбирать год, а в RadioGroup2 месяц. Как разделить строку from на две?

← →
Соловьев © (2004-07-20 12:13) [1]

"from ms_"+RadioGroup1.Items[RadioGroup1.ItemIndex][3]+RadioGroup1.Items[RadioGroup1.ItemIndex][4]+RadioGroup1.ItemIndex]+".db f"

← →
Geoji (2004-07-20 12:13) [2]

Может быть непонятно объяснил:
...
...
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("select...............
case RadioGroup1.ItemIndex of
0: s:= "??????????";
1: s:= "??????????";
2: s:= "??????????";
end;
Query1.SQL.Add(s);
case RadioGroup2.ItemIndex of
0: s:= "??????????";
1: s:= "??????????";
2: s:= "??????????";
3: s:= "??????????";
4: s:= "??????????";
5: s:= "??????????";
И т.д.
Query1.SQL.Add(s);

← →
Соловьев © (2004-07-20 12:15) [3]

обшибочка

> ]+RadioGroup1.ItemIndex]+".db f"

]+IntToStr(RadioGroup1.ItemIndex)+".dbf"

← →
Geoji (2004-07-20 12:16) [4]

[1]
Но у меня в RadioGroup1 - 2003, RadioGroup2 - Январь

← →
Соловьев © (2004-07-20 12:17) [5]

> Но у меня в RadioGroup1 - 2003, RadioGroup2 - Январь

попробуй - и удивишся:)

← →
Соловьев © (2004-07-20 12:20) [6]

> ]+IntToStr(RadioGroup1.ItemIndex)+".dbf"

но еще одно условие
if RadioGroup1.ItemIndex <=9 then
sMonth := "0"+IntToStr(RadioGroup1.ItemIndex+1)
else
sMonth := IntToStr(RadioGroup1.ItemIndex+1);

]+sMonth+".dbf"

← →
Deniz © (2004-07-20 12:22) [7]

s:=copy(RadioGroup1.Text, 3, 2) + Format("%.2d", [RadioGroup2.ItemIndex + 1]) + ".dbf";

← →
Geoji (2004-07-20 12:22) [8]

[1]
>"from ms_"+RadioGroup1.Items[RadioGroup1.ItemIndex][3]+RadioGroup1.Items[RadioGroup1.ItemIndex][4]+
А в RadioGroup2 что писать?

← →
Geoji (2004-07-20 12:30) [9]

[6]
В RadioGroup1 < 9 , а в RadioGroup2 = 12 (месяцев)
Так, что все таки в:
case RadioGroup2.ItemIndex of
0: s:= "??????????";...........

> Format("%.2d", [RadioGroup2.ItemIndex + 1])

тебе же написали. вот это красивее:)

← →
Geoji (2004-07-20 12:34) [11]

Спасибо!!! Не сразу увидел. Всем удачи!!!!!!!

Дата Найти похожие ветки