[r2]: / voljsk-tec2 / Db_Structs / _StrToSqlEscBuffer / svnobj  Maximize  Restore  History

Download this file

22 lines (22 with data), 2.2 kB

Gx_la!0…jüo8ÚÎÎj\™u¼System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
8IF str=0 THEN RETURN; END_IF//calc len‚IF len=0 THEN WHILE str^[len]<>0 DO len:=len+1; END_WHILE; END_IF,size := buffer.Size(); //reserve buffer8buffer.Resize(size+len*2+1);d//add escape symbols and insert result into buffer´len:=DINT_TO_UDINT(StrToSqlEscStr(buffer.GetStringPtr()+size,len*2+1,str^,len,charsetDB)); //set real size XIF UDINT_TO_DINT(len)<0  THEN len:=0; END_IF0buffer.Resize(size+len);InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}BMETHOD PRIVATE _StrToSqlEscBufferVAR_INPUT6  str  : POINTER TO STRING;  len  : UDINT;END_VARVAR   size : UDINT;!ÐÐÐEÐÐ	
­/ÚÐ-
ÐÐ	
­0ÚÐ-ÐÐ	
­1ÚÐ-ÐÐ	
­2ÚÐ-ÐÐ	
­3ÚÐ-ÐÐ	
­4ÚÐ-ÐÐ	
­5ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­7ÚÐ-ÐÐ	
­8ÚÐ-ÐÐ	
­ÚÐ-ÐÐE	ÐÐ	
­'ÚÐ-ÐÐ	
­(ÚÐ-ÐÐ	
­)ÚÐ-ÐÐ	
­*ÚÐ-ÐÐ	
­+ÚÐ-ÐÐ	
­,ÚÐ-ÐÐ	
­-ÚÐ- ÐÐ	
­.ÚÐ-ÐÐ	
­ÚÐ-!