关于Delphi的时间格式，图片处理的一些常用操作

1、delphi 将字符串转换为时间，可以通过TFormatSettings;类来设置：

               FSetting.ShortDateFormat := 'yyyy-MM-dd';
              FSetting.DateSeparator := '-';
              DateTime1 := StrToDate(CurrDate, FSetting);

注意： "CurrDate" 长度要与 ShortDateFormat 格式对应。

2、图片格式转换
var
    JPGImage: TJPEGImage;
  MemoryStream: TMemoryStream;
Image1: TImage;

begin
 JPGImage := TJPEGImage.Create;
//  AdvPicture := TAdvPicture.Create(Self);
//  AdvPicture.Parent := Self;

  Image1 := TImage.Create(Application);

  MemoryStream := TMemoryStream.Create;

  Image1.Picture.Bitmap.LoadFromFile(JPGFilePath);

  JPGImage.Assign(Image1.Picture.Bitmap); // 图片格式转换  modified by wuzguo  2013-12-17 14:23

   JPGImage.CompressionQuality := DM_SCALE;
   JPGImage.Compress;

    if not JPGImage.Empty then
    begin
         MemoryStream.Clear;
          JPGImage.SaveToStream(MemoryStream);
         //  AdvPicture.Picture.SaveToStream(MemoryStream);
          MemoryStream.Position := 0;    
         ParamByName('Content').LoadFromStream(MemoryStream, ftBlob);
 
     end
         

转载于:https://my.oschina.net/yyangwu/blog/307994