1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00

Few cleanups.

It still doesn't work as pretty as it should, but it seems to work...
This commit is contained in:
Merlijn Wajer 2010-07-19 13:15:45 +02:00
parent 6e7b98414b
commit 72cecd9e7a

View File

@ -53,7 +53,11 @@ const
ALLOW_ALWAYS_DIR = 4;
DENY_ALWAYS_DIR = 5;
{$IFDEF WINDOWS}
DirectorySeparator = '\';
{$ELSE}
DirectorySeparator = '/';
{$ENDIF}
{ var Settings_DEFAULT_(URL|FILE): Integer;
Depict the default option for when the Option dialog times out. These values
@ -473,7 +477,7 @@ begin
{
check if in either Allowed_URLs, or Local_Allowed_URL
}
dir := Copy(FileName, 1, LastPos('\', FileName));
dir := Copy(FileName, 1, LastPos(DirectorySeparator, FileName));
//Writeln(Format('Dir [%s] File [%s]', [dir, FileName]));