utilssys.pas

来自「这是一个有关文本编辑器的源程序,支持彩色语法,你可以任意修改,修改后发给我一份」· PAS 代码 · 共 31 行

unit UtilsSys;

interface

uses
	Windows, SysUtils, Classes;

function LastPos (const Substr, S: string): Integer;

var
	AppLocationDir: string; // the directory where the program was started from, with a '\' at the end

implementation

function LastPos;
var
	I: Integer;
begin
	for I := Length (S) - Length (Substr) + 1 downto 1 do begin
		if Copy (S, I, Length (SubStr)) = Substr then begin
			Result := I;
			Exit;
		end;
	end;
	Result := 0;
end;

initialization
	AppLocationDir := ExtractFilePath (ParamStr (0));
end.