Delphi操作XML的技巧
Delphi操作XML是很方便的，主要有两种方法；
1.用TClientDataSet操作XML；TClientDataSet是个好东西，用它操作XML是很简单的事，不过缺点是只能操作固定格式的 XML，它适合操作表结构的数据，如果你需要把数据表导出成XML那用TClientDataSet是个好主意，比如下面是一个数据集导出成XML的方 法：
procedure ExportToXML(SrcDataSet:TDataSet;const XMLFileName:String);
var tmpCds:TClientDataSet;
i:integer;
NewField:TFieldDef;
begin
SrcDataSet.DisableControls;
tmpCds:=TClientDataSet.Create(nil);
try
for i:=0 to SrcDataSet.FieldCount-1 do
begin
NewField:=tmpCds.FieldDefs.AddFieldDef;
NewField.Name:=SrcDataSet.Fields[i].FieldName;
NewField.DataType:=SrcDataSet.fields[i].DataType;
NewField.Size:=SrcDataSet.Fields[i].Size;
end;
tmpCds.CreateDataSet;
if tmpCds.Active then tmpCds.LogChanges:=False;
SrcDataSet.First;
while not SrcDataSet.Eof do
begin
tmpCds.Append;
for i:=0 to SrcDataSet.FieldCount-1 do
tmpCds.FieldByName(SrcDataSet.Fields[i].FieldName).Value:=SrcDataSet.Fields[i].Value;
tmpCds.Post;
SrcDataSet.Next;
end;
tmpCds.SaveToFile(XMLFileName);
finally
SrcDataSet.EnableControls;
tmpCds.Free;
end;
end;
2.还有一种方法就是用TXMLDocument了，TXMLDocument很灵活，因此操作起来有点麻烦，特别是XML树很深的时候。不过 Delphi给我们提供了更方便的方法，使我们更加简单的操作XML，这个方法就是XML Data Binding向导，XML Data Binding向导会把XML的节点映射成对象，从而使我们更方便的操作它们。下面是一个XML Da
相关文档：
以Caps Lock键举例，其它(VK_NUMLOCK),类同：
判断状态：
方法1
Level: integer;
Level := GetKeyState(VK_CAPITAL);
if Level = 0 then
//没亮
else
//亮了(1)
方法2
KeyState : TKeyBoardState;
GetKeyboardState(KeyState);
if KeySt ......
公司的餐饮系统出品的助记码，还没实现自动从出品名称获取汉字拼音首字母。
所以在网上找了三种解决方法，
一种是kaguo 的使用常用汉字拼音查找方法，这种代码十分简单，实现方便，但是这种代码仅仅是一级字库，只支持三千零几个字的。
//获取中文字串的声母� ......
inkfish原创，请勿商业性质转载，转载请注明来源（http://blog.csdn.net/inkfish
）。
PropertySet（来源：http://blog.csdn.net/inkfish）
是由opensymphony组织开发的的一个开源项目，但是那个项目文档少，长时间没有更新，官方文档错误奇多，所以现在在项目中使用并不广泛。但这并不妨碍PropertySet成为一个� ......
目前在使用DOM和dom4j对XML文件进行增删改查，如果我在同一个线程中做多次增删改操作，如何保证DOM内存同步和物理文件同步？又如何清理在内存中已加载的数据？
问题补充：
你说的这种就是很单纯的在一个线程中执行所有的操作，如果我是在单线程中操作，每做一次增删改查的一种，我都要保存到文件中去，如：
第一次：增� ......
1.防止刷新时闪烁的终极解决办法
{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }
Perform($000B, 0, 0); //锁屏幕 防止闪烁
// 做一些会发生严重闪烁的事情..
//解锁屏幕并重画
Perform($000B, 1, 0);
& ......
