Очистка SQL от ошибок синтаксиса.
Дата: 19/12/2004
Тема: Работа с текстами


Процедура по очистке 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;





Это статья Delphirus
http://www.delphirus.com.ru

URL этой статьи:
http://www.delphirus.com.ru/modules.php?name=News&file=article&sid=131