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

MG: fixed run parameter saving

Browse Source 
git-svn-id: trunk@393 -
This commit is contained in:
lazarus 2001-11-06 16:21:05 +00:00
parent 96f6250917
commit c40fc48e9e
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -1023,6 +1023,7 @@ begin
Clear;
ProjectInfoFile:=LPIFilename;
writeln('TProject.ReadProject A');
try
xmlconfig := TXMLConfig.Create(ProjectInfoFile);
except
@ -1031,6 +1032,7 @@ begin
Result:=mrCancel;
exit;
end;
writeln('TProject.ReadProject B');
try
ProjectType := ProjectTypeNameToType(xmlconfig.GetValue(
@ -1504,6 +1506,9 @@ end.
{
$Log$
Revision 1.37 2001/11/06 16:21:05 lazarus
MG: fixed run parameter saving
Revision 1.36 2001/11/06 15:47:32 lazarus
MG: added build all

12
ide/runparamsopts.pas
View File

@ -186,11 +186,11 @@ function TRunParamsOptions.Load(XMLConfig: TXMLConfig;
var i, Cnt: integer;
begin
fUserOverrides.Clear;
Cnt:=XMLConfig.GetValue(APath+'/Count',0);
Cnt:=XMLConfig.GetValue(APath+'Count',0);
for i:=0 to Cnt-1 do begin
fUserOverrides.Values[XMLConfig.GetValue(
APath+'/Variable'+IntToStr(i)+'/Name','')]:=
XMLConfig.GetValue(APath+'/Variable'+IntToStr(i)+'/Value','');
APath+'Variable'+IntToStr(i)+'/Name','')]:=
XMLConfig.GetValue(APath+'Variable'+IntToStr(i)+'/Value','');
end;
end;
@ -230,11 +230,11 @@ function TRunParamsOptions.Save(XMLConfig: TXMLConfig;
procedure SaveUserOverrides(const APath: string);
var i: integer;
begin
XMLConfig.SetValue(APath+'/Count',fUserOverrides.Count);
XMLConfig.SetValue(APath+'Count',fUserOverrides.Count);
for i:=0 to fUserOverrides.Count-1 do begin
XMLConfig.SetValue(APath+'/Variable'+IntToStr(i)+'/Name',
XMLConfig.SetValue(APath+'Variable'+IntToStr(i)+'/Name',
fUserOverrides.Names[i]);
XMLConfig.SetValue(APath+'/Variable'+IntToStr(i)+'/Value',
XMLConfig.SetValue(APath+'Variable'+IntToStr(i)+'/Value',
fUserOverrides.Values[fUserOverrides.Names[i]]);
end;
end;