//1.打开目录和打开txt文件 procedure TMainForm.bbtnOpenLoClick(Sender: TObject); var sLogName: string; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime('yyyy-mm-dd',date())+'.txt'; if not FileExists(sLogName) then begin MessageBox(0, '今日无错误日志!', '提示', M
Delphi 打开串口与关闭串口 procedure TForm1.btn1Click(Sender: TObject); begin cm1.CommName:=cbb1.Text; cm1.BaudRate:=strtoint(cbb2.Items[cbb2.ItemIndex]); case cbb3.ItemIndex of :cm1.ByteSize:=_5; :cm1.ByteSize:=_6; :cm1.ByteSize:=_7; :cm1.ByteSize:=_8; end; c
Table of Contents1. Delphi XE Starter IDE 1Delphi and C++Builder ....................................................................... 1 2007版的时候,IDE称为RAD Studio,并包括一个Delphi for .NET个性. 2009版的时候,Delphi for .NET被Delphi Prism for .NET代替,IDE保留了 Delphi