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

IDE: fixed access violation in InitialSetupDlg when path is not valid

Browse Source 
git-svn-id: trunk@29932 -
This commit is contained in:
juha 2011-03-20 16:37:09 +00:00
parent 9b84e49668
commit 49b49dd7e0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/initialsetupdlgs.pas
View File

@ -1275,9 +1275,9 @@ begin
if Dirs<>nil then begin
i:=Dirs.Count-1;
while (i>=0) and (TSDFileInfo(Dirs[i]).Caption<>Result) do dec(i);
if i>=0 then
Result:=TSDFileInfo(Dirs[i]).Filename;
end;
if i>=0 then
Result:=TSDFileInfo(Dirs[i]).Filename;
Result:=ChompPathDelim(TrimFilename(Result));
if Result<>'' then
Result:=ChompPathDelim(TrimFilename(ExpandFileNameUTF8(Result)));
@ -1293,9 +1293,9 @@ begin
if Dirs<>nil then begin
i:=Dirs.Count-1;
while (i>=0) and (TSDFileInfo(Dirs[i]).Caption<>Result) do dec(i);
if i>=0 then
Result:=TSDFileInfo(Dirs[i]).Filename;
end;
if i>=0 then
Result:=TSDFileInfo(Dirs[i]).Filename;
Result:=TrimFilename(Result);
end;
@ -1309,9 +1309,9 @@ begin
if Dirs<>nil then begin
i:=Dirs.Count-1;
while (i>=0) and (TSDFileInfo(Dirs[i]).Caption<>Result) do dec(i);
if i>=0 then
Result:=TSDFileInfo(Dirs[i]).Filename;
end;
if i>=0 then
Result:=TSDFileInfo(Dirs[i]).Filename;
Result:=ChompPathDelim(TrimFilename(Result));
end;