pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@47 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck
2009-09-22 15:17:32 +00:00
parent 49a3a428b1
commit 9d26444098
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
KOL.pas
View File

@ -22384,16 +22384,17 @@ asm
CALL System.@LStrFromPCharLen
end;
{$ELSE} //Pascal
function ExtractFilePath( const Path : KOLString ) : KOLString;
//var I : Integer;
var P, P0: PKOLChar;
function ExtractFilePath(const Path: KOLString): KOLString;
var
i: Integer;
begin
P0 := PKOLChar( Path );
P := __DelimiterLast( P0, ':\/' );
if P^ = #0 then
Result := ''
else
Result := Copy( Path, 1, P - P0 + 1 );
for i := Length(Path) - 1 downto 1 do begin
if (Path[i] = '\') then begin
Result := Copy(Path, 1, i);
Exit;
end;
end;
Result := Path;
end;
{$ENDIF ASM_VERSION}