Advertisement
WarPie90

Untitled

May 8th, 2018
473
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.46 KB | None | 0 0
  1. constructor TMPluginMethod.Create(Address: Pointer; Header: String);
  2. begin
  3.   FHeader := Trim(Header);
  4.   FAddress := Address;
  5.  
  6.   if (FHeader[Length(FHeader)] <> ';') then
  7.     FHeader := FHeader + ';';
  8.  
  9.   if FHeader.EndsWith('native;', True) then
  10.   begin
  11.     SetLength(FHeader, Length(FHeader) - Length('native;'));
  12.  
  13.     FHeader := Trim(FHeader);
  14.     FNative := FHeader[Length(FHeader)] = ';';
  15.    
  16.     if not FNative then FHeader := FHeader + ';';
  17.   end;
  18. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement