| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 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 | 31 |
- 구형 개발용 컴퓨터에 딱이다
- 40종 언어지원
- 파이썬IDE
- 윈도우
- 멀티OS IDE
- 아직까지 공부중
- 웹개발IDE
- 파이썬
- 큐비트럭
- 편집기보다 좋다
- 자동완성만 써봐도 괜찮음
- 메보장보다 좋다
- 델파이
- 여러 OS지원
- 멀티OS
- 강릉
- 초경량 ide
- 지니 ide
- 설악산
- Pyside2
- 편집기보다는 좋다
- 데비안
- QT GUI
- 여행
- 구형 노트북 IDE
- Python
- geany ide
- 프로그래밍
- 편집기 같은 IDE
- 40종 언어 지원
- 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..