при работе с Excel не работает кусок кода

[Tirendus]

Вот полный код

procedure TForm1.Button1Click(Sender: TObject);
var
XL : variant;
f1 : tstringlist;
i,k : integer;
gname, jar : string;
b: boolean;
begin

  // Excel initialization
  XL:= CreateOLEObject('Excel.Application');
  XL.workbooks.open('d:\work\leeloo\compatibility.xls');
  XL.visible := false;

  //stringlist work
  f1:= tstringlist.Create;
    gname:= inputbox('gamename', 'Enter full gamename','');
    f1.Add('<?xml version="1.0" encoding="ISO-8859-1"?>');
    f1.Add('<gamematrix basedCommonMatrix="1.6.0" created="8.4.2009" release-date="7.4.2009" title="'+gname+
    '" totalSupportedDevices="738" version="1.0.0">');
    f1.add('    <languages>');
    f1.Add('        <supported>en</supported>');
    f1.add('    </languages>');
    i:= 2;
    k:= 2;
    b:= false;

  // useful code
  repeat

    repeat
      b:= XL.cells[i,9].value = XL.cells[i+1,9].value;
      inc(i);
    until b = false;

      jar:= XL.cells[i-1,j].value;
      f1.Add('    <game-file name="'+jar+'">');

    while k < i do begin
      f1.add('        <phone cldc="'+XL.cells[k,1]+
      '" display="'+XL.cells[k,2]+'" manufacturer="'+
      XL.cells[k,3]+'" midp="'+XL.cells[k,4]+'" model="'+
      XL.cells[k,5]+'" speed="'+XL.cells[k,6]+'" tested="'+
      XL.cells[k,7]+'" userAgent="'+XL.cells[k,8]+'"/>');
      inc(k);
    end;

    f1.add('    </game-file>');

  until XL.cells[i, 9].value = '';

  // finish and close
  f1.Add('</gamematrix>');
  f1.SaveToFile('d:\work\leeloo\compatibility.xml');
  f1.Free;
  XL.Quit;
end;

    
while k < i do begin
      f1.add('        <phone cldc="'+XL.cells[k,1]+
      '" display="'+XL.cells[k,2]+'" manufacturer="'+
      XL.cells[k,3]+'" midp="'+XL.cells[k,4]+'" model="'+
      XL.cells[k,5]+'" speed="'+XL.cells[k,6]+'" tested="'+
      XL.cells[k,7]+'" userAgent="'+XL.cells[k,8]+'"/>');
      inc(k);
    end;

вот на этот кусочек ругается компилятор, подскажите пожалуйста в чём проблема

[Kotofff]

вот на этот кусочек ругается компилятор

А как именно ругается ? Приведи подробнее ...
Может быть он ждет от тебя значений из ячеек а не сами ячейки ?

.... XL.cells[k,1].value  ....

[Tirendus]

рабочая программа на работе, завтра опробую со значениями, большое спасибо

хм... попробовал с value, но ничего не получилось, при том компилятор не выделяет строки при это "ошибке". Говорит только, что не может переконвертировать string в double, при этом код без этой части

      f1.add('        <phone cldc="'+XL.cells[k,1]+
      '" display="'+XL.cells[k,2]+'" manufacturer="'+
      XL.cells[k,3]+'" midp="'+XL.cells[k,4]+'" model="'+
      XL.cells[k,5]+'" speed="'+XL.cells[k,6]+'" tested="'+
      XL.cells[k,7]+'" userAgent="'+XL.cells[k,8]+'"/>');

работает идеально

И почему-то на разные ячейки он по разному реагирует, например если я оставляю XL.cells[k,1].value, то всё работает, хотя в каком-то булеановском режиме, пустые ячейки отмечены как 0, а заполненные, как 1, хотя мне нужны именно их значения, например пустая ячейка XL.cells[k,1].value должна в конечном документе выглядеть как
phone cldc = "". Я приложил исходник и рабочую базу, если не лень, пожалуйста посмотрите, возможно я чего-то не понимаю

походу я понял, там разбежности в типах данных, например в столбце A данные 1.1, 1.0 и т.п., типа float. А в столбце B типы данных string потому, что когда указываем дисплей, всегда есть буква x посерединке... то есть с этим я разберусь, но вот другая проблема возникла... всё, что мне нужно - это значения из этих ячеек, мне всё равно какой в них тип, по идее, мне нужно вывести в текстовик все в виде string'ов, но если я пишу для столбца A floattostr(XL.cells[k,1].value), то все запятые убираются (там чередуются запятые и точки, как когда), а все пустые ячейки становятся нулями, а это уж точно не то, что нужно.. может кто-нибудь подсказать как сделать так, что б в текстовик значение float переносилось как обычная строка, безо всяких сокращений, обрезаний и т.п.?
Кстати есть еще один столбец с названиями мобильных телефонов, и там эти типы данных чередуются, где integer, где string, то есть никак не могу их переконвертировать и они вообще не копируються... При этом в экселе пробовал поставить всем ячейкам тип данных строчный, не помогло..

плиз хелп!

[Stilet]

Tirendus

Во-первых: Приводи типы явно.

 while k < i do begin
      f1.add('        <phone cldc="'+String(XL.cells[k,1]));
      inc(k);
    end;

Во-вторых:
Я бы пустоту в ячейке проверял так:

 until VarIsEmpty(XL.cells[i, j]);

[Tirendus]

Во-первых: Приводи типы явно.

супер так очевидно, большое спасибо, заработало.

Я бы пустоту в ячейке проверял так:

спасибо, запомню