32 lines
568 B
ObjectPascal
32 lines
568 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
|
||
|
|
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.
|