목록2019/06/12 (4)
C#,Delphi,Oracle,MSSQL 개발자블로그
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 ..