답변 드린 내용이었는데..참조 하세여..


procedure TFormStatistics.SetTitle(DBGrid: TKDBGrid; Index: Integer);
var
    Title   : String;
    i       : Integer;
begin

    if Index = 0 then
        Title := '전화번호;그룹번호;배경음종류;배경음코드;플레이번호;최종변경일;'
    else
        Title := '일자;전화번호;실명;주민번호;가입통신사;요금종류;가입자상태;가입경로;가입일;변경일;해지일';

    //Title := 이름|녹음;이름|삭제;이름|청취;인사말|녹음;인사말|삭제;인사말|청취;비밀번호변경;비정상종료';
   
    with DBGrid do begin
        for i := 0 to Columns.Count - 1 do begin
            Columns[i].Title.Alignment := taCenter;
            Columns[i].Title.Font.Name := '돋움';
            Columns[i].Title.Font.Size := 9;
            Columns[i].Title.Caption := GetColumn(Title);
            Columns[i].Alignment := taCenter;
        end;
    end;

end;