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

청구시에 심사에 도움이 되는 참고자료를 기재하여서 같이 청구해야 하는 경우가 있습니다. ​ 과거 수기 청구시에는 환자의 데이터 ( 간장약 시용시 간기능 검사 결과지 ) 를 직접 첨부하여 청구 하였다는 말을 들은 적이 있는데, 이제는 다행히도 청구서에 참고자료를 메모로 입력하면 이를 대부분 인정하고 특별한 경우에만 심평원에서 추가 자료를 요청하고 있는 것 같습니다. 이런 참고자료를 적는 공간이 과거에는 '명세서 기재메모 ' 였습니다. 그러나 2006년부터 이런 용어는 사라지고, 이를 '특정내역' 이라고 말하고 그 내용을 세분화 하였습니다. 1. 특정내역 이란 ​'특정내역' 은 1) 명세서단위 특정내역 ( M____ 로 표시 ) 2) 진료내역 줄번호단위 특정내역 ( J____로 표시 ) 3) 처방내역 줄번호..

ReplaceText(INSERT, UPDATE 등 쿼리,'''',''''''); 델파이에서 MSSQL로 홑따옴표가 포함된 문자열을 넣기 위해서는, 홑따옴표를 쌍으로 맞추어 넣어야 한다.

uses Windows procedure TForm1.Button3Click(Sender: TObject); var pWnd : THandle; begin ShowMessage(IntToStr(FindWindow('폼의 클래스명(Ex. TfrmXXX)', nil))); end; FindWindow는 특정 폼이 실행중이면 0이 아닌 값, 실행중이 아니면 0을 리턴한다. 자신의 실행파일 내에 있는 폼이 아니라, 다른 실행파일에서 실행된 폼이어도 동작한다.

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컬럼까지 읽는다.

FormatFloat('##,###,##0', value); 리턴 값은 string이며, value는 실수 타입이다.

프로그래스바의 동작방식은, 루프를돌며 1씩 증가시켜주는 것이다. 프로그래스바의 처음(Position)과 끝(Max)을 각각 정하고, 어떠한 작업이 끝날 때 마다(루프가 한번 돌 때 마다) Position을 1씩 증가시키면 된다. procedure TForm1.Button4Click(Sender: TObject); var iRow : Integer; begin prg.Position := 0; prg.Max := 10000; for iRow := 0 to 10000 - 1 do begin prg.Position := prg.Position +1; end; end;

C#의 Split 가능과 같은 기능을 하는 함수이다. function TForm1.Split(from, delimiter: string): TStringList; var P, dl, fl: integer; begin Result := TStringList.Create; dl := Length(delimiter); fl := Length(from); repeat P := Pos(delimiter, from); if P = 0 then P := fl + dl; Result.Add(copy(from, 1, P - 1)); from := copy(from, P + dl, fl); fl := Length(from); until fl = 0; end;

콤보박스 사용 시 콤보박스 자체의 크기는 작지만, 내부 항목의 길이는 넓은 경우가 있다. 이 때, 방법은 콤보박스 자체의 크기를 늘리면 되지만, 콤보박스가 올라가는 폼에서 공간이 협소해 콤보박스 자체의 크기를 늘리기 어려울 때가 있다. 이 때, 콤보박스의 크기는 그대로 두고, 내부 아이템의 크기만 늘리는 방법이다. 적용 전과 후의 차이는 다음 캡쳐와 같다. 소스는 다음과 같다. procedure TForm1.ComboBox_AutoWidth(const theComboBox: TAdvComboBox); const HORIZONTAL_PADDING = 15; var itemsFullWidth: integer; idx: integer; itemWidth: integer; begin itemsFullWidth ..