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