ช่วยเดลฟีหนึ่งประโยค

1. หากคุณต้องการให้โปรแกรมของคุณจัดการกับข้อยกเว้นอย่างถูกต้อง โปรดอ้างอิงหน่วย SysUtils.pas มิฉะนั้น แม้ว่าโปรแกรมจะใช้ try ก็ตาม - - ยกเว้น. - - นอกจากนี้ยังตรวจไม่พบข้อยกเว้นอย่างถูกต้องอีกด้วย 2. วิธีการกำหนดทรัพยากรสตริงคงที่ aa='aaaa';raise Exception.CreateRes(@aa); 3. การเริ่มต้นของอาร์เรย์คงที่ของสตริง const constarray:array [0..2] ของ string=('first ', 'วินาที', 'ที่สาม');4. ประเภทการเริ่มต้นโครงสร้าง Tstructinit=record A1:integer; A2:array [0..2] ของ integer;End;Const m_structinit:Tstructinit=(A1:0;A2:(0,1,2));5. ความยาวของอาร์เรย์หลายมิติ var array2:array ของอาร์เรย์ของจำนวนเต็ม;setlength(array2,2,2) ;6 พื้นที่ที่เปิดโดยใช้ Create และ New มีอยู่ในฮีปและไม่สามารถรีลีสได้โดยอัตโนมัติ ขอแนะนำให้ใช้ FreeAndNil เพื่อรีลีสพารามิเตอร์และตัวแปรโลคัลอยู่ในสแต็กและจะถูกรีลีสโดยอัตโนมัติ 7. SizeOf ไม่เหมาะสำหรับวัตถุและคืนค่า 4 เสมอ สามารถส่งคืนได้อย่างถูกต้องสำหรับประเภทคงที่ 8. Create(nil) จะต้องเผยแพร่ด้วยตนเอง และ Create(self) จะถูกปล่อยออกมาเมื่อเจ้าของเผยแพร่ การเปลี่ยนแปลงได้รับการ กำหนดค่าของค่าคงที่ PROcedure ChangeConst(const Const;var Value;Size:Integer);begin Move((@Value)^,(@Constant)^,Size);End;10. การใช้ DownTo แบบวนซ้ำเมื่อดำเนินการลบจะหลีกเลี่ยงข้อผิดพลาด 11. รหัส Ascii ของอักขระภาษาจีนคือ >128 ซึ่งสามารถใช้เพื่อพิจารณาว่าเป็นอักขระภาษาจีนหรือไม่ 12. เมื่อเขียน dll คุณต้องใช้ หน่วย Sharemem เพื่ออ้างอิงการจัดการหน่วยความจำ BORLANDMM.DLL 13. PostMessage ใส่ข้อความไว้ในคิวข้อความเท่านั้นและจำเป็นต้องเข้าคิวเพื่อประมวลผล SendMessage ข้ามคิวข้อความและถูกส่งโดยตรงไปยังขั้นตอนของหน้าต่าง และไม่ส่งคืนจนกว่าข้อความจะประมวลผลค่าที่ส่งคืน 14. การเคลื่อนไหวของเมาส์เข้าและออกข้อความ: CM_MOUSEENTER, CM_MOUSELEAVE15 ข้อความการปิดระบบ WM_QUERYENDsession16 ActivateHint เพื่อสร้างแบบฟอร์มลอยตัว 17. นำกล่องโต้ตอบคุณสมบัติไฟล์มาใช้ ShellAPI; ฟังก์ชัน ShowFileProperties(FileName: String; Wnd: lpกริยา := PAnsiChar('คุณสมบัติ'); lpIDList := nil; lpDirectory := 0; hInstApp := 0; 0; lpClass := ไม่มี; ShellExecuteEX(@sfi);end;procedure TForm1.Button1Click(Sender: TObject);begin ShowFileProperties('c:/AA.txt', Handle);end;18. การเปลี่ยนเวลาของระบบจะใช้ Windows, Dialogs, Forms; var MyTime : TsystemTime;เริ่มต้น FillChar(MyTime,ขนาดของ(MyTime),#0); MyTime.wYear:=2003; MyTime.wMonth:=06; MyTime.wDay:=01; ถ้าไม่ใช่ SetSystem(MyTime) แล้วShowmessage('Failure'); เชือก);

 var

 ค้นหา: TSearchRec;

 Rec: คำ;

 เริ่ม

 SourceDir := SourceDir + '/';

 Rec := FindFirst(SourceDir + '*.*', faAnyFile, ค้นหา);

 ในขณะที่ Rec = 0 ทำ

 เริ่ม

 ถ้า Search.Name[1] <> '.'

 เริ่ม

 ถ้า (Search.Attr และ faDirectory) = faDirectory แล้ว

 เริ่ม

 Windows.CreateDirectory(PChar(DestinationDir + '/' + Search.Name), ไม่มี);

 FileSetAttr(DestinationDir + '/' + Search.Name, FileGetAttr(SourceDir + '/' + Search.Name));

 X_Copy(SourceDir + '/' + Search.Name, DestinationDir + '/' + Search.Name);

 จบ

 อื่น

 เริ่ม

 CopyFile(PChar(SourceDir + '/' + Search.Name), PChar(DestinationDir + '/' + Search.Name), True);

 FileSetAttr(DestinationDir + '/' + Search.Name, FileGetAttr(SourceDir + '/' + Search.Name));

 ใบสมัคร กระบวนการข้อความ;

 จบ;

 จบ;

 Rec := FindNext (ค้นหา);

 จบ;

 ค้นหาปิด(ค้นหา);

 จบ;

20. วาดขั้นตอนบิตแมปแบบโปร่งใส DrawTrans(DestCanvas: TCanvas; ; ORBitmap:= NIL; ลอง ANDBitmap:= TBitmap.Create; ORBitmap:= TBitmap.Create; Src := ขอบเขต (0,0, SrcBitmap.Width, SrcBitmap.Height); .สี := clBlack; Canvas.CopyMode := cmSrcCopy; Canvas.BrushCopy(Src, SrcBitmap, Src, AColor); จบด้วย ANDBitmap ที่จะเริ่มต้น ความกว้าง:= SrcBitmap.Width; ; Canvas.BrushCopy(Src, SrcBitmap, Src, AColor); สิ้นสุดด้วย DestCanvas CM := CopyMode := cmSrcAnd; Draw(X,Y, ANDBitmap); ANDBitmap.Free; ORBitmap.Free; end;end;ขั้นตอน TForm1.Button4Click(ผู้ส่ง: TObject);เริ่มต้น DrawTrans(Image1.Canvas, 0,0, Image2.Picture.Bitmap, clBlack, clSilver);end;21. รับฟังก์ชันความเร็วของ CPU GetCpuSpeed: Extended;var t, mhi, mlo, nhi, nlo: dword ; shr32 : คอมพ์;เริ่ม shr32 := 65536; 65536; t := GetTickCount; ในขณะที่ t = GetTickCount ทำ ; asm DB 0FH,031H // rdtsc mov nhi, edx mov nlo, สิ้นสุด eax; ((nhi * shr32 + nlo) - (mhi * shr32 + mlo)) / 1E6;end;ขั้นตอน TForm1.Button4Click(Sender: TObject);begin label1.Caption := FloatToStr(GetCpuSpeed) + 'mhz';end; เพิ่งเขียนไปเยอะมากๆ แล้วจะค่อยๆ อัพเดทและเพิ่มเติมเรื่อยๆ ครับ