abalex
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vitus_Bering
Цитата:| Спроси здесь _http://www.axolot.se/BB2/phpBB2/viewforum.php?f=9 |
Спасибо за совет
Но зачем спрашивать, если я и так вижу что метода нет
Мне просто интересно было как другие выкручиваются
я вот вчера погонял пример FindText для поиска даты
и пришлось вот таким макаром проползти по ячейкам:
procedure TTestForm.btnFindDateClick(Sender: TObject);
var
i,j, Sheet,Col,Row,TextPos: integer;
s, Text: WideString;
sd1 : Double;
sd2, sd3 : TDateTime;
f : boolean;
sd : Variant;
begin
j := -1;
s := DateToStr(Int(DateTimePicker1.Date));
sd1 := Int(DateTimePicker1.Date);
//sd2 := DateTimePicker1.Date;
sd3 := DateTimePicker1.Date;
Sheet := TabSet.TabIndex;
for row := 0 to XLS.Sheets[TabSet.TabIndex].LastRow -1 do
begin
for col := 0 to XLS.Sheets[TabSet.TabIndex].LastCol -1 do
begin
if XLS.Sheets[TabSet.TabIndex].IsDateTime[Col - 1, Row - 1] then
begin
//Text := DateToStr(XLS.Sheets[TabSet.TabIndex].AsDateTime[col -1, row -1]);
sd2 := XLS.Sheets[TabSet.TabIndex].AsDateTime[col -1, row -1];
if Int(sd2) = Int(sd3) then
begin
f := true;
Grid.Col := Col;
Grid.Row := Row;
Break;
end;
end;
end;
if f then Break;
end;
if f then
ShowMessage('Найдено:' + IntToStr(Col-1) + '/' + IntToStr(Row-1))
else
ShowMessage('Не найдено');
end;
|
Всего записей: 781 | Зарегистр. 21-10-2004 | Отправлено: 09:15 25-05-2007 | Исправлено: abalex, 09:47 25-05-2007 |
|
