Forum: Datenbanken
Delphi
by dataspider,
26. Jul 2006
Wenn du die Function aus meinem Beitrag nimmst, brauchst du doch nur noch deinen Code ändern:
with prcSave do
begin
ParamByname('FIRST_ID').AsInteger := ActId;
ParamByname('FIRST_NAME').AsString := edFirstName.Text;
ParamByName('FIRST_STORY').asString := GetRTFString(edStory);
......
ExecProc;
end;
Forum: Datenbanken
Delphi
by dataspider,
26. Jul 2006
Hi,
ich hoffe, es hilft dir weiter. Ich mache hier aus einem Stream einen String und zeige den Inhalt des RTF an:
procedure TForm1.Button1Click(Sender: TObject);
Var
AStream: TMemoryStream;
tmp: String;
begin