UtilsSys.pas 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. {
  2. This Delphi unit is part of TIGCC.
  3. Copyright (C) 2000-2004 Sebastian Reichelt
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2, or (at your option)
  7. any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software Foundation,
  14. Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  15. }
  16. unit UtilsSys;
  17. interface
  18. uses
  19. Windows, SysUtils, Classes;
  20. function LastPos (const Substr, S: string): Integer;
  21. var
  22. AppLocationDir: string; // the directory where the program was started from, with a '\' at the end
  23. implementation
  24. function LastPos;
  25. var
  26. I: Integer;
  27. begin
  28. for I := Length (S) - Length (Substr) + 1 downto 1 do begin
  29. if Copy (S, I, Length (SubStr)) = Substr then begin
  30. Result := I;
  31. Exit;
  32. end;
  33. end;
  34. Result := 0;
  35. end;
  36. initialization
  37. AppLocationDir := ExtractFilePath (ParamStr (0));
  38. end.