[TMS] TAdvStringGrid function introduction - csv file import and sorting

 ​

TMS 의 TAdvStringGrid 에서  LoadFromCSV 메소드를 사용하면  csv 파일을 불러 올 수 있습니다.

Grid 의 Column 과 Row 는 csv 데이터 항목 수에 맞게 자동으로 세팅 됩니다.

 

컬럼 헤드 클릭시 Sorting 명령을 수행 하기 위해서 아래와 같이 설정 힙니다.

AdvStringGrid1.SortSettings.Show := TRUE;  

Sorting 관련해서 다양한 옵션들이 제공 됩니다. 상세 기능은 세부 메뉴얼을 참고 하시기 바랍니다.

Grid Column 의 헤드 타이틀 항목을 클릭하여 soting 하기 위해서는 다음의 3가지 이벤트 메소드가 활용 됩니다.

dosort 항목을 TRUE 로 지정하면 Sorting이 가능해지며 아래 코드는 0 번 Column 은 클릭 Disable 됨을 의미 합니다.

dosort := acol > 0;   

procedure TMvForm.Button1Click(Sender: TObject);
begin
  AdvStringGrid1.LoadFromCSV( 'c:\temp\cdata.csv' );
  AdvStringGrid1.SortSettings.Show := TRUE;
  AdvStringGrid1.ColWidths[ 2 ] := 100;
end;

procedure TMvForm.AdvStringGrid1CanSort(Sender: TObject; ACol: Integer; var DoSort: Boolean);
begin
  dosort := acol > 0;

  Cursor := crHourGlass;
end;

procedure TMvForm.AdvStringGrid1ClickSort(Sender: TObject; ACol: Integer);
begin
  Cursor := crDefault;
end;


procedure TMvForm.AdvStringGrid1GetFormat(Sender: TObject; ACol: Integer; var AStyle: TSortStyle; var aPrefix, aSuffix: string);
begin
  case acol of
    1:  AStyle := ssAlphabetic;   // ssAlphanocase;
    2:  AStyle := ssNumeric;
    3:  AStyle := ssNumeric;
    4:  AStyle := ssDate;
  end;
end;

 

​