AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Funktion / Stream in Richmemo laden ( Lazarus )
Thema durchsuchen
Ansicht
Themen-Optionen

Funktion / Stream in Richmemo laden ( Lazarus )

Ein Thema von manfred_h · begonnen am 15. Sep 2015 · letzter Beitrag vom 17. Sep 2015
Antwort Antwort
manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#1

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 15. Sep 2015, 16:43
Versuche nur meine Ursprüngliche Idee zum laufen zu bringen...
Irgendwie fehlt mir da das Grundverständniss.....

Delphi-Quellcode:
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;

     //Write the string into a stream
     stream := TMemoryStream.Create;
     stream.Clear;
     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
     stream.Position := 0;

     aForm.aComponent.LoadRichText(stream);
     //
     stream.Free;

end;
Ich erhalte hier:
Code:
udm.pas(229,12) Error: identifier idents no member "aComponent"
Sorry wenn ich da nochmals nachfrage
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 15. Sep 2015, 16:47
Die Angabe der Form ist auch nicht nötig. Dafür aber ein cast auf die richtige Kllase bzw. gleich die richtige Vorgabe auf eine Komponenetnklasse, welche die Methode unterstützt.
Markus Kinzler
  Mit Zitat antworten Zitat
manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#3

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 15. Sep 2015, 17:15
Danke schon mal...
Hab's ein wenig angepasst.. Bin mir nur nicht sicher wie ich das mit der Form mache....

Delphi-Quellcode:
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;

     //Write the string into a stream
     stream := TMemoryStream.Create;
     stream.Clear;
     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
     stream.Position := 0;

     ARichMemo.LoadRichText(stream);
     //
     stream.Free;
end;
Der Aufruf:
Delphi-Quellcode:
procedure TDM_testimony.rtf_stream_read(Sender: TObject);
begin
    DM.rtf_stream_load(tbl_testimony,'TESTIMONY',RichMemo1);
end;
Ich erhalte den Fehler:
Code:
udm_testimony.pas(137,64) Error: Identifier not found "RichMemo1"
Ich hab Ihm ja auch nicht gesagt wo die Richmemo liegt...
  Mit Zitat antworten Zitat
manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#4

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 15. Sep 2015, 17:17
Habs...

Der Aufruf war falsch...
Delphi-Quellcode:
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
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#5

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 15. Sep 2015, 17:56
Wieso übergibst Du eigentlich Tabellen- und Feldnamen statt gleich das Feld, das eigentlich gemeint ist?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#6

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 16. Sep 2015, 08:05
Guten Morgen
Code:
Wieso übergibst Du eigentlich Tabellen- und Feldnamen statt gleich das Feld, das eigentlich gemeint ist?
DM.rtf_stream_load(tbl_testimony,'TESTIMONY',frm_t estimony.RichMemo1);

tbl_testimony: TDAMemDataTable
TESTIMONY: Feldname
frm_testimony: Formname
RichMemo1: Name der Komponente

Was darf dann hier fehlen?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Funktion / Stream in Richmemo laden ( Lazarus )

  Alt 16. Sep 2015, 08:18
Man könnte auch direkt die TField-Instanz übergeben:

procedure TDM.rtf_stream_load( aField: TField; ARichMemo: TCustomRichMemo); DM.rtf_stream_load(tbl_testimony.FieldByName('TESTIMONY'),frm_testimony.RichMemo1);
Markus Kinzler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz