Stringgrid kopieren und in anderes einfügen untereinander

[klaus9]

Hallo,

ich möchte gerne alle Daten des StringGrid1 ins Stringgrid2 kopieren, dieses klappt über folgenden Code auch ganz gut.

Delphi-Quellcode:

var
  ndx : Integer;
begin
  Form1.StringGrid2.ColCount:= Form1.StringGrid1.ColCount;
  Form1.StringGrid2.RowCount := Form1.StringGrid1.RowCount;


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

Ich möchte jetzt aber gerne das wenn ich auf den Button klicke, er mir StringGrid1 im StringGrid2 unten an die vorhandenden Daten anhängt.
Wie bekomme ich dies hin ?

[mkinzler]

Mit StringGrid.Rows.Add kann man eine Zeile einfügen.

[Headbucket]

Du scheinst viel mit den Daten direkt aus dem Stringgrid zu arbeiten.
Hier solltest du eventuell nochmal deine Struktur überdenken, denn Anzeige und Speicherung der Daten sollte man nach Möglichkeit immer trennen.

Ich empfehle dir also, die Daten z.B. in Stringlisten zu speichern. Hier erfolgt dann auch die ganze Verarbeitung. Am Ende der Verarbeitung rufst du einfach eine Funktion auf, die die beiden Stringgrids mit den aktuellen Daten füllt. Du wirst sehen: Es wird alles viel einfacher und übersichtlicher.

Deine letzte Frage wurde ja schon beantwortet: Einfach über eine Schleife mit Add die Daten anfügen.

Grüße

[klaus9]

hmm irgendwie funktioniert es nicht so..

Delphi-Quellcode:

var
  ndx : Integer;
begin
  Form1.StringGrid2.ColCount:= Form1.StringGrid1.ColCount;
  Form1.StringGrid2.RowCount := Form1.StringGrid1.RowCount;


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

[Jumpy]

Den Part musst du weglassen oder ändern, damit du dir nicht immer alles wieder zurücksetzt:

Delphi-Quellcode:

Form1.StringGrid2.ColCount:= Form1.StringGrid1.ColCount;
Form1.StringGrid2.RowCount := Form1.StringGrid1.RowCount;

Könnte werden zu:

Delphi-Quellcode:

Form1.StringGrid2.ColCount := Form1.StringGrid1.ColCount;
Form1.StringGrid2.RowCount := Form1.StringGrid2.RowCount + Form1.StringGrid1.RowCount;

dann musst du auch nix mit Add machen.

------------

Oder du läßt es ganz weg (oder machst es nur 1x am Anfang) und machst dann nur die Schleife mit dem Add.

------------

Ausserdem würde ich das Form1. entweder weglassen oder durch self. ersetzen, da das sonst später Schwierigkeiten machen kann.

[klaus9]

Hallo Ralph,

funktioniert nicht ganz so, er kopiert zwar jetzt die Werte aus Stringgrid1 und packt diese in Stringgrid2 rein, wenn ich dann die nächste Abfrage mache, fügt
er mir nur eine leere tabelle dahinter.


Gruß
Klaus

[p80286]

Bist D wirklich sicher, daß das in Ordnung ist?

StringGrid2.Rows[ndx].Add := Form1.StringGrid1.Rows[ndx];

Gruß
K-H

[klaus9]

Hallo K+H,

nee das funktioniert leider nicht :-(


Irgendwie bekomme ich es einfach nicht hin aus einem Stringgrid1, dessen Daten in Stringgrid2 zu bewegen und wenn ich nochmal klicke
das dann alles weitere angefügt wird im Stringgrid2..

[DeddyH]

Aus dem Hut und ungetestet:

Delphi-Quellcode:

procedure AppendToStringGrid(const Source, Destination: TStringGrid);
var
  Line: integer;
begin
  Assert(Assigned(Source) and Assigned(Destination),
    'Beide StringGrids müssen gültige Instanzen sein');
  for Line := Source.FixedRows to Source.RowCount - 1 do
    begin
      Destination.RowCount := Destination.RowCount + 1;
      Destination.Rows[Destination.RowCount - 1].Assign(Source.Rows[Line]);
    end;
end;

Aufruf wäre dann:

Delphi-Quellcode:

AppendToStringGrid(StringGrid2, StringGrid1);

[klaus9]

Hallo Deddy,

vielen Dank, der Source funktioniert schon fast perfekt, habe nur ein Problem
die Reihen habe ich jetzt korrekt aber die Zellen werden nicht übertragen..