各网友提交的 QC: 官方网址 说明 备注 https://quality.embarcadero.com/browse/RSP-12985 iOS device cannot use indy idHTTP read a web page content using zlib compression   https://quality.embarcadero.com/browse/RSP-13018 input special unicode Chinese character in TEdi…

http://www.cnblogs.com/railgunman/archive/2010/08/16/1801004.html Delphi关于记录文件的操作   本例子几个变量的说明TFileRec = record //记录定义Day : Integer;... //其他定义end;f : File of TFileRec;  //标准的输入/输出文件FilRec : TFileRec;    //记录数据FileName ;             //记录文件的名称关于记录文件的相关…

Delphi很早就建立了quality.embarcadero.com,简称为QC,质量控制中心,用来接收用户反馈的bug,新功能建议等,是开发者与delphi官方直接交流的平台.无论是否为正版用户,都可以注册账号并反馈bug. 不论你是delphi开发者还是喜欢者,粉细,如果还没有注册为QC的成员,真是件遗憾的事情,或者说,不是一名合格的Delphi fans. 我也是最近才喜欢这个QC的,这得感谢老猫,是他通过提交bug才引我去关注QC的,并且越用越喜欢.为什么呢? 第一,经常浏览QC,你会…

1. 起源 此问题源于[秋风人事档案管理系统]用Delphi XE重编译中所发现. 快十年了,当初Delphi 7所编写项目,想用Delphi XE重新编译,并打算做为Free软件发布,编译错误中发现此问题,感觉颇有些意思,遂记录下来,以做备忘. 自Delphi 2009之后我转做c#之WinForm界面开发,Delphi 2010之后未实际做过项目,因此至此才遇到此问题. 此时Delphi XE更新已至XE10版.因情结而不愿XE2之后的use方法,遂决定以Delphi XE做为工具,重整老项…

DBGrid1.DragMode   :=   dmManual;//留意这个设置不要变 procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); procedure TForm18.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);begincase   Msg.message   of          WM_LBUTTO…

Delphi XE10支持MongoDB的数据库,提供了个例子restaurants可批量导入数据. 本文对比Delphi例子与MongoDB自带的mongoimport导入批量数据的性能. 步骤: 1.运行例子前需要先安装MongoDB, MongoDB安装及运行mongod.exe,安装完成后bin目录中有mongoimport.exe,可将json批量数据导入到数据库中. 2.Delphi MongoDB例程数据库保存在: C:\Users\Public\Documents\Embarca…

Logs记录-函数实现MsgDsp 大多数时候,我们不太希望消息以交互的形式出现,这个时候我们可以在窗体上放置一个Memo,然后单独开一个线程进行监视,从而实现把消息实时的显示出来,便于开发者分析. 关键代码如下: procedure TFrmMain.MsgDsp(v_Str: string); begin mm_log.Lines.Add('[' + SYS_USERNAME + '] - [' + v_Str + '] - [' + FormatDateTime('YYYY-MM-DD h…

type personInfo=Record //定义Record Name:String[10]; Age:integer; end; //写记录包括新键与添加记录 procedure WriteRec; var NewRec:PersonInfo; //声明Rec变量 F:File of PersonInfo; //Rec型文件变量 RecFileName:ShortString; //保存Rec的文件全名 RecCount:integer; //Rec数量 begin NewRec.Nam…

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) btn1: TButton; edt1: TEdit; edt2: TEdit; btn2:…

PPersion=^TPersion;  TPersion=packed record     Name:string;     Sex:string;     Clasee:string;  end; var  persion:TPersion;  PP:PPersion; begin FillChar(persion,SizeOf(TPersion),0);   persion.Name:='liujicai ';   persion.Sex:='2';   persion.Clasee:=…