Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- constructor TMPluginMethod.Create(Address: Pointer; Header: String);
- begin
- FHeader := Trim(Header);
- FAddress := Address;
- if (FHeader[Length(FHeader)] <> ';') then
- FHeader := FHeader + ';';
- if FHeader.EndsWith('native;', True) then
- begin
- SetLength(FHeader, Length(FHeader) - Length('native;'));
- FHeader := Trim(FHeader);
- FNative := FHeader[Length(FHeader)] = ';';
- if not FNative then FHeader := FHeader + ';';
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement