Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

ÔÚdelphi 7ÖÐʵÏÖ»ñÈ¡ºº×ÖÆ´ÒôÊ××Öĸ

     ¹«Ë¾µÄ²ÍÒûϵͳ³öÆ·µÄÖú¼ÇÂ룬»¹Ã»ÊµÏÖ×Ô¶¯´Ó³öÆ·Ãû³Æ»ñÈ¡ºº×ÖÆ´ÒôÊ××Öĸ¡£
   ËùÒÔÔÚÍøÉÏÕÒÁËÈýÖÖ½â¾ö·½·¨£¬
    Ò»ÖÖÊÇkaguo µÄʹÓó£Óúº×ÖÆ´Òô²éÕÒ·½·¨£¬ÕâÖÖ´úÂëÊ®·Ö¼òµ¥£¬ÊµÏÖ·½±ã£¬µ«ÊÇÕâÖÖ´úÂë½ö½öÊÇÒ»¼¶×ֿ⣬ֻ֧³ÖÈýǧÁ㼸¸ö×ֵġ£
//»ñÈ¡ÖÐÎÄ×Ö´®µÄÉùĸµ ......

PropertySet½Ì³Ì 2.Memory¡¢map¡¢XML·½Ê½

¡¡¡¡inkfishÔ­´´£¬ÇëÎðÉÌÒµÐÔÖÊ×ªÔØ£¬×ªÔØÇë×¢Ã÷À´Ô´£¨http://blog.csdn.net/inkfish
£©¡£
¡¡¡¡PropertySet£¨À´Ô´£ºhttp://blog.csdn.net/inkfish£©
ÊÇÓÉopensymphony×éÖ¯¿ª·¢µÄµÄÒ»¸ö¿ªÔ´ÏîÄ¿£¬µ«ÊÇÄǸöÏîÄ¿ÎĵµÉÙ£¬³¤Ê±¼äûÓиüУ¬¹Ù·½Îĵµ´íÎóÆæ¶à£¬ËùÒÔÏÖÔÚÔÚÏîÄ¿ÖÐʹÓò¢²»¹ã·º¡£µ«Õâ²¢²»·Á°­PropertySet³ÉΪһ¸öÓ ......

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ

¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ¹ý³Ìµ÷ÓÃͨ¹ý¸Ã¶ÔÏó ʵÀý·ÃÎÊÊý¾Ý¿â¡£
ÐèÒªÃ÷ȷһЩ»ù±¾¸ÅÄî¡£¶ÔÓ ......

Delphi ·Ö¸î×Ö·û´®µÄ·½·¨

ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬Ë­ÖªµÀÔõÑù°Ñ¿Õ¸ñ²»ÈÏΪÊÇ·Ö¸î·ûµÄ£¿£¿ TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£ ³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£ ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º 1
ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬Ë­ÖªµÀÔõÑ ......

Delphi TObjectʵÏÖÁËÒ»¸öInstanceSize()·½·¨


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Butt ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ