zb872676223的专栏

delphi Jpg和Bitmap互转转换的方法：uses Jpeg;procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);var Bmp: TBitmap; Jpg: TJPEGImage;begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create; ...

方法一：uses IdStringsvar sl: TStringList; str: string; i: Integer;begin str := 'aa,b b,cc,dd'; sl := TStringList.Create; SplitColumns(str, sl, ',');//该函数没有上述的BUG for i := 0 to sl...