StringGridで、カラムの中で、重複する情報がある場合削除する処理を作ってみた
DBのSQL文のdistinct（重複レコードの削除）のような処理
処理は、まず指定カラムで、並び替えを行い
同じカラムの内容がつづいたものを、削除する処理とした
並び替えの処理は、Webにある既存の処理を使った
//http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00084.htm
ソート処理
Procedure GridSort(Grid : TStringGrid;SortCol : LongInt);
var
St, St2 : TStringList;
i : Integer;
begin
St := TStringList.Create;
ST.Assign(Grid.Cols[SortCol]);
For i := 1 To Grid.FixedRows Do
St.Delete(0);
For i := Grid.FixedRows To Grid.RowCount - 1 Do
Begin
St2 := TStringList.Create;
St2.Assign(Grid.Rows[i]);
St.Objects[i - Grid.FixedRows] := St2;
End;
St.Sort;
For i := Grid.FixedRows To Grid.RowCount - 1 Do
Begin
Grid.Rows[i].Assign(TStringList(St.Objects[i - Grid.FixedRows]));
TStringList(St.Objects[i - Grid.FixedRows]).Free;
End;
St.Free;
end;
Procedure Distinct(Grid : TStringGrid;CutCol : LongInt);
var
i,j : Integer;
begin
j:=1;
with Grid do
begin
for i:=2 to rowcount-1 do begin
if Cells[CutCol,j]<>Cells[CutCol,i] then begin
// Cells[CutCol,j+1]:=Cells[CutCol,i];
// 行単位で複写
Rows[j+1].Assign(Rows[i]);
j:=j+1;
end
end;
// 重複した行の分に行数を合わせる（不要な行を削除）
rowcount:=j+1;
end;
end;
// テストデータ作成
procedure TForm1.Button1Click(Sender: TObject);
begin
with StringGrid1 do
RowCount:=6;
Cells[1,1]:='abc';
Cells[1,2]:='abc-2';
Cells[1,3]:='abc-1';
Cells[1,4]:='abc-2';
Cells[1,5]:='abc-3';
Cells[2,1]:='1';
Cells[2,2]:='2';
Cells[2,3]:='3';
Cells[2,4]:='4';
Cells[2,5]:='5';
end;
end;
// 動作テスト
procedure TForm1.Button2Click(Sender: TObject);
begin
GridSort(StringGrid1, 1); //1カラム目でソート
Distinct(StringGrid1, 1); //1カラム目で重複削除
end;