Doppelte Eintrage in StringGris loeschen aber wie?

[ibp]

... da stand aber eben ein anderer code..

Zitat von lucius:

Puuu das hoert sich ja schwierig an.
Mein code funzt soweit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  StringGrid1.RowCount := StringGrid2.RowCount;

  for ndx := 0 to StringGrid1.RowCount do
  begin
    StringGrid2.Rows[ndx] := StringGrid1.Rows[ndx];
  end;
end;

Aber ich moechte eigenlich das die erste row nicht mit kopiert wird(unveraendert bleibt), alles was ich jetzt kriege ist 2 lere SG`s.
Etwa so SG.Row := 1, dan faengt er erst ab der zweiten Reihe zu zaehlen und das ist mein Ziel.

dein code müsste bei der ausführung knallen! die schleife darf nur bis rowcount-1 laufen!

..so sollte es gehen!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
  dst :integer;
  arow: integer;
  anzrows:integer;
  post:boolean;
begin
  anzrows:=StringGrid1.RowCount;
  StringGrid2.RowCount:=anzrows;

  dst:=0;
  for ndx := 0 to anzrows-1 do
  begin
    post:=true;
    for arow:=0 to dst do
      if StringGrid2.Rows[arow]=StringGrid1.Rows[ndx] then 
        post:=false;

    if post then 
    begin
      StringGrid2.Rows[dst]:=StringGrid1.Rows[ndx];
      inc(dst);
    end;
  end;
end;