"Feld xyz wurde nicht gefunden"

[Mysterio08]

Hallo,

ich möchte in meiner Datenbankanwendung gerne Memo-Felder im DBGrid anzeigen lassen. Dafür habe ich bei meiner TAdoQuery-Komponente die entsprechenden Felder hinzugefügt (per Rechtsklick auf die Komponente) und dann das OnGetText-Ereignis wie folgt ausgewertet (ein Ereignis für alle Memo-Felder):

Delphi-Quellcode:

procedure TForm1.OnGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  //Dafür sorgen, dass auch die Memo-Felder im DBGrid angezeigt werden
  if Sender = AdoQuery1.FieldByName('HierarchischeEinordnung') then
    Text := Copy(AdoQuery1.FieldByName('HierarchischeEinordnung').AsString , 1, 50)
  else if Sender = AdoQuery1.FieldByName('Verantwortungsbereich') then
    Text := Copy(AdoQuery1.FieldByName('Verantwortungsbereich').AsString , 1, 50)
  //Es folgen noch weitere Felder
end;

Wenn ich alle diese Felder anzeige, gibt es kein Problem. Sobald ich jedoch eines weglasse, bekomme ich die Meldung á la: "Das Feld Verantwortungsbereich wurde nicht gefunden".
Wie kann ich den Fehler umgehen? Die Memo-Felder anders darstellen? Oder gibt es eine Eigenschaft von AdoQuery, mit der ich nach einem Feld fragen kann? Dass es so aussieht:
if Sender = AdoQuery1.FieldByName('HierarchischeEinordnung') then if AdoQuery1.Fields('HierarchischeEinordnung').Exists then Text := Copy(AdoQuery1.FieldByName('HierarchischeEinordnung').AsString , 1, 50)
mfg

[hoika]

Hallo,

du hast wohl persistente Felder benutzt per Doppelklick auf die Query
(z.B. zum Einstellen der Breite/Formatierung).
Dann darfst du kein Feld weglassen.

Viell. kannst du ja per DB_XXX.Visible:=False die nicht benötigten Felder ausblenden.


Heiko

[mkinzler]

Oder im Grid (Columeditor) einstellen, welche Felder du willst

[Mysterio08]

Das ganze geschieht aber dynamisch, ich weiß also nicht, welche Felder der User auswählen wird - deshalb fällt das mit dem DBGrid-Columns weg.

Mit .Visible habe ich es noch nicht ausprobiert, das werde ich später mal tun!

[mkinzler]

Die Columns kann man auch dynamisch erzeugen

[Mysterio08]

Das mit dem Ausblenden von Spalten halte ich doch nicht für eine so gute Idee, weil es nicht besonders elegant ist.

Deswegen: Wie genau hast du es gemeint, mkinzler, mit dem Erstellen der Columns per Editor? Das löst ja noch nicht mein Problem, Memo-Felder im DBGrid anzeigen zu wollen (und nicht nur ein MEMO zu lesen)!

Hier habe ich noch einen anderen Ansatz gefunden, die Memo-Felder im DBGrid darstellen zu können. Nur was für Code muss in diesem OnDrawColumnCell-Ereignis stehen?

[Mysterio08]

Gibt es denn noch eine Alternative, wie ich Memo-Felder im DBGrid anzeigen lassen kann?

[shmia]

Delphi-Quellcode:

procedure TForm1.MemoOnGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  //Dafür sorgen, dass auch die Memo-Felder im DBGrid angezeigt werden
  Text := Copy(Sender.AsString , 1, 50);
end;

Delphi-Quellcode:

procedure TForm1.TabelleXyAfterOpen(dataset:TDataset);
var
  i : integer;
begin
  // allen Memo-Feldern den neuen Event-Handler zuweisen
  for i := 0 to Dataset.Fields.Count-1 do
  begin
    if Dataset.Fields[i].DataType = ftMemo then
      Dataset.Fields[i].OnGetText := MemoOnGetText;
  end;
end;

[Mysterio08]

Ich habe mich eben nochmal drangesetzt und versucht, das Problem zu lösen, habe es aber noch nicht geschafft.
Mit dem von dir geposteten Code, shmi bin ich schon ein wenig weitergekommen, aber es tritt immer noch derselbe Fehler auf.
Was meintest du mit "allen Memo-Feldern den neuen Event-Handler zuweisen"? Welchen Event-Handler? TabelleXyAfterOpen? Und wo soll ich den zuweisen, der wird mir bei den Memo-Felder bei keinem Ereignis angezeigt.

[DeddyH]

MemoOnGetText ist der Handler, welcher im AfterOpen-Event der Tabelle zugewiesen wird.