115 if AnsiPos(sFieldNM + ';', IndexDefs[0].Fields) <> 0 then sFieldNM := sFieldNM + ';' else if AnsiPos(';' + sFieldNM, IndexDefs[0].Fields) <> 0 then sFieldNM := ';' + sFieldNM; IndexDefs[0].Fields := StringReplace(IndexDefs[0].Fields, sFieldNM, '‘, 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　[rfReplaceAll]); // 並び替え完全解除の場合インデックス名クリア if IndexDefs[0].Fields = '' then IndexName := ''; // インデックスフィールドのオプション初期化 IndexDefs[0].Options := []; end else begin // ----- 昇順へ ----- // 表題設定 Column.Title.Caption := Column.Title.Caption + ' ▲ '; // 昇順フィールドの設定 if IndexDefs[0].Fields = '' then IndexDefs[0].Fields := sFieldNM else IndexDefs[0].Fields := IndexDefs[0].Fields + ';' + sFieldNM; // インデックスフィールドのオプション初期化 IndexDefs[0].Options := []; 　　　 // インデックス名設定 if IndexName = '' then IndexName := 'aIndex'; end; // データを開いたままソートを適用させるためIndex を削除して再設定 DeleteIndex('aIndex'); IndexName := 'aIndex'; First; end; end; end;