ошибка при добавлении елемента TListItem в TListVew

[lowercase]

доброго времени суток! я пишу программу для тестирования, и преподаватель сказал что надо создать файл в который бы записывались все даные произошедшем тесте(названия теста, имя того кто проходил, группа, год, и т.п.) не важно кроче говоря... решил я все это дело оформить через XML... не буду лезть глубоко... собственно в чем проблема?... когда я считываю даные с файла и хочу их поместить в TListView, компилятор выдает ошибку конвертированя типов (oleStr в boolean) хотя ни тем ни тем не при передачи параметров даже пахнет, то есть пахнет и еще как но не в том месте))...
вот фрагмент кода

procedure addResultToList(list:TListView; const year: word; test_title,
  group,last_name,name:string; rating: word);
var itm: TListItem; {этот пример добавления елемента в список я нашел на этом форуме...
только немогу дать ссылку, так как не помню где, давно уже было это}

begin
  itm := list.Items.Add;
  itm.Caption := intToStr(year);
  itm.SubItems.Add(test_title);
  itm.SubItems.Add(group);
  itm.SubItems.Add(last_name);
  itm.SubItems.Add(name);
  itm.SubItems.Add(intToStr(rating));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var od:TOpenDialog;
    fileName:string;
    i:word;
    y,r:word;
    t,g,l,n:string;
begin
  od := TOpenDialog.Create(form1);
  if od.Execute then
    if fileExists(od.FileName) then
      fileName := od.FileName;
  if isLcTestFile(fileName) then begin
    decriptXmlFile(xmlf,fileName);
    for i := 0 to xmlf.DocumentElement.ChildNodes.Count - 1 do begin
      y:=xmlf.DocumentElement.ChildNodes[i].GetAttribute(xml_year);
      t:=xmlf.DocumentElement.ChildNodes[i].GetAttribute(xml_test_title);
      g:=xmlf.DocumentElement.ChildNodes[i].GetAttribute(xml_group);
      l:=xmlf.DocumentElement.ChildNodes[i].GetAttribute(xml_last_name);
      n:=xmlf.DocumentElement.ChildNodes[i].GetAttribute(xml_name);
      r:=xmlf.DocumentElement.ChildNodes[i].GetAttribute(xml_rating);
-->   addResultToList(resultsList,y,t,g,l,n,r);{ вот на эту строчку 
указывает компилятор, все предидушие присваивания проходят идеально и все даные 
читаются с файла тоже без ошибок... выдает ошибку EVariantTypeCastError with message
'Could not convert variant of type (OleStr) into (Boolean)'...} 
    end;
  end;
end;

[Stilet]

Поставь там точку прерывания и пошаговкой выясни какие параметры пересчитываются в твои переменные.

[lowercase]

пробовал, ошибка именно на самой передачи параметров, именно в строчке которую я выделил, так как я поставил остановку внутри
на строчку begin процедуры addResultToList, но программа не доходит до этой точки.

21:14

прошу прощения.. собственно проблемы только с моей невнимательностью... ошибка то в записи даных) то есть ошибки нет если расматривать ее со стороны компилятора... короче говоря если кому интересно вот в чем проблема:
таким образом я формирую xml-тег для последущей записи в файл

procedure crtTstrRecXML(var XMLNode: IXMLNode; Const name,last_name,group,
  test_title:string; year,rating:word);
begin
  XMLNode.SetAttribute(xml_year,year);
  XMLNode.SetAttribute(xml_name,name);
  XMLNode.SetAttribute(xml_last_name,last_name);
  XMLNode.SetAttribute(xml_group,group);
  XMLNode.SetAttribute(xml_test_title,test_title);
  XMLNode.SetAttribute(xml_rating,xml_rating);
end;
//.... тра-та-та-та... код, процедури и функции для записи в файл...
//а вот и моя проблема):
  XMLNode.SetAttribute(xml_rating,xml_rating);

xml_rating это константа, значение которой равно "rating", то есть тип string;
просто по глупости, из копи-паста(ctrl+c, ctrl+v) получил ошибку)
вот и когда я пытался конвертировать эту строку в целое число происходила ошибка)... хотя и компилятор указывал не на эту строку)

вобщем... извните... просто пишу программу уже не один час.. и мозг уже почти на автомате...)))

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор