TAdvStringGrid

[milo]

Nimm einfach meine Funktion und weise den Wert der 8ten selektierten Spalte einem Datenbankfeld zu.

Delphi-Quellcode:

  ADOCommand.Parameters.ParamByName('param').Value := AchteSpalte;
  ADOCommand.Execute;

Gruß Milo

[DeddyH]

Und dann hat er genau einen Wert, oder verstehe ich Deine Funktion falsch?

[milo]

Zitat von DeddyH:

Und dann hat er genau einen Wert, oder verstehe ich Deine Funktion falsch?

Yepp, so habe ich die Anfrage verstanden. Da Andre vorher gesagt hat, dass die Zeile selektiert ist wird er vermutlich auch nur die selektierte Zeile mit der 8ten Spalte auslesen wollen.

Ansonsten kann man es ja um eine Schleife erweitern, die "nCount = 0 to AdvStringGrid1.RowCount -1" durchzählt.

Gruß Milo

[DeddyH]

Deshalb hatte ich in #6 noch einmal nachgefragt. Allerdings bleibt mir der Sinn einer Funktion hierfür immer noch verborgen, da es damit in diesem Fall ja sogar umständlicher wird.

[Alterauge]

Ich sollte vielleicht was anderes testen!

wie gesagt habe ein stringgrid mit 8 spalten und endlose zeilen!
wenn ich mich zb. in zeile 5 befinde und button1 drücke,
sollte der inhalt aus spalte 8 im memo1 angezeigt werden.

[DeddyH]

Das ist doch dasselbe in Grün:

Delphi-Quellcode:

Memo.Lines.Clear;
for i := ADVStringGrid1.FixedRows to ADVStringGrid1.RowCount - 1 do
  begin
    s := ADVStringGrid1.Cells[7, i];
    Memo.Lines.Add(s);
  end;

[milo]

Oder:

Delphi-Quellcode:

procedure Form1.Button1Click(Sender:TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(AdvStringGrid1.Cells[7,AvancedStringGrid1.SelectedRow]);
end;

[Alterauge]

[DCC Fehler] UnitMain.pas(409): E2029 '[' erwartet, aber ']' gefunden

es geht leider nicht! wieso?

[milo]

Sorry, Korrektur:

Delphi-Quellcode:

procedure Form1.Button1Click(Sender:TObject);
 begin
   Memo1.Lines.Clear;
   Memo1.Lines.Add(AdvStringGrid1.Cells[7,AvancedStringGrid1.Row]);
 end;

Ggf auch noch prüfen ob überhaupt so viele Spalten vorhanden sind ...

Gruß Milo