Jump to content

wuwuxin

Members
  • Content Count

    79
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by wuwuxin

  1. TMyFunkyRecord = record end; function MyFunkyFunction(AData: ^TMyFUnkyRecord): ^TMyFunkyRecord; Delphi gives me error saying : E2029 Identifier expected but '^' found I know I can define PMyFunkyRecord = ^TMyFunkyRecord; But Is the above code using pointer directly illegal?
  2. In C#, there is a Uri.IsWellFormedUriString Does Delphi provide a similar utility?
  3. @Dave Novo Dave - many thanks for the heads up. Following your advice, I resorted to RegEx, using the following code, and it works well for me. I posted the code here, in case someone may have the same needs. Thanks again. procedure MyFunkyRegExProcedure; const sUrlRegEx: String = '^'#10 + '(# Scheme'#10 + ' [a-z][a-z0-9+\-.]*:'#10 + ' (# Authority & path'#10 + ' //'#10 + ' ([a-z0-9\-._~%!$&''()*+,;=]+@)? # User'#10 + ' ([a-z0-9\-._~%]+ # Named host'#10 + ' |\[[a-f0-9:.]+\] # IPv6 host'#10 + ' |\[v[a-f0-9][a-z0-9\-._~%!$&''()*+,;=:]+\]) # IPvFuture host'#10 + ' (:[0-9]+)? # Port'#10 + ' (/[a-z0-9\-._~%!$&''()*+,;=:@]+)*/? # Path'#10 + ' |# Path without authority'#10 + ' (/?[a-z0-9\-._~%!$&''()*+,;=:@]+(/[a-z0-9\-._~%!$&''()*+,;=:@]+)*/?)?'#10 + ' )'#10 + '|# Relative URL (no scheme or authority)'#10 + ' ([a-z0-9\-._~%!$&''()*+,;=@]+(/[a-z0-9\-._~%!$&''()*+,;=:@]+)*/? # Relative path'#10 + ' |(/[a-z0-9\-._~%!$&''()*+,;=:@]+)+/?) # Absolute path'#10 + ')'#10 + '# Query'#10 + '(\?[a-z0-9\-._~%!$&''()*+,;=:@/?]*)?'#10 + '# Fragment'#10 + '(\#[a-z0-9\-._~%!$&''()*+,;=:@/?]*)?'#10 + '$'; begin var LRegEx := TRegEx.Create(sUrlRegEx, [roIgnoreCase, roIgnorePatternSpace]); var LMatch := LRegEx.Match(FUrl); end;
  4. wuwuxin

    MMX for Delphi 10.3 Rio

    MMX editor context menu entry - still not available with the latest 14.0.4 version (Delphi RIO)?
×