In StringGrid-Zeilen mit einem Balken navigieren

[marabu]

Hallo Lombi,

deine Kundendaten stehen wohl noch in einer Query-Komponente (QueryKunden) zur Verfügung. Du kannst sie von dort nehmen, aber wenn die Felder der Query nicht mit den Spalten des Grid korrelieren, dann musst du erst ein Mapping von Spaltenindex auf Feldindex bereitstellen - oder du verzichtest auf die Schleife:

Delphi-Quellcode:

//  ...
    Cells[1, Row] := FieldbyName('Name1').AsString;
    Cells[2, Row] := FieldbyName('Name2').AsString;
//  ...

Freundliche Grüße

[LOMBI]

Hallo marabu,

wenn ich aus meinem Code "FormKunden.Show" entferne, dann läuft alles
wie auf Deiner Demo ab. Die Zahlenreihen beginnen mit der ersten Zeile.
Irgendwie beschleicht mich das Gefühl, dass für meine Zwecke nachstehender
Passus geändert werden müßte, damit statt der Zahlen meine Kundendaten ab
Zeile 1 eingetragen werden.

Zitat:

for iCol := FixedCols to Pred(ColCount) do
Cells[iCol, Row] := IntToStr(Random(90) + 10);
SetFocus;

Die Felder der QueryKunden korrelieren mit den Spalten des Grid:

Delphi-Quellcode:

procedure TFormKunden.BtnSpeichernClick(Sender: TObject);
var
  inZeile: Integer;
begin
  with FormKundenListe, GridKunden, QueryKunden do
    begin
      inZeile := RowCount;
      RowCount := RowCount + 1;
      Cells[0, inZeile] := FieldByName('Name1').AsString;
      Cells[1, inZeile] := FieldByName('Name2').AsString;
      ...

Viele Grüße

[marabu]

Delphi-Quellcode:

for iCol := FixedCols to Pred(ColCount) do
  Cells[iCol, Row] := IntToStr(Random(90) + 10);
SetFocus;

Dieser Code schreibt Zufallszahlen in die ausgewählte Grid-Zeile - den brauchst du nicht.

Grüße

[LOMBI]

Ja, dann stehe ich aber wieder vor meinem Problem 1.) aus #16.
Der Kundeneintrag im Grid beginnt auf Zeile 2 und nicht ganz oben!

[LOMBI]

Delphi-Quellcode:

procedure TFormKunden.BtnSpeichernClick(Sender: TObject);
var
  inZeile: Integer;
begin
  with FormKundenListe, GridKunden, QueryKunden do
    begin
      inZeile := RowCount;
      Cells[0, inZeile] := FieldByName('Name1').AsString;
      Cells[1, inZeile] := FieldByName('Name2').AsString;
      ...

"RowCount := RowCount + 1;" habe ich aus dem Code genommen.
Jetzt beginnt der Eintrag zwar in der 1.Zeile des Grids, jedoch
erst beim nächsten BtnKundeNeuClick. Die Daten sollten bereits
nach dem OnPost im Grid erscheinen. Auch OnBeforePost half nichts!