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

implemented TIDEExceptions.LoadFromXMLConfig and SaveToXMLConfig

Browse Source 
git-svn-id: trunk@6329 -
This commit is contained in:
vincents 2004-12-03 14:35:30 +00:00
parent cd48c6349c
commit aa49666b28
3 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/README.txt
View File

@ -9,6 +9,9 @@ custom
Obsolete: Use packages instead Obsolete: Use packages instead
User defined components for the IDE User defined components for the IDE
fpcunit
template for a fpcunit gui test runner
gtk gtk
GTK specific components GTK specific components

30
debugger/debugger.pp
View File

@ -121,6 +121,7 @@ const
XMLBreakPointsNode = 'BreakPoints'; XMLBreakPointsNode = 'BreakPoints';
XMLBreakPointGroupsNode = 'BreakPointGroups'; XMLBreakPointGroupsNode = 'BreakPointGroups';
XMLWatchesNode = 'Watches'; XMLWatchesNode = 'Watches';
XMLExceptionsNode = 'Exceptions';
type type
EDebuggerException = class(Exception); EDebuggerException = class(Exception);
@ -3514,14 +3515,36 @@ end;
procedure TIDEExceptions.LoadFromXMLConfig (const AXMLConfig: TXMLConfig; procedure TIDEExceptions.LoadFromXMLConfig (const AXMLConfig: TXMLConfig;
const APath: string); const APath: string);
var
NewCount: Integer;
i: Integer;
IDEException: TIDEException;
begin begin
// TODO Clear;
NewCount := AXMLConfig.GetValue(APath + 'Count', 0);
for i := 0 to NewCount-1 do
begin
IDEException := TIDEException(inherited Add(''));
IDEException.LoadFromXMLConfig(AXMLConfig,
Format('%sItem%d/', [APath, i + 1]));
end;
end; end;
procedure TIDEExceptions.SaveToXMLConfig (const AXMLConfig: TXMLConfig; procedure TIDEExceptions.SaveToXMLConfig (const AXMLConfig: TXMLConfig;
const APath: string); const APath: string);
var
Cnt: Integer;
i: Integer;
IDEException: TIDEException;
begin begin
// TODO Cnt := Count;
AXMLConfig.SetDeleteValue(APath + 'Count', Cnt, 0);
for i := 0 to Cnt - 1 do
begin
IDEException := Items[i];
IDEException.SaveToXMLConfig(AXMLConfig,
Format('%sItem%d/', [APath, i + 1]));
end;
end; end;
procedure TIDEExceptions.SetItem(const AIndex: Integer; procedure TIDEExceptions.SetItem(const AIndex: Integer;
@ -3552,6 +3575,9 @@ finalization
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.66 2004/12/03 14:35:30 vincents
implemented TIDEExceptions.LoadFromXMLConfig and SaveToXMLConfig
Revision 1.65 2004/11/23 12:25:47 vincents Revision 1.65 2004/11/23 12:25:47 vincents
fixed fpc 1.0.x compilation fixed fpc 1.0.x compilation

5
ide/debugmanager.pas
View File

@ -1495,6 +1495,7 @@ begin
@Project1.LongenFilename, @Project1.LongenFilename,
@FBreakPointGroups.GetGroupByName); @FBreakPointGroups.GetGroupByName);
FWatches.LoadFromXMLConfig(XMLConfig,'Debugging/'+XMLWatchesNode+'/'); FWatches.LoadFromXMLConfig(XMLConfig,'Debugging/'+XMLWatchesNode+'/');
FExceptions.LoadFromXMLConfig(XMLConfig,'Debugging/'+XMLExceptionsNode+'/');
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -1509,6 +1510,7 @@ begin
FBreakPoints.SaveToXMLConfig(XMLConfig,'Debugging/'+XMLBreakPointsNode+'/', FBreakPoints.SaveToXMLConfig(XMLConfig,'Debugging/'+XMLBreakPointsNode+'/',
@Project1.ShortenFilename); @Project1.ShortenFilename);
FWatches.SaveToXMLConfig(XMLConfig,'Debugging/'+XMLWatchesNode+'/'); FWatches.SaveToXMLConfig(XMLConfig,'Debugging/'+XMLWatchesNode+'/');
FExceptions.SaveToXMLConfig(XMLConfig,'Debugging/'+XMLExceptionsNode+'/');
end; end;
procedure TDebugManager.DoRestoreDebuggerMarks(AnUnitInfo: TUnitInfo); procedure TDebugManager.DoRestoreDebuggerMarks(AnUnitInfo: TUnitInfo);
@ -1941,6 +1943,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.80 2004/12/03 14:35:30 vincents
implemented TIDEExceptions.LoadFromXMLConfig and SaveToXMLConfig
Revision 1.79 2004/11/24 08:18:13 mattias Revision 1.79 2004/11/24 08:18:13 mattias
TTextStrings improvements (Exchange, Put), clean ups TTextStrings improvements (Exchange, Put), clean ups