paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:00:16 +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

6
ide/initialsetupdlgs.pas
View File

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