paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 17:59:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@26129 -
This commit is contained in:
mattias 2010-06-15 11:00:14 +00:00
parent 466f67f457
commit 30d2db57ba
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/replacenamesunit.pas
View File

@ -81,6 +81,7 @@ var
List: TStringList; List: TStringList;
i: Integer; i: Integer;
begin begin
Result:=true;
List:=TStringList.Create; List:=TStringList.Create;
try try
AGrid.BeginUpdate; AGrid.BeginUpdate;
@ -105,6 +106,7 @@ var
OldIdent, NewIdent: string; OldIdent, NewIdent: string;
i: Integer; i: Integer;
begin begin
Result:=true;
AMap.Clear; AMap.Clear;
// Collect (maybe edited) properties from StringGrid to fStringMap. // Collect (maybe edited) properties from StringGrid to fStringMap.
for i:=1 to AGrid.RowCount-1 do begin // Skip the fixed row. for i:=1 to AGrid.RowCount-1 do begin // Skip the fixed row.