C#,Delphi,Oracle,MSSQL 개발자블로그

uses DateUtils, System procedure TForm1.Button10Click(Sender: TObject); var dte1,dte2:TDateTime; begin dte1 := StrToDate('2019-09-24'); dte2 := StrToDate('2019-09-30'); ShowMessage(IntToStr(DaysBetween(dte2, dte1))); end; DaysBetween(TDateTime,TDateTime)는 두 날짜사이의 차를 일수로 구한다. 앞과 뒤 파라미터 중 어느 값이 작고 큼에 관계없이 양수를 반환한다.

레지스트리를 지울 땐 델파이를 모두 닫고 진행한다. procedure ClearRecentlyOpenedProjects; var iCount : Integer; Reg : TRegistry; sList : TStrings; begin sList := TStringList.Create; Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('\Software\Borland\BDS\5.0\Closed Projects', True) then Reg.GetValueNames(sList); if sList.Count > 0 then begin for iCount := 0 to Pred(sList.Count) do Reg.Dele..

ColCount : Hide 컬럼을 읽지 않는다. Columns.Count : Hide컬럼까지 읽는다.