摘要： function TForm1.DecToRoman(iDecimal: integer ): string;constaRomans: array [ 1..13 ] of string = ( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );aArabics: array [ 1..13 ] 阅读全文

摘要： function Tform1.Num2CNum(dblArabic: double): string;const _ChineseNumeric = '零壹贰叁肆伍陆柒捌玖';var sArabic: string; sIntArabic: string; iPosOfDecimalPoint: integer; i: integer; iDigit: integer; iSection: integer; sSectionArabic: string; sSection: string; bInZero: boolean; bMinus: boolean; (* 将字串反向 阅读全文

摘要： the rain 久石让yesterdayishistory，tomorrowismystery，buttodayisagift，that'sitiscalledpresent 阅读全文

摘要： Delphi中关于listview的一些使用Delphi下的COM编程TStringList常用操作2010-09-06 10:01:12|分类： 编程技术 |标签：listtstringlistshowmessagebutton1tobject |字号大中小订阅//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange 阅读全文