ClientDataSet. Удалить запись

[Janger]

Товарищи!!!
Очень надеюсь на вашу помощь... Весь инет облазил, ничего толкового найти не смог, на форумах разных сайтов спрашивал... Тоже, никто ничего не знает...Последняя надежда на вас...
---------------------------------------------
Суть, у меня в ListBox строки, которые сохранены в XML-документе. К которому я подключаюсь через ClientDataSet.
Как мне удалить выделенную строку в ListBox из XML.
Я нашёл такую вещь:

ClientDataSet1.DeleteIndex();

В скобках нужно указывать какое то значение типа String.
Я предположил, что можно сделать так:

ClientDataSet1.DeleteIndex(ListBox1.Items.Strings[ListBox1.ItemIndex]);

Но я ошибся, при удалении строки, программа мне выдала ошибку ("Index does not exist").
----------------------------------------
Ещё увидел такой код:

ClientDataSet1.Delete;

но в данном случае, удаляется самая последняя запись введённая в XML
=================
Подскажите что мне делать... Вообще не знаю как из этой ситуации выкрутиться

[DarkEvil]

ClientDataSet1.RecNo := ListBox1.ItemIndex;

[Janger]

Сообщение от DarkEvil

ClientDataSet1.RecNo := ListBox1.ItemIndex;

Ни какой реакции нету...

[Janger]

ТАК.....!!!!!
Я решил проблему...!!!!

procedure TForm1.Button3Click(Sender: TObject);
begin
ClientDataSet1.First;
while not ClientDataSet1.eof do
begin
    if ClientDataSet1.FieldByName('Text').AsString = ListBox1.Items.Strings[ListBox1.ItemIndex] then
       ClientDataSet1.Delete;
    ClientDataSet1.Next;
end;
end;

Но теперь появилась другая проблема...
Строка удаляется не сразу... А только после перезапуска программы.

ClientDataSet1.Active:=false;
ClientDataSet1.Active:=true;

не приносит должного эффекта.
ммм... будем думать

[DarkEvil]

Удаляется не сразу в листбоксе?
или в хмл-ке?

[Janger]

Понимаю, что сделал криво....
Но хоть работает...
В общем вот так я сделал, для того что бы строки сразу пропадали...
==1-ый код==

procedure TForm1.Button3Click(Sender: TObject);
begin
ClientDataSet1.First;
while not ClientDataSet1.eof do
begin
    if ClientDataSet1.FieldByName('Text').AsString = ListBox1.Items.Strings[ListBox1.ItemIndex] then
       ClientDataSet1.Delete;
    ClientDataSet1.Next;
end;
FormActivate(Self);
end;

Я одну строчку добавил... Ну и код, самой FormActivate
==2-ой код==

procedure TForm1.FormActivate(Sender: TObject);
begin
ListBox1.Clear;
ClientDataSet1.First;
while not ClientDataSet1.eof do
begin
    ListBox1.Items.add(ClientDataSet1.FieldByName('Text').AsString);
    ClientDataSet1.Next;
end;
end;

Ну вот в принципе и всё.
Возможно кто то тоже натолкнётся на данную проблему... Я в основном для таких людей написал
Всем спасибо большое, тему можно закрывать.

[Janger]

Сообщение от DarkEvil

Удаляется не сразу в листбоксе?
или в хмл-ке?

Ни там, ни там, ничего не происходит. Оба элементы не меняются при перезагрузки программы.
Я в принципе решил проблему. Возможно громозко, но тем не менее, работает так как я хотел бы

[DarkEvil]

Вы наверное о DBListBox не слышали или DBGrid

[Janger]

Сообщение от DarkEvil

Вы наверное о DBListBox не слышали или DBGrid

Ааа...
Вы тут абсолютно правы.
Если использовать DBGrid+DBNavigator+DataSourse+Clien tDataSet
Вообще идеально получится. И никаких заморочек вообще нету!
Вот только мне не по душе вид DBGrid.
Ну не нравится он мне вообще

[DarkEvil]

Просто его помойму сделать так как будет "нравится" куда проще чем усложнять себе жизнь. Кстате FormActivate не выход, лучше уже использовать AfterDelete у датасета