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

TCustomStringGrid.LoadfromCSVFile: use StrictDelimiter. Fixes issue #22054

Browse Source 
git-svn-id: trunk@37318 -
This commit is contained in:
bart 2012-05-18 16:29:50 +00:00
parent 98e6ec0f7e
commit 692d98a01c
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/grids.pas
View File

@ -10229,7 +10229,8 @@ procedure TCustomStringGrid.LoadFromCSVFile(AFilename: string;
ADelimiter:Char=','; WithHeader:boolean=true);
var
L,SubL: TStringList;
i,j,StartRow: Integer;
i,j,x,StartRow: Integer;
S: String;
begin
L := TStringList.Create;
SubL := TStringList.Create;
@ -10245,7 +10246,17 @@ begin
if L.Count>0 then begin
SubL.Delimiter:=ADelimiter;
//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
for x := 0 to SubL.Count - 1 do
begin
S := SubL.Strings[x];
if (Length(S) > 1) and (S[1] = '"')
and (S[Length(S)] = '"') then
SubL.Strings[x] := AnsiDeQuotedStr(S,'"');
end;
if Columns.Enabled then begin
while Columns.VisibleCount<>SubL.Count do
@ -10277,7 +10288,17 @@ begin
for i:=StartRow to RowCount-1 do begin
Rows[i].Delimiter := ADelimiter;
//do not allow #32 as separator in csv files
Rows[i].StrictDelimiter := True;
Rows[i].DelimitedText:=L[i-StartRow+j];
//using StrictDelimiter means we have to handle quoted strings ourselfs
for x := 0 to Rows[i].Count - 1 do
begin
S := Rows[i].Strings[x];
if (Length(S) > 1) and (S[1] = '"')
and (S[Length(S)] = '"') then
Rows[i].Strings[x] := AnsiDeQuotedStr(S,'"');
end;
end;
end;
finally