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

win32: fix range check error in open/save dialogs code (#0012336)

Browse Source 
git-svn-id: trunk@16954 -
This commit is contained in:
paul 2008-10-11 08:11:01 +00:00
parent e5de689ab4
commit 3c20093934
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -174,7 +174,7 @@ var
procedure SetFilesPropertyCustomFiles(AFiles:TStrings);
var
i, Start: integer;
i, Start, len: integer;
FolderName: string;
FileNames: String;
begin
@ -194,17 +194,18 @@ var
FileNames := DialogRec^.AnsiFileNames;
{$endif}
FolderName := AppendPathDelim(FolderName);
if (Length(FileNames) > 0) and (FileNames[1] = '"') then
len := Length(FileNames);
if (len > 0) and (FileNames[1] = '"') then
begin
Start := 1; // first quote is on pos 1
while FileNames[Start] <> #0 do
while (start <= len) and (FileNames[Start] <> #0) do
begin
i := Start + 1;
while FileNames[i] <> '"' do
inc(i);
AFiles.Add(FolderName + Copy(FileNames, Start + 1, I - Start - 1));
start := i+1;
while (FileNames[Start] <> #0) and (FileNames[start] <> '"') do
while (start <= len) and (FileNames[Start] <> #0) and (FileNames[start] <> '"') do
inc(Start);
end;
end