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

started loading/saving watches

Browse Source 
git-svn-id: trunk@3419 -
This commit is contained in:
mattias 2002-10-01 15:45:49 +00:00
parent 8302a7e246
commit 70f8dc0d02
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/ideprocs.pp
View File

@ -114,9 +114,9 @@ function AddToRecentList(const s: string; RecentList: TStringList;
procedure RemoveFromRecentList(const s: string; RecentList: TStringList);
procedure LoadRect(XMLConfig: TXMLConfig; const Path:string; var ARect:TRect);
procedure SaveRect(XMLConfig: TXMLConfig; const Path:string; var ARect:TRect);
procedure LoadStringList(XMLConfig: TXMLConfig; List: TStringList;
procedure LoadStringList(XMLConfig: TXMLConfig; List: TStrings;
const Path: string);
procedure SaveStringList(XMLConfig: TXMLConfig; List: TStringList;
procedure SaveStringList(XMLConfig: TXMLConfig; List: TStrings;
const Path: string);
// text conversion
@ -501,7 +501,7 @@ begin
LoadStringList(XMLConfig,List,Path);
end;
procedure LoadStringList(XMLConfig: TXMLConfig; List: TStringList;
procedure LoadStringList(XMLConfig: TXMLConfig; List: TStrings;
const Path: string);
var i,Count: integer;
s: string;
@ -514,7 +514,7 @@ begin
end;
end;
procedure SaveStringList(XMLConfig: TXMLConfig; List: TStringList;
procedure SaveStringList(XMLConfig: TXMLConfig; List: TStrings;
const Path: string);
var i: integer;
begin