Funktion / Stream in Richmemo laden ( Lazarus )

[manfred_h]

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

[mkinzler]

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.

[manfred_h]

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...

[manfred_h]

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

[DeddyH]

Wieso übergibst Du eigentlich Tabellen- und Feldnamen statt gleich das Feld, das eigentlich gemeint ist?

[manfred_h]

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?

[mkinzler]

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);