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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Сергей

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;

{/codecitation}

Добавить комментарий