paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 11:08:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: improve UrlArrayFromLCLToNS() to detect whether the string contains URL scheme

Browse Source
This commit is contained in:
rich2014 2024-09-10 23:00:13 +08:00
parent 65c7200270
commit 9a1bfd8663
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/cocoa/cocoautils.pas
View File

@ -186,15 +186,20 @@ end;
function UrlArrayFromLCLToNS(const lclArray:TStringArray): NSArray;
var
cocoaArray: NSMutableArray;
url: NSUrl;
cocoaUrl: NSUrl;
cocoaUrlString: NSString;
i: Integer;
count: Integer;
begin
count:= length( lclArray );
cocoaArray:= NSMutableArray.arrayWithCapacity( count );
for i:=0 to count-1 do begin
url:= NSUrl.URLWithString( StrToNSString(lclArray[i]) );
cocoaArray.addObject( url );
cocoaUrlString:= StrToNSString(lclArray[i]);
if cocoaUrlString.containsString( NSSTR('://') ) then
cocoaUrl:= NSUrl.URLWithString( cocoaUrlString )
else
cocoaUrl:= NSUrl.fileURLWithPath( cocoaUrlString );
cocoaArray.addObject( cocoaUrl );
end;
Result:= cocoaArray;
end;