Memofeld auslesen ohne TDBMemo ?

Eisenmann · Beiträge: 26 XP D4P

Hallo,
ich möchte ein Memofeld aus der Datenbank auslesen, ohne ein TDBMemo-Objekt, weil ich das in einem TDatenmodul machen möchte. Hier kann man kein TDBMemo in das Formular einfügen.
Also wie
text:=QueryDB2.FieldByName('Name').AsString;
halt nur ein Memofeld.
Ich konnte nichts darüber finden.

bis dann,
der Eisenmann.

colonia · Hält's aus hier Beiträge: 3

Hallo,

du brauchst Dir bloß eine Variable vom Typ TMemo zu definieren. Der Text-Eigensschaft dieser Variablen kannst Du dann den aus der DB ausgelesenen Wert zuweisen.

In etwa :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  myMemo : TMemo;

begin

  myMemo.Text := QueryDB2.FieldByName('Name').AsString;

end;

Moderiert von UGrohne: Delphi-Tags eingefügt

Eisenmann · Beiträge: 26 XP D4P

Hallo colonia,
muss ich gleich morgen probieren.

der Eisenmann.

Eisenmann · Beiträge: 26 XP D4P

Hallo,
ein Create hat noch gefehlt.

Das hätte ich nie selbst herausgefunden herausgefunden.
Dank dir nochmals.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var F1Memo: TMemo;

begin

  F1Memo :=TMemo.Create(DataModuleDB);
  
  F1Memo.Text :=QueryDB.FieldByName('Pos_text').AsString;

  QueryDB2.FieldByName('Pos_text').AsString := F1Memo.Text;

end;

bis dann, der Eisenmann.

Moderiert von UGrohne: Delphi-Tags eingefügt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme