//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版得到的字符串须经过Utf8ToAnsi()转码才能跟C#版得到的字符串显示结果一致. //Delphi版: function HexToStr(str: string): string; function HexToInt(hex: string): integer; var i: integer; function Ncf(num, f: integer): integer; va
select cast(a.Vchcode as int) as avchcode,a.ptypeid,a.assqty,unit,b.pfullname,b.standard,b.type from ldtdlysale a left outer join ldtptype b on a.ptypeid = b.ptypeid cast(a.vchcode as int)-------------就是他了
Problem Description 度度熊为了完成毕业论文,需要收集一些数据来支撑他的论据,于是设计了一份包含 mm 个问题的调查问卷,每个问题只有 'A' 和 'B' 两种选项. 将问卷散发出去之后,度度熊收到了 nn 份互不相同的问卷,在整理结果的时候,他发现可以只保留其中的一部分问题,使得这 nn 份问卷仍然是互不相同的.这里认为两张问卷是不同的,当且仅当存在至少一个被保留的问题在这两份问卷中的回答不同. 现在度度熊想知道,存在多少个问题集合,使得这 nn 份问卷在只保留这个集合的问题
//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版字符串事先须经过AnsiToUtf8()转码才能跟C#版得到的十六进制字符串显示结果一致. Delphi版: function StrToHex(AStr: string): string; var i : Integer; ch:char; begin Result:=''; to length(AStr) do begin ch:=AStr[i]; Result:=Result+
这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个. //函数: function ToUTF8Encode(str: string): string; var b: Byte; begin for b in BytesOf(UTF8Encode(str)) do Result := Format('%s%%%.2x', [Result, b]); end; //测试: var str: string; begin str := '
assume cs:code data segment db 'conversation' data ends code segment start: mov ax,data mov ds,ax call capital mov ax,4c00h int 21h capital: and byte ptr [si],11011111b inc si loop capital ret code ends end start