Daten anzeigen in StringGrid und TEdit

[LOMBI]

Ja, die Variable MyData ist nil.
Im Debug-Inspektor steht:
FTelefon : Nicht verfügbarer Wert
Aber das kann nicht sein, weil das Feld "Telefon" in der DB vorhanden ist!

Gruß
Lombi

[DeddyH]

Zitat:

Zitat von Sharky

Delphi-Quellcode:

for ndx := StringGrid1.FixedRows to StringGrid1.RowCount do

Muss es nicht heißen

Delphi-Quellcode:

for ndx := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do

?

[Sharky]

Zitat:

Zitat von LOMBI

Ja, die Variable MyData ist nil.
Im Debug-Inspektor steht:
FTelefon : Nicht verfügbarer Wert
Aber das kann nicht sein, weil das Feld "Telefon" in der DB vorhanden ist!...

Hai LOMBI,

nur weil das Feld in der DB vorhanden ist bedeutet es ja noch nicht das Du die Zusatzdaten auch richtig an das StringGrid bindest.

Zeige doch einmal den Code mit dem Du das StringGrid mit Daten füllst.

Zitat:

Zitat von DeddyH

Muss es nicht heißenDelphi-Quellcode: markieren
for ndx := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do

Eigentlich nicht. Warum sollte die letzte Zeile des StringGrids nicht berücksichtigt werden? :stupid:

[shmia]

Zitat:

Zitat von LOMBI

auf einer Form habe ich unter ein StringGrid einige TEdits platziert.
...Diese Daten stehen bereits in der DB

Warum dann nicht einfach ein TDBGrid und einige TDBEdits verwenden ?

[DeddyH]

Zitat:

Zitat von Sharky

Eigentlich nicht. Warum sollte die letzte Zeile des StringGrids nicht berücksichtigt werden?

Weil die letzte Zeile den Index RowCount - 1 hat? :stupid:

[LOMBI]

Guten Morgen

und danke für die rege Beteiligung!

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  MyData: TExtraData;
  ndx: Integer;
begin
  config := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
...
  with StringGrid do
  begin
    if goRowSelect in Options
      then Row := Pred(RowCount)
      else Selection := TGridRect(Rect(FixedCols, Pred(RowCount), Pred(ColCount), Pred(RowCount)));
    if VisibleRowCount < (RowCount - FixedRows)
      then TopRow := Succ(RowCount - FixedRows - VisibleRowCount)
      else TopRow := FixedRows;

Natürlich wäre das Ganze mit DBGrid und DBEdits einfacher zu lösen, aber darauf möchte ich ungern
zurückgreifen.

Gruß
Lombi

[Sharky]

Hai LOMBI,

zeige doch einmal den Code in dem Du das StringGrid mit Daten füllst! In dem Codeausschnitt machst Du das ja nicht.

[shmia]

Zitat:

Zitat von LOMBI

Natürlich wäre das Ganze mit DBGrid und DBEdits einfacher zu lösen, aber darauf möchte ich ungern
zurückgreifen.

Warum einfach, wenn's auch kompliziert geht ??
Eine Grundregel des Extreme Programming lautet:
Es soll die einfachste Lösung, die genau das Gewünschte erreicht, angestrebt werden.

[LOMBI]

Delphi-Quellcode:

procedure TDemoForm.cmdItemAddExecute(Sender: TObject);
begin
  with DatModul, ItemDlg do
  begin
    ...
    if ShowModal = mrOK then
      begin
        QueryAdr.Append;
        QueryAdr.FieldByName('Name1').AsString := EdName1.Text;
        ...
        QueryAdr.Post;
        if QueryAdr.Locate('name1', EdName1.Text, []) then
          StringGrid.Row := QueryAdr.RecNo;
     end;

procedure TDemoForm.DataSetChanged(DataSet: TDataSet);
begin
  if DataSet.Active
    then StringGrid.RowCount := Max(Succ(DataSet.RecordCount), 2)
    else StringGrid.RowCount := 2;
         StringGrid.Invalidate;
end;

procedure TFDemoForm.DataSourceDemoDataChange(Sender: TObject; Field: TField);
begin
   if not Assigned(Field) then
     with Sender as TDataSource do
       if DataSet.Tag = 0 then
         DataSetChanged(DataSet);
end;

[marabu]

Hallo Lombi,

Zitat:

Zitat von LOMBI

... Im Grid muß ich jetzt auf eine markierte Zeile doppelt klicken, damit die passende Tel-Nr. im Edit erscheint. ...

dieses Verhalten kann ich in meinem Test-Projekt nicht beobachten. Es könnte sich um einen Nebeneffekt deines Codes handeln. Da müsste man genauer hinschauen. Hilfreich wäre, wenn du ein lauffähiges Minimal-Projekt zur Verfügung stellen könntest, an dem das Verhalten studiert werden kann.

Freundliche Grüße