Помогите разобраться(с таблицами). Delphi.

[Vindigo]

Вот делаю тест на делфях (прога для создания теста) данные хранятся в XML-табличке. Вопрос собственно в чем: при желании отредактировать табличку посредством моей программы(в частности удалить запись) она то удаляется-в редакторе ее не видно,а вот при просмотре самой xml-таблицы (в блокноте) данные есть... приложу архив с исходником редактора и таблицей. посмотрите и подскажите как это все таблички убрать.

[Sibedir]

Прикол.
У меня тоже самое, но что самое интересное, только с теми записями, в которых есть русские буквы.
А вообще, это что сильно мешает? Мож и так сойдет.

[Vindigo]

Да я то конечно поробую, может и сойдет) Еще вопрос добавился: КАК посчитать в этом редакторе количество вопросов мною введенных(это нужно чтоб использовать в самом тесте) так как я думал (ввести вручную ) не вышло. мне нужно чтоб это значение было одно на всю таблицу, а не для каждой записи

[Sibedir]

Всмысле, кол-во записей?

ClientDataSet1.RecordCount

[Vindigo]

ClientDataSet1.RecordCount

Это вот куда встроить надо? на сохранение записи или на выход из проги?

еще вопрос: вот посчитает он мне колич-во записей. нужно как-то сохранить это число в этой табличке и прочитать его из клиентской части(т.е. самого теста). как это сделать?

[Vindigo]

Я все еще не разобрался... я могу посчитать колич-во записей в таблице. как мне сделать так чтоб это значение сохранилось в таблице чтоб я его мог вызвать из другой проги использующей эту таблицу?

[Vindigo]

Бьюсь головой об стену из-за своей тупизны ... всего-то надо было во втором проекте использовать так же как и в первом вот эту вещь: 1.ClientDataSet1.RecordCount

Следующий вопрос: как сделать так чтоб при запуске программы данные из таблицы выцбирались не по порядку а случайно(но без повторений)...

[Sibedir]

var
  a: array of Integer;
  i, a1, r1, r2, l: Integer;
begin
  l := ClientDataSet1.RecordCount;
  SetLength (a, l);
  for i := 0 to l-1 do a[i] := i;
  Randomize;
  for i := 0 to l*5 do begin
    r1 := Random (l);
    r2 := Random (l);
    a1 := a[r1];
    a[r1] := a[r2];
    a[r2] := a1;
  end;
  for i := 0 to l-1 do begin
    ClientDataSet1.First;
    ClientDataSet1.MoveBy (a[i]);
    {Что-то делаем с нашей записью}
  end;
end;