| FaTsO |
| Отправлено: 24.12.2003, 13:05 |
|
Не зарегистрирован
|
Пишу вот такую вещь:
TDateTime dt1, dt2, dt3, dt4, dt5, dt6;
int days1, days2, days3, days4, days5, days6;
TDateTime date1, date2, date3, date4, date5;
int d1, d2, d3, d4, d5;
char* res[120];
String* str;
dt1 = Edit1->Text;
dt2 = Query3->FieldByName("Дата1")->AsString;
dt3 = Query3->FieldByName("Дата2")->AsString;
dt4 = Query3->FieldByName("Дата3")->AsString;
dt5 = Query3->FieldByName("Дата4")->AsString;
dt6 = Query3->FieldByName("Дата5")->AsString;
date1 = dt2-dt1; days1 = StrToInt(date1.FormatString("dd"));
date2 = dt3-dt2; days2 = StrToInt(date2.FormatString("dd"));
date3 = dt4-dt3; days3 = StrToInt(date3.FormatString("dd"));
date4 = dt5-dt4; days4 = StrToInt(date4.FormatString("dd"));
date5 = dt6-dt4; days5 = StrToInt(date5.FormatString("dd"));
d1 = days1 / 6;
d2 = days2 / 6;
d3 = days3 / 6;
d4 = days4 / 12;
d5 = days5 / 6;
for (j = 0; j < d1; j++)
{ res[j] = " "; }
for (j = d1; j < d2; j++)
{ res[j] = "."; }
res[d2] = " ";
for (j = d2 + 1; j < d3; j++)
{ res[j] = "_"; }
res[d3] = " ";
for(j = d3 + 1; j < d4; j++)
{ res[j] = "-"; }
for(j = d4; j < d5; j++)
{ res[j] = "_ "; }
res[d5] = "|>";
for(j = d5 + 1; j < 119; j++)
{ res[j] = " "; }
toExcelCell(Row, 26, Variant(res));
toExcelCell выглядит примерно так:
void __fastcall TForm3::toExcelCell(int Row,int Column, Variant data)
{
try
{
Variant cur = Sh.OlePropertyGet("Cells", Row,Column);
cur.OlePropertySet("Value", data);
}
catch(...) { ; }
}
ТОлько при подаче в Excel он пишет в ячейке слово ИСТИНА...
а должно получиться что то вроде этого:
" .................______________---------------_ _ _ _ _ |> "
Подскажите, как мне сделать чтобы он выводил массив этот...??? |
|
| pasha |
| Отправлено: 24.12.2003, 17:24 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 62
|
Попробуйте задать нужный формат ячеек в Excel
(может так он понимает как bool) |
|
|
