FactuGES2/Database/udfs/funciones.pas

unit funciones;

interface

function RtfToText(Cadena: PChar): PChar; cdecl; export;

implementation

uses
  Forms, Classes, SysUtils, StdCtrls, ComCtrls,
  Menus, Windows;

function RtfToText(Cadena: PChar): PChar;
var
  AStream : TStringStream;
  ARichEdit: TRichEdit;
begin
  AStream := TStringStream.Create(Cadena);
  ARichEdit := TRichEdit.CreateParented(HWND(-3));  
  try
    ARichEdit.SelectAll;
    ARichEdit.SelText := StrPas(Cadena);
    Result := PChar(ARichEdit.Text);
  finally
    FreeAndNIL(AStream);
  end;
end;



end.