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

IdeIntf: remove useless code in TLazPackageID.UpdateIDAsString

Browse Source 
git-svn-id: trunk@45962 -
This commit is contained in:
juha 2014-07-23 21:46:33 +00:00
parent ed5b839859
commit fbb1fc2c84
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/packageintf.pas
View File

@ -587,14 +587,10 @@ procedure TLazPackageID.UpdateIDAsString;
begin
FIDAsString:=Version.AsString;
if FIDAsString<>'' then
FIDAsString:=Name+' '+FIDAsString
else
FIDAsString:=FIDAsString;
FIDAsString:=Name+' '+FIDAsString;
FIDAsWord:=Version.AsWord;
if FIDAsWord<>'' then
FIDAsWord:=Name+FIDAsWord
else
FIDAsWord:=FIDAsWord;
FIDAsWord:=Name+FIDAsWord;
end;
procedure TLazPackageID.VersionChanged(Sender: TObject);