Watch, Follow, &
Connect with Us

Please visit our new home
community.embarcadero.com.


Welcome, Guest
Guest Settings
Help

Thread: System unit out of date or corrupted: missing 'TClassHelperBase


This question is not answered. Helpful answers available: 2. Correct answers available: 1.


Permlink Replies: 2 - Last Post: Apr 10, 2018 9:27 AM Last Post By: Mark Moss Threads: [ Previous | Next ]
Mark Moss

Posts: 7
Registered: 9/20/99
System unit out of date or corrupted: missing 'TClassHelperBase  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Apr 9, 2018 12:28 PM
HELP

I have created this unit from examples that I have seen on the internet, but when I place the 'RTF_Unit' name in the uses clause of a project an go to compile using Delphi7, I am getting an error message of
"System unit out of date or corrupted: missing 'TClassHelperBase"

Does anyone know how to fix this problem?

Any help would be greatly appreciated.

Mark Moss

{=============================================================================}

unit RTF_Unit;

interface

uses
ComCtrls, SysUtils, Classes;

type
TRichEditHelper = class helper for TRichEdit
private
function GetRTFString: string;
procedure SetRTFString( const Value: string );
published
property RTFString : string read GetRTFString write SetRTFString;
end;

implementation

{ TRichEditHelper }
{==============================================================================}

function TRichEditHelper.GetRTFString: string;
var
ss : TStringStream;

begin

ss := TStringStream.Create(s);

Lines.SaveToStream( ss );

ss.Position := 0;

result := ss.DataString;

FreeAndNil( ss );

end;

{==============================================================================}

procedure TRichEditHelper.SetRTFString( const Value: string );
var
ss : TStringStream;

begin

ss := TStringStream.Create(s);

ss/WriteString( Value );

ss.Position := 0;

Lines.LoadFromStream( ss );

FreeAndNil( ss );

end;

{==============================================================================}

end.

Remy Lebeau (Te...


Posts: 9,447
Registered: 12/23/01
Re: System unit out of date or corrupted: missing 'TClassHelperBase  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Apr 9, 2018 12:50 PM   in response to: Mark Moss in response to: Mark Moss
Mark Moss wrote:

I have created this unit from examples that I have seen on the
internet, but when I place the 'RTF_Unit' name in the uses clause of
a project an go to compile using Delphi7, I am getting an error
message of "System unit out of date or corrupted: missing
'TClassHelperBase"

Delphi 7 does not support class helpers. That feature was added in
Delphi 2005 (but was initially buggy and was not stable until Delphi
2006).

--
Remy Lebeau (TeamB)
Mark Moss

Posts: 4
Registered: 9/15/14
Re: System unit out of date or corrupted: missing 'TClassHelperBase  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Apr 10, 2018 9:27 AM   in response to: Remy Lebeau (Te... in response to: Remy Lebeau (Te...
Remy

Is there anyway to fix this so that it will work?
Legend
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02