Если выделить строку, то работает все нормально. Сделал поиск строки в подстроке,
пробегаем по значениям в столбце, если в строке встречается слово "ЗНАЧЕНИЕ", то
пропускаем, иначе - удаляем. Как сделать так, чтобы не надо было каждый раз выделять строку в DBGrid'e для сравнения.

Код

void __fastcall TForm1::Button5Click(TObject *Sender) { char str[50]; char *str1 = Table1->Fields->Fields[14]->AsString.c_str(), *str2 = "ЗНАЧЕНИЕ", *ptr; OemToChar(str1, str1); ptr = strstr(str1, str2); OemToChar(ptr, str); Table1->Next();         if(ptr){         ShowMessage("Совпадает - пропускаем");         }         else         {         Table1->Edit();         Table1->Fields->Fields[14] = 0;         Table1->Post();         } }

Вот сам все сделал, но скорость.... оставляет желать лучшего даже без DBGrid. Можно как-нибудь увеличить скорость?

Код

void __fastcall TForm1::Button6Click(TObject *Sender) { char str[50]; char *str2 = "ЗНАЧЕНИЕ", *ptr; for(int i=0; i<Table1->RecordCount; i++){ char *str1 = Table1->Fields->Fields[14]->AsString.c_str(); OemToChar(str1, str1); ptr = strstr(str1, str2); OemToChar(ptr, str);         if(ptr){         // другие действия         }         else         {         Table1->Edit();         Table1->Fields->Fields[14] = 0;         Table1->Post();         } Table1->Next(); } }

А почему не ипсользовать родные функции класса AnsiString?
AnsiCompareText например.

Я не совсем понял что означает эта запись???

Цитата

Код         Table1->Edit();         Table1->Fields->Fields[14] = 0;         Table1->Post();

Fields[14] возвращяет тебе тип TField * (или TField точно не помню) и ты присваеваешь ему ноль..
Если тебе надо из базы удалить или обновить тогда пиши на SQL чего ради ты циклом делаешь? Используй LIKE он тебе поиск подстроки обеспечит (не забываем про %). А в остальном из вопроса мне ничего не ясно...Что именно ты удаляешь? Ты вроде UPDATE делаешь? С одной стороны ты ишешь строку с другой стороны присваеваешь тому же 14-ому полю значение int...

Вобщем если можно поподробнее...
Добавлено @ 11:41
Кстати для поиска в TTable есть функция Locate..

а зачем так делать?
для того щапросы и придумали, чтобы самому с поискрм не заморачиваться...

Цитата(azesmcar @ 3.1.2006, 11:40)

Если тебе надо из базы удалить или обновить тогда пиши на SQL чего ради ты циклом делаешь?

Да я хотел просто перевести код с VB на С++ Builder. На VB6 скорость раз в 100 больше, чем на С++ Builder:

Код

Private Sub cmdStart_Click() Dim flag As Boolean ProgressBar1.Min = 0 ProgressBar1.Max = Data1.Recordset.RecordCount - 1 Dim i As Long For i = 0 To Data1.Recordset.RecordCount - 1 flag = True ProgressBar1.Value = i       Dim j As Long     For j = 0 To List1.ListCount - 1         If InStr(Data1.Recordset.Fields(14), List1.List(j)) > 0 Then flag = False     Next j     If flag Then                  Data1.Recordset.Edit         Data1.Recordset.Fields(14) = ""         Data1.Recordset.Update          End If      Data1.Recordset.MoveNext Next i End Sub

Приведенный код удаляет из определенного столбца все значения кроме тех которые выбраны пользователем:

если в столбце "13212333 ЗНАЧЕНИЕ 324"
"4565 ДРУГОЕ 435435543"
"56345 ТРЕТЬЕ 545435555"

а надо удалить все, кроме тех, которые выбраны в ListBox'е: например в ListBox указано "ЗНАЧЕНИЕ".

Цитата(sexton @ 3.1.2006, 11:30)

А почему не ипсользовать родные функции класса AnsiString? AnsiCompareText например.

Она:

Цитата

Compares AnsiStrings based on the current Windows locale without case sensitivity. Unit Sysutils Category string handling routines extern PACKAGE int __fastcall AnsiCompareText(const AnsiString S1, const AnsiString S2); Description AnsiCompareText compares S1 to S2, without case sensitivity. The compare operation is controlled by the current Windows locale. AnsiCompareText returns a value less than 0 if S1 < S2, a value greater than 0 if S1 > S2, and returns 0 if S1 = S2.

Ладно попробую.

Ну делай так, мало ли кто что написал на Бейсике...

Код

UPDATE MY_TABLE SET FIELD_14='' WHERE FIELD_14 LIKE '%ЗНАЧЕНИЕ%'

А если циклом то примерно так будет правильней

Код

Table1->Edit(); Table1->Fields->Fields[14].AsString = ""; //тут точно не помню или так или //Table1->Fields->Fields[14]->AsString = ""; Table1->Post();

Но не думаю что пробегаться циклом по всем полям xорошая идея...делай функцией Locate

Код

while (Locate(...)) {    Table1->Edit();    //...    Table1->Post(); }

Должно быть намного быстрее