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

LCL: cleanup and formatting, removed a left-over for loop

Browse Source 
git-svn-id: trunk@37503 -
This commit is contained in:
juha 2012-06-03 17:50:53 +00:00
parent 9cfccbdc1a
commit c25ec11dc4
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/grids.pas
View File

@ -10334,7 +10334,7 @@ procedure TCustomStringGrid.LoadFromCSVStream(AStream: TStream;
var
Lines, HeaderL: TStringList;
i, j, x, StartRow: Integer;
i, j, StartRow: Integer;
S: String;
begin
Lines := TStringList.Create;
@ -10348,7 +10348,6 @@ begin
Lines.Delete(i);
if Lines.Count>0 then begin
ParseDelimitedText(Lines[0], ADelimiter, '"', HeaderL);
for x := 0 to HeaderL.Count - 1 do
// Set Columns count based on loaded data
if Columns.Enabled then begin
while Columns.VisibleCount<>HeaderL.Count do
@ -10366,11 +10365,9 @@ begin
RowCount := FixedRows + Lines.Count-1;
// Set column captions and set StartRow for the following rows
if WithHeader then begin
if FixedRows>0 then
if Columns.Enabled then begin
for i:=0 to Columns.Count-1 do
Columns[i].Title.Caption:=HeaderL[i]
end;
if (FixedRows>0) and Columns.Enabled then
for i:=0 to Columns.Count-1 do
Columns[i].Title.Caption:=HeaderL[i];
StartRow := Max(FixedRows-1, 0);
j := 0;
end else begin