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

LCL: Implement LoadFromCSVFile and SaveToCSVStream for TCustomStringGrid. Related to issue #22139

Browse Source 
git-svn-id: trunk@37436 -
This commit is contained in:
juha 2012-05-27 17:19:36 +00:00
parent 38a49eae3f
commit 6d009e924d
1 changed files with 79 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
lcl/grids.pas
View File

@ -1552,8 +1552,11 @@ type
procedure Clean(aRect: TRect; CleanOptions: TGridZoneSet); overload; procedure Clean(aRect: TRect; CleanOptions: TGridZoneSet); overload;
procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload; procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload;
procedure CopyToClipboard(AUseSelection: boolean = false); procedure CopyToClipboard(AUseSelection: boolean = false);
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true); procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true);
procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
procedure SaveToCSVFile(AFileName: string; ADelimiter: Char=','; WithHeader: boolean=true); procedure SaveToCSVFile(AFileName: string; ADelimiter: Char=','; WithHeader: boolean=true);
property Cells[ACol, ARow: Integer]: string read GetCells write SetCells; property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;
property Cols[index: Integer]: TStrings read GetCols write SetCols; property Cols[index: Integer]: TStrings read GetCols write SetCols;
property DefaultTextStyle; property DefaultTextStyle;
@ -10219,59 +10222,54 @@ begin
CopyCellRectToClipboard(Rect(0,0,ColCount-1,RowCount-1)); CopyCellRectToClipboard(Rect(0,0,ColCount-1,RowCount-1));
end; end;
procedure TCustomStringGrid.LoadFromCSVFile(AFilename: string; procedure TCustomStringGrid.LoadFromCSVStream(AStream: TStream;
ADelimiter: Char=','; WithHeader: boolean=true); ADelimiter: Char=','; WithHeader: boolean=true);
var var
L,SubL: TStringList; Lines, HeaderL: TStringList;
i, j, x, StartRow: Integer; i, j, x, StartRow: Integer;
S: String; S: String;
begin begin
L := TStringList.Create; Lines := TStringList.Create;
SubL := TStringList.Create; HeaderL := TStringList.Create;
BeginUpdate; BeginUpdate;
try try
L.LoadFromFile(AFilename); Lines.LoadFromStream(AStream);
// check for empty lines // check for empty lines
for i:=L.Count-1 downto 0 do for i:=Lines.Count-1 downto 0 do
if Trim(L[i])='' then if Trim(Lines[i])='' then
L.Delete(i); Lines.Delete(i);
if Lines.Count>0 then begin
if L.Count>0 then begin HeaderL.Delimiter:=ADelimiter;
HeaderL.StrictDelimiter := True; // Do not allow #32 as separator in csv files
SubL.Delimiter:=ADelimiter; HeaderL.DelimitedText:=Lines[0]; // Use the first row as a header
//do not allow #32 as separator in csv files
SubL.StrictDelimiter := True;
SubL.DelimitedText:=L[0];
//using StrictDelimiter means we have to handle quoted strings ourselfs //using StrictDelimiter means we have to handle quoted strings ourselfs
for x := 0 to SubL.Count - 1 do for x := 0 to HeaderL.Count - 1 do
begin begin
S := SubL.Strings[x]; S := HeaderL[x];
if (Length(S) > 1) and (S[1] = '"') if (Length(S) > 1) and (S[1] = '"') and (S[Length(S)] = '"') then
and (S[Length(S)] = '"') then HeaderL[x] := AnsiDeQuotedStr(S,'"');
SubL.Strings[x] := AnsiDeQuotedStr(S,'"');
end; end;
// Set Columns count based on loaded data
if Columns.Enabled then begin if Columns.Enabled then begin
while Columns.VisibleCount<>SubL.Count do while Columns.VisibleCount<>HeaderL.Count do
if Columns.VisibleCount<SubL.Count then if Columns.VisibleCount<HeaderL.Count then
Columns.Add Columns.Add
else else
Columns.Delete(Columns.Count-1); Columns.Delete(Columns.Count-1);
end else end
ColCount := SubL.Count;
if WithHeader and (FixedRows=0) then
RowCount := L.Count
else else
RowCount := FixedRows + L.Count-1; ColCount := HeaderL.Count; // New column count
// Rest of the lines are for rows
if WithHeader and (FixedRows=0) then
RowCount := Lines.Count
else
RowCount := FixedRows + Lines.Count-1;
// Set column captions and set StartRow for the following rows
if WithHeader then begin if WithHeader then begin
// load header
if FixedRows>0 then if FixedRows>0 then
if Columns.Enabled then begin if Columns.Enabled then begin
for i:=0 to Columns.Count-1 do for i:=0 to Columns.Count-1 do
Columns[i].Title.Caption:=SubL[i] Columns[i].Title.Caption:=HeaderL[i]
end; end;
StartRow := Max(FixedRows-1, 0); StartRow := Max(FixedRows-1, 0);
j := 0; j := 0;
@ -10279,57 +10277,68 @@ begin
StartRow := FixedRows; StartRow := FixedRows;
j := 1; j := 1;
end; end;
// Store the row data
for i:=StartRow to RowCount-1 do begin for i:=StartRow to RowCount-1 do begin
Rows[i].Delimiter := ADelimiter; Rows[i].Delimiter := ADelimiter;
//do not allow #32 as separator in csv files //do not allow #32 as separator in csv files
Rows[i].StrictDelimiter := True; Rows[i].StrictDelimiter := True;
Rows[i].DelimitedText:=L[i-StartRow+j]; Rows[i].DelimitedText:=Lines[i-StartRow+j];
//using StrictDelimiter means we have to handle quoted strings ourselfs //using StrictDelimiter means we have to handle quoted strings ourselfs
for x := 0 to Rows[i].Count - 1 do for x := 0 to Rows[i].Count - 1 do
begin begin
S := Rows[i].Strings[x]; S := Rows[i][x];
if (Length(S) > 1) and (S[1] = '"') if (Length(S) > 1) and (S[1] = '"') and (S[Length(S)] = '"') then
and (S[Length(S)] = '"') then Rows[i][x] := AnsiDeQuotedStr(S,'"');
Rows[i].Strings[x] := AnsiDeQuotedStr(S,'"');
end; end;
end; end;
end; end;
finally finally
SubL.Free; HeaderL.Free;
L.Free; Lines.Free;
EndUpdate; EndUpdate;
end; end;
end; end;
procedure TCustomStringGrid.SaveToCSVFile(AFileName: string; ADelimiter:Char=','; WithHeader:boolean=true); procedure TCustomStringGrid.LoadFromCSVFile(AFilename: string;
ADelimiter: Char=','; WithHeader: boolean=true);
var
TheStream: TFileStream;
begin
TheStream:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
try
LoadFromCSVStream(TheStream, ADelimiter, WithHeader);
finally
TheStream.Free;
end;
end;
procedure TCustomStringGrid.SaveToCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
var var
F: TextFile;
i,StartRow: Integer; i,StartRow: Integer;
L: TStringList; HeaderL, Lines: TStringList;
C: TGridColumn; C: TGridColumn;
begin begin
if (RowCount=0) or (ColCount=0) then if (RowCount=0) or (ColCount=0) then
exit; exit;
AssignFile(F, AFilename); Lines := TStringList.Create;
try try
Rewrite(F);
if WithHeader then begin if WithHeader then begin
if Columns.Enabled then begin if Columns.Enabled then begin
if FixedRows>0 then begin if FixedRows>0 then begin
L := TStringList.Create; HeaderL := TStringList.Create;
try try
// Collect header column names to a temporary StringList
for i := 0 to ColCount-1 do begin for i := 0 to ColCount-1 do begin
c := ColumnFromGridColumn(i); c := ColumnFromGridColumn(i);
if c=nil then if c=nil then
L.Add(Cells[i, 0]) HeaderL.Add(Cells[i, 0])
else else
L.Add(c.Title.Caption); HeaderL.Add(c.Title.Caption);
end; end;
L.Delimiter:=ADelimiter; HeaderL.Delimiter:=ADelimiter;
WriteLn(F, L.DelimitedText); Lines.Add(HeaderL.DelimitedText); // Add as a first row in Lines
finally finally
L.Free; HeaderL.Free;
end; end;
end; end;
StartRow := FixedRows; StartRow := FixedRows;
@ -10342,13 +10351,25 @@ begin
StartRow := FixedRows; StartRow := FixedRows;
for i:=StartRow to RowCount-1 do begin for i:=StartRow to RowCount-1 do begin
Rows[i].Delimiter:=ADelimiter; Rows[i].Delimiter:=ADelimiter;
WriteLn(F, Rows[i].DelimitedText); Lines.Add(Rows[i].DelimitedText);
end; end;
Lines.SaveToStream(AStream);
finally finally
CloseFile(F); Lines.Free;
end; end;
end; end;
procedure TCustomStringGrid.SaveToCSVFile(AFileName: string; ADelimiter: Char=','; WithHeader: boolean=true);
var
TheStream: TFileStream;
begin
TheStream:=TFileStream.Create(AFileName,fmCreate);
try
SaveToCSVStream(TheStream, ADelimiter, WithHeader);
finally
TheStream.Free;
end;
end;
procedure Register; procedure Register;
begin begin