Автор: Сергей
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование строки в строку для SQL-сервера

Преобразование строки в строку для SQL-сервера

Зависимости: ???
Автор: Сергей, nfkazak@inbox.ru, Краснодар
Copyright: VIP BANK
Дата: 11 сентября 2002 г.
***************************************************** }

function SQL_String(Value: string): string;
var
 i: integer;
 Ch_1,
 Ch_2: Char;
 QM_1,
 QM_2: Boolean;
begin
 QM_1 := False;
 QM_2 := False;
 for i := 1 to Length(Value) do
 begin
 case Value[i] of
 '''': QM_1 := True;
 '"': QM_2 := True;
 end;
 end;
 if QM_1 and (not QM_2) then
 begin
 Ch_1 := '"';
 Ch_2 := '''';
 end
 else
 begin
 Ch_1 := '''';
 Ch_2 := '"';
 end;
 if QM_1 and QM_2 then
 begin
 for i := 1 to Length(Value) do
 if Value[i] = Ch_1 then
 Value[i] := Ch_2;
 end;
 Result := Ch_1 + Value + Ch_1;
end;