Автор: Сергей
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;