Doublons
yassou2004
Messages postés
2
Date d'inscription
lundi 29 novembre 2004
Statut
Membre
Dernière intervention
1 juin 2007
-
1 juin 2007 à 15:25
yassou2004 Messages postés 2 Date d'inscription lundi 29 novembre 2004 Statut Membre Dernière intervention 1 juin 2007 - 1 juin 2007 à 20:29
yassou2004 Messages postés 2 Date d'inscription lundi 29 novembre 2004 Statut Membre Dernière intervention 1 juin 2007 - 1 juin 2007 à 20:29
A voir également:
- Doublon triplon quadruplon suite
- Problème de doublon en ASP ✓ - Forum ASP / ASP.NET
- Delete doublon sql ✓ - Forum SQL
- Supprimer un doublon dans une requetes avec une fonction - Forum SQL
- DELETE doublons SQL server 2008 ✓ - Forum SQL
- Repérage des doublons - Forum Visual Basic 6
2 réponses
dominique.stock
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
7
1 juin 2007 à 16:14
1 juin 2007 à 16:14
Bonjour,
Tu n'as qu'à colorier les cellules où il y a un doublon ....
Dom
Tu n'as qu'à colorier les cellules où il y a un doublon ....
Dom
yassou2004
Messages postés
2
Date d'inscription
lundi 29 novembre 2004
Statut
Membre
Dernière intervention
1 juin 2007
1 juin 2007 à 20:29
1 juin 2007 à 20:29
voila g fait ce petit code ms ca marche pas trop:
procedure TForm2.Button1Click(Sender: TObject);
begin
l:=StringGrid1.RowCount-1;
setlength(tcol,l);
for i:= 0 to l-1 do
begin
Tcol[i]:=false;
end;
for i:=0 to StringGrid1.RowCount-1 do
begin
sDoublon:=StringGrid1.Cells[1,i];
for j:=0 to StringGrid1.RowCount-1 do
begin
if ((sDoublon = StringGrid1.Cells[1,j]) and (i<>j))then
begin
TCol[i]:= true;
end;
end;
end;
end;
procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var k:integer;
begin
With Sender As TStringGrid Do With Canvas Do
Begin
If gdFixed in State
Then Brush.Color := clBtnFace
Else If gdSelected In State
Then Brush.Color := clNavy
Else If Odd(ARow)
Then Brush.Color := $FFE0FF
Else Brush.Color := $FFFFE0;
FillRect(Rect);
If gdSelected In State
Then Font.Color:=clWhite
Else Font.Color:=clBlack;
for k:= 0 to l-1 do
begin
if Tcol[k]=true then font.Color:=clRed;
end;
TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
End;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
l:=StringGrid1.RowCount-1;
setlength(tcol,l);
for i:= 0 to l-1 do
begin
Tcol[i]:=false;
end;
for i:=0 to StringGrid1.RowCount-1 do
begin
sDoublon:=StringGrid1.Cells[1,i];
for j:=0 to StringGrid1.RowCount-1 do
begin
if ((sDoublon = StringGrid1.Cells[1,j]) and (i<>j))then
begin
TCol[i]:= true;
end;
end;
end;
end;
procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var k:integer;
begin
With Sender As TStringGrid Do With Canvas Do
Begin
If gdFixed in State
Then Brush.Color := clBtnFace
Else If gdSelected In State
Then Brush.Color := clNavy
Else If Odd(ARow)
Then Brush.Color := $FFE0FF
Else Brush.Color := $FFFFE0;
FillRect(Rect);
If gdSelected In State
Then Font.Color:=clWhite
Else Font.Color:=clBlack;
for k:= 0 to l-1 do
begin
if Tcol[k]=true then font.Color:=clRed;
end;
TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
End;
end;
