paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:39:11 +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 begin
FIDAsString:=Version.AsString; FIDAsString:=Version.AsString;
if FIDAsString<>'' then if FIDAsString<>'' then
FIDAsString:=Name+' '+FIDAsString FIDAsString:=Name+' '+FIDAsString;
else
FIDAsString:=FIDAsString;
FIDAsWord:=Version.AsWord; FIDAsWord:=Version.AsWord;
if FIDAsWord<>'' then if FIDAsWord<>'' then
FIDAsWord:=Name+FIDAsWord FIDAsWord:=Name+FIDAsWord;
else
FIDAsWord:=FIDAsWord;
end; end;
procedure TLazPackageID.VersionChanged(Sender: TObject); procedure TLazPackageID.VersionChanged(Sender: TObject);