TDBRichEdit ein Feld vom geklickten TDBGrit zuweisen?

[smart]

Ich möchte beim klicken auf einem TDBGrid ein DBRichEdit1 das geklickte Feld zu weisen. Wie macht man das?

[Sharky]

Zitat von smart:

... Wie macht man das?

Hai Heike,

Man(n) macht das zum Beispiel so:

Delphi-Quellcode:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if (Column.Field is TMemoField) then
  begin
    DBMemo1.DataSource := DBGrid1.DataSource;
    DBMemo1.DataField := Column.FieldName;
  end
  else
  begin
    DBMemo1.DataSource := nil;
  end;
end;

[smart]

Guten Abend Stephan!

Wenn ich mit dem Programm endlich fertig bin, habe ich zugleich einen Kurs in datenbankprogrammierung hinter mir Ich hatte schon öfter geglaubt ich wäre fertig, aber es kommt auch immer was neues hinzu was zuvor nicht bedacht habe.

Vielen Dank.

[Sharky]

Zitat von smart:

...Wenn ich mit dem Programm endlich fertig bin, habe ich zugleich einen Kurs in datenbankprogrammierung hinter mir ....

Und ich eine leckeres Essen vor mir

[smart]

Ich bekomme immer den Fehler [Fehler] Tabelle.pas(102): Undefinierter Bezeichner: 'FieldName'
Was mach ich da falsch?

Zitat von Sharky:

Delphi-Quellcode:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if (Column.Field is TMemoField) then
  begin
    DBMemo1.DataSource := DBGrid1.DataSource;
    DBMemo1.DataField := Column.FieldName;// Hier bekomme ich den Fehler "[Fehler] Tabelle.pas(102): Undefinierter Bezeichner: 'FieldName'"
  end
  else
  begin
    DBMemo1.DataSource := nil;
  end;
end;

[marabu]

Abgesehen davon, dass du Column.Field zuweisen musst - nichts. Die Meldung ist mit dem gezeigten Code nicht nachvollziehbar.

Grüße vom marabu

So ein Blödsinn...

[smart]

Ich habe den Fehler schon selbst gefunden. mit:

Delphi-Quellcode:

procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
  if (Column.Field is TMemoField) then 
  begin 
    DBMemo1.DataSource := DBGrid1.DataSource; 
    DBMemo1.DataField := SelectedField.FullName;//<- geändert 
  end 
  else 
  begin 
    DBMemo1.DataSource := nil; 
  end; 
end;

geht es.

[Sharky]

Zitat von smart:

Ich habe den Fehler schon selbst gefunden. mit:

Hai Heike,
irgendwie ist das seltsam. Meinen Code kann ich ohne Probleme nutzen (habe ich ja auch vorher getestet).
Woher kommt denn in deinem Code das SelectetField? Ich sehe weit und breit keine Variable dafür.

[smart]

Zitat von Sharky:

irgendwie ist das seltsam. Meinen Code kann ich ohne Probleme nutzen (habe ich ja auch vorher getestet).
Woher kommt denn in deinem Code das SelectetField? Ich sehe weit und breit keine Variable dafür.

Sollte auch so aussehen:

Delphi-Quellcode:

procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
  if (Column.Field is TMemoField) then 
  begin 
    DBMemo1.DataSource := DBGrid1.DataSource; 
    DBMemo1.DataField := DBGrid1.SelectedField.FullName;//<- geändert 
  end 
  else 
  begin 
    DBMemo1.DataSource := nil; 
  end; 
end;

Wenn ich ganz ehrlich sein soll, keine Ahnung. Habe ein wenig getestet und siehe da es klappte.