목록컴퓨터/Delphi 코딩 (3)

아브아카의 세상 빼꼼 바라보기

Delphi Lite

델파이 경량화 버전 Delphi 10.2.3 Tokyo lite 압축 패스워드 : www.51xiazai.com Delphi 10.1 Berlin update2 lite Delphi xe8 update1 lite Delphi Starter Edition Delphi 7 lite Full
컴퓨터/Delphi 코딩 2018. 4. 17. 09:14
델파이 stringlist Natural Order 정렬하기

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..
컴퓨터/Delphi 코딩 2015. 8. 5. 17:54
Delphi lisbox drag and drop

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..
컴퓨터/Delphi 코딩 2015. 6. 17. 01:00
이전 Prev 1 Next 다음