Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
story.gif
Очистка SQL от ошибок синтаксиса.
 
Работа с текстами ASD написал "Процедура по очистке SQL по запросу SELECT от ошибок синтаксиса.


procedure SQLCleaner;
var
newSql:string;
begin
newSql:=Query1.SQL.CommaText;
while (pos('WHERE AND',newSQL))0 do begin
delete(newSQL,pos('WHERE AND',newSQL)+6,3);
end;
while (pos('WHERE Order by',newSQL))0 do begin
delete(newSQL,pos('WHERE Order by',newSQL),5);
end;{ASD}
while (pos('WHERE AND',newSQL))0 do begin
delete(newSQL,pos('WHERE AND',newSQL)+6,3);
end;
while (pos('Order by ,',newSQL))0 do begin
delete(newSQL,pos('Order by ,',newSQL)+9,1);
end;
if (pos('WHERE',newSQL)+8)>(length(newSQL)) then delete(newSQL,pos('WHERE',newSQL),5);
if (pos('Order by',newSQL)+11)>(length(newSQL)) then delete(newSQL,pos('Order by',newSQL),8);
Query1.Clear;
Query1.SQl.Add(newSql);
end;"
 
Разместил 19/12/2004 от rolcom ( Прочитано: )

  blocks.gif
Связанные ссылки
 

· Больше про Работа с текстами
· Новость от rolcom


Самая читаемая статья: Работа с текстами:
О том, как вращать текст, с помощью Delphi

 
blocks.gif
Рейтинг статьи
 

Средняя оценка: 5
Ответов: 1


Пожалуйста, проголосуйте за эту статью:

Отлично
Очень хорошо
Хорошо
Нормально
Плохо


 
blocks.gif
опции
 


 Напечатать текущую страницу  Напечатать текущую страницу

 Отправить статью другу  Отправить статью другу

 
 

Page generation 0.036 seconds