| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
- 델파이
- 프로그래밍
- 40종 언어지원
- 파이썬IDE
- 설악산
- 여러 OS지원
- 편집기보다 좋다
- geany ide
- QT GUI
- 구형 개발용 컴퓨터에 딱이다
- 멀티OS
- 데비안
- 지니 ide
- 아직까지 공부중
- 구형 노트북 IDE
- Pyside2
- 자동완성만 써봐도 괜찮음
- 40종 언어 지원
- 강릉
- 큐비트럭
- 초경량 ide
- 편집기보다는 좋다
- 멀티OS IDE
- Python
- 메보장보다 좋다
- 파이썬
- 편집기 같은 IDE
- 웹개발IDE
- 여행
- 윈도우
- Today
- Total
목록델파이 (2)
아브아카의 세상 빼꼼 바라보기
Natural Order가 무엇이냐하면 윈도우 탐색기의 정렬방식이다.A1 A2 A10 B2 B21 B10 이것을 정렬하면 사전식순이다. Stringlist.Sort로 정렬하는 방법이다.A1A10A2B10 B2B21 Natural Order순은 숫자부분을 크기순으로 정렬한다. A1A2A10B2B10B21 구글에 Delphi Natural Order로 검색해보니 C소스를 국내에 번역해놓은 분이 계셨다. 이것을 Stringlist CustomSort에 붙여봤다. function NaturalOrderCompareString( const A1, A2: string; ACaseSensitive: Boolean ): Integer; var Str1, Str2: PChar; Pos1, Pos2: Integer; En..
var StartingPoint : TPoint; implementation ... procedure TForm1.FormCreate(Sender: TObject) ; begin ListBox1.DragMode := dmAutomatic; end; procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); var ListBox: TListBox; i, TargetIndex: Integer; SelectedItems: TStringList; begin Assert(Source=Sender); ListBox := Sender as TListBox; TargetIndex := ListBox.ItemAtPos(Point(X, Y), Fa..