StringGrid Zeile per Mausclick auslesen

[klausmaus]

Hallo Leute,

bin ein Newbie und habe folg. Problem:
Über Editfelder werden Daten in ein StringGrid eingelesen, gespeichert und sortiert. Habe auch `ne Suche, die gewünschte Datensätze in den Editfeldern ausgibt.
Möchte nun zusätzlich, dass beim anklicken einer Zeile die Editfelder mit den entsprechenden Daten gefüllt werden. Wie krieg ich das hin? (Options.goRowSelect ist true)

[Klaus01]

Hallo,

du könntest mit dem Event/Ereignis OnSelectCell arbeiten:

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin

end;

Dort wird dir die markierte Zeile und Spalte übergeben.

Grüße
Klaus

[klausmaus]

Danke für den Tipp,

komme heute leider nicht mehr dazu, es auszuprobieren. Melde mich morgen wieder mit dem Ergebnis.

Schönes WE

[klausmaus]

Nach reichlich Bastelei bin jetzt soweit, das was ausgegeben wird.
Aber: wg. zeile

Delphi-Quellcode:

ARow:=Filepos(ChemDat)+1;

wird immer der erste Datensatz ausgegeben.
Wie krieg ich den aktuellen (angeklickten) Datensatz?
Hier der Code

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  begin
  If CanSelect=True then
    seek(ChemDat,0);
      with Chem do
        ARow:=Filepos(ChemDat)+1;
        begin
          read(ChemDat,Chem);
          EditNr.Text:=(StringGrid1.Cells[1,ARow]);
          EditName.Text:=StringGrid1.Cells[2,ARow];
          DateTimePicker1.Date:=StrToDate(StringGrid1.Cells[4,ARow]);
        end;
  end;

Wäre prima, wenn jemand `nen Tipp hätte.

[DeddyH]

Zitat:

Delphi-Quellcode:

ARow:=Filepos(ChemDat)+1;

Du willst ARow setzen statt es auszuwerten?

[klausmaus]

Oh Mann was bin ich doof.
Zeile entfernt und schon klappt es.

Besten Dank

BTW
Möchte den in den Edit-Feldern angezeigten Datensatz im StringGrid löschen. Wie stelle ich das an?

[DeddyH]

Spontan würde ich sagen:
- StringGrid zeilenweise durchlaufen und Inhalte vergleichen
- wenn gefunden, dann nachfolgende Zeilen aufrücken lassen
und RowCount neu setzen

[klausmaus]

Ein Datenvergleich ist m.E. nicht nötig. Habe die Daten im Edit. Demzufolge müsste der Zeiger doch auf diesen bzw. den nächsten Datensatz zeigen.
Ergo: Filepos irgendwie auswerten und anschließend RowCount um 1 zuurücksetzen und dann das Grid neu einlesen.
Soweit meine Idee.
Aber mit der Umsetzung haperts.

[DeddyH]

Nochmal zum Verständnis: wenn Du eine Zelle im StringGrid anklickst, werden dessen Daten in den Edits angezeigt?

[klausmaus]

Habs nochmal gecheckt. Egal, welche Zelle ich anklicke, der entsprechende Datensatz wird in den Edits gezeigt.