- 博客(4)
- 资源 (17)
- 收藏
- 关注
原创 QuickReport转JPEG
procedure TForm1.btnPrintClick(Sender: TObject);var E: TMetaFile; B: TBitmap; MyJpg: TJPEGImage; I, N: Integer; FN: FileName;if sdgJpg.Execute thenbegin N := QRpreview1.Q
2007-06-04 14:15:00 681
原创 判断某字符串中是否有中文
//判断s中是否有中文字符function HaveChi(s:string):Boolean;var I:integer;begin result:=false; for I:=1 to Length(s) do if ByteType(s,I)= mbLeadByte then begin result:=true; exit; end;end
2007-06-04 13:41:00 387
原创 StringGrid右对齐
//設置StringGrid1的右對齊(第一欄除外)procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState);var CellStr: string; Mode: integer;begin if Ar
2007-06-02 17:18:00 1202
delphi jpeg.pas
2012-05-04
Pascal精要-delphi的基础
2009-02-20
井拾贰图片格式转换软件V1.1
2007-11-23
井拾贰自动关机软件V1.1
2007-11-23
井拾贰图片格式转换软件V1.0
2007-10-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人