coding something How do I cheat? Reputation: 0
Joined: 11 Mar 2020 Posts: 5
|
Posted: Sun Mar 15, 2020 11:01 am Post subject: Exception raised |
|
|
i edited the code of CE and compiled it already, it open normally, but when i try to add address manually it raise a exception and the program stop. i attached a image of the exception, when i click on the exception windows the ide showme where the code raised that exception.
Code: | function TControl.GetText: TCaption;
var
len: Integer;
GetTextMethod: TMethod;
begin
// Check if GetTextBuf is overridden, otherwise we can call RealGetText directly
Assert(Assigned(@Self.GetTextBuf), 'TControl.GetText: GetTextBuf Method is Nil');
[b] GetTextMethod := TMethod(@Self.GetTextBuf);[/b] // this line raised that exception
if GetTextMethod.Code = Pointer(@TControl.GetTextBuf) then begin
Result := RealGetText;
end
else begin
// Bummer, we have to do it the compatible way.
DebugLn('Note: GetTextBuf is overridden for: ', Classname);
len := GetTextLen;
if len = 0 then begin
Result := '';
end
else begin
SetLength(Result, len+1); // make sure there is room for the extra #0
FillChar(Result[1], len, #0);
len := GetTextBuf(@Result[1], len+1);
SetLength(Result, len);
end;
end;
end; |
any idea ?[/b]
Description: |
|
Filesize: |
19.3 KB |
Viewed: |
5463 Time(s) |
|
|
|