Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дата

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

Geoji (2004-07-20 12:34:00) [1]
Спасибо!!! Не сразу увидел. Всем удачи!!!!!!!

Соловьев (2004-07-20 12:33:00) [2]

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

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

Geoji (2004-07-20 12:30:00) [3]
[6]
В RadioGroup1 < 9 , а в RadioGroup2 = 12 (месяцев)
Так, что все таки в:
case RadioGroup2.ItemIndex of
0: s:= '??????????';...........

Deniz (2004-07-20 12:22:00) [4]
s:=copy(RadioGroup1.Text, 3, 2) + Format('%.2d', [RadioGroup2.ItemIndex + 1]) + '.dbf';

Geoji (2004-07-20 12:22:00) [5]
[1]
>'from ms_'+RadioGroup1.Items[RadioGroup1.ItemIndex][3]+RadioGroup1.Items[RadioGroup1.ItemIndex][4]+
А в RadioGroup2 что писать?

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

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

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

]+sMonth+'.dbf'

Соловьев (2004-07-20 12:17:00) [7]

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

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

Geoji (2004-07-20 12:16:00) [8]
[1]
Но у меня в RadioGroup1 - 2003, RadioGroup2 - Январь

Соловьев (2004-07-20 12:15:00) [9]
обшибочка

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

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

Соловьев (2004-07-20 12:13:00) [10]
'from ms_'+RadioGroup1.Items[RadioGroup1.ItemIndex][3]+RadioGroup1.Items[RadioGroup1.ItemIndex][4]+RadioGroup1.ItemIndex]+'.db f'

Geoji (2004-07-20 12:13:00) [11]
Может быть непонятно объяснил:
...
...
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);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »