1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 02:32:19 -05: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; ALLOW_ALWAYS_DIR = 4;
DENY_ALWAYS_DIR = 5; DENY_ALWAYS_DIR = 5;
{$IFDEF WINDOWS}
DirectorySeparator = '\'; DirectorySeparator = '\';
{$ELSE}
DirectorySeparator = '/';
{$ENDIF}
{ var Settings_DEFAULT_(URL|FILE): Integer; { var Settings_DEFAULT_(URL|FILE): Integer;
Depict the default option for when the Option dialog times out. These values 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 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])); //Writeln(Format('Dir [%s] File [%s]', [dir, FileName]));