16.11.2013, 21:24
|
|
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от maxfox123
.....
НО как использовать метод Offset( X,Y).Value в дельфи?
ЕСЛИ КТО НАУЧИТ БУДУ ОЧЕНЬ БЛАГОДАРЕН
Код:
.....
RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
k := 1;
repeat
for r := 1 to y do
Begin
sGetStrData := RangeMatrix[K, R];
If (sGetStrData = TelephoneConst) Then
Form1.RichEdit1.Lines.Add(sGetStrData);
End;
Inc(k, 1);
until k > x;
// Unassign the Delphi Variant Matrix
RangeMatrix := Unassigned;
|
А разве так не работает?:
Код:
ContactTelephone := RangeMatrix[K, R].Offset[1, 0].Value;
|