Forum: Programmieren allgemein
by manfred_h,
17. Sep 2015
Habe es getestet:
frm_testimony.RM_Testimony.Lines.Assign( tbl_testimony.FieldByName('TESTIMONY').AsString)
Erhalte aber leider die Fehlermeldung:
Error: Incompatible type for arg no. 1: Got "WideString", expected "TPersistent"
Forum: Programmieren allgemein
by manfred_h,
16. Sep 2015
RichMemo1.Lines.Assign( DBField1 )
Sieht ja super kurz aus. :-D
Erhalte aber den Fehler :
Cannot assign a TDAField to a TWin32RichMemoString.
Muss das Morgen mal anschauen.
Forum: Programmieren allgemein
by manfred_h,
16. Sep 2015
Hallo Perlsau
Hab Deinen Vorschlag nicht vergessen und auch schon ausprobiert.
"Meine" urspründliche Lösung war für mich nur verständlicher.
Aber ich versuche auch gerne die von Dir nochmals angepasste Version.
Danke Nochmals für Deinen Tipp. :thumb:
Immer gut wenn man die Kirche im Dorf lässt. ;-)
Forum: Programmieren allgemein
by manfred_h,
16. Sep 2015
Noch eine Frage
Habe eben diesen Post gefunden:
http://www.delphipraxis.net/107884-memo-inhalt-einem-stream-abspeichern-2.html
Bietet TReader, TWriter vorteile gegenüber meiner gefundenn Lösung?
procedure TForm1.ButtonLadenClick(Sender: TObject);
Var Stream:TFilestream;
begin
Forum: Programmieren allgemein
by manfred_h,
16. Sep 2015
Hört sich gut an.
Danke für den Tipp.
Shalom
Manfred
Forum: Programmieren allgemein
by manfred_h,
16. Sep 2015
Guten Morgen
Wieso übergibst Du eigentlich Tabellen- und Feldnamen statt gleich das Feld, das eigentlich gemeint ist?
DM.rtf_stream_load(tbl_testimony,'TESTIMONY',frm_testimony.RichMemo1);
tbl_testimony: TDAMemDataTable
TESTIMONY: Feldname
frm_testimony: Formname
RichMemo1: Name der Komponente
Forum: Programmieren allgemein
by manfred_h,
15. Sep 2015
Habs...:P
Der Aufruf war falsch...
procedure TDM_testimony.rtf_stream_read(Sender: TObject);
begin
DM.rtf_stream_load(tbl_testimony,'TESTIMONY',frm_testimony.RichMemo1);
end;
Besten Dank für Eure Hilfe:thumb:
Forum: Programmieren allgemein
by manfred_h,
15. Sep 2015
Danke schon mal...
Hab's ein wenig angepasst.. Bin mir nur nicht sicher wie ich das mit der Form mache....
procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; ARichMemo: TCustomRichMemo);
var
rtfString : String;
begin
//Get the data from the database as AnsiString
rtfString := aTable.FieldByName(aField).AsAnsiString;
Forum: Programmieren allgemein
by manfred_h,
15. Sep 2015
Versuche nur meine Ursprüngliche Idee zum laufen zu bringen...
Irgendwie fehlt mir da das Grundverständniss.....
procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; aForm: TForm; aComponent: TObject);
var
rtfString : String;
begin
//Get the data from the database as AnsiString
rtfString := aTable.FieldByName(aField).AsAnsiString;
Forum: Programmieren allgemein
by manfred_h,
15. Sep 2015
Danke für die Tipps.
Werde es gleich bei mir testen. :thumb: