Преобразование строки в строку для SQL-сервераDelphi , Базы данных , MSSQLПреобразование строки в строку для SQL-сервера
Автор: Сергей { **** 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; Статья описывает функцию в языке Delphi, предназначенную для преобразования строки в строку, готовую к использованию в SQL-сервере. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |