roberto
6bdce50a89
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@156 93f398dd-4eb6-7a46-baf6-13f46f578da2
35 lines
669 B
ObjectPascal
35 lines
669 B
ObjectPascal
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
|
|
ARichEdit := TRichEdit.CreateParented(HWND_MESSAGE);
|
|
try
|
|
AStream := TStringStream.Create(Cadena);
|
|
try
|
|
ARichEdit.SelectAll;
|
|
ARichEdit.SelText := StrPas(Cadena);
|
|
Result := PChar(ARichEdit.Text);
|
|
finally
|
|
FreeAndNIL(AStream);
|
|
end;
|
|
finally
|
|
FreeAndNIL(ARichEdit);
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|