Delphi 7 的 quine

这道题，主要考察输出能力。 大家不会做很正常，大家可以看看题解，取取思路，注意：putchar(10); == putchar('\n');//即输出回车 putchar(34); == putchar('"');//即输出"不说废话 题解

==================================================================== Setup Datasource ==================================================================== TcxScheduler -> TcxSchedulerDBStorage -> TDat

program Project1;{$APPTYPE CONSOLE}uses SysUtils;var str: string;{ Result := x + y }function add1(x, y: Integer): Integer;begin asm mov eax, x add eax, y mo

 [design time]ClientDataSet.CreateDataSet error - Invalid Field Type : (solution: restart Delphi)-------------------------------Can not use TDateSet.Locate to locate DateTime Field------------

//0.Search Manual: TcxCustomDataController.ForEachRow //1. set properties for multi-selection---------------------------------------------------------- MainGridView.OptionsSelection.MultiSelect := t

 -- the source of the problem: use the datetime field value to locate the record -- the particular SQL statement generated by delhpi ADOExpress exec sp_executesql Ndelete from test_table where sequ

from HK_CLS_ROOT/CLSID/try locate at HK_CLS_ROOT/CLSID and search string  

{When user click button, a window will showup with a Animate, progressbar, and a updated time label;} unit fMain;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Co

Problem: InvoiceHeader.Total = sum(InvoiceDetail.ItemTotal)how to write a function to auto sum up ItemTotal//1. add TcxGridDBTableSummaryItemclick cxGrid1DBTableView1.DataController.Summary.FooterSu

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btnGo: TButton; edtTitle

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; OpenDialog

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Contnrs, StdCtrls;type  TMapEntry = class    Key: string;    Value: TObject;    construct

var OLEObj: OleVariant;  OLEObj := CreateOleObject(ADOX.Catalog);  OLEObj.Create(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/new.mdb);  OLEObj := NULL;{find ADOX.Catalog library referenc

//sample data            Properties.Buttons =               item                Default = True              end>            Properties.Buttons =               item                Default = True   

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdGlobal;type TForm1 = class(TForm) btnStart: