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

LazUtils, cvsutils: load from file version

Browse Source 
git-svn-id: trunk@48825 -
This commit is contained in:
jesus 2015-04-24 04:53:00 +00:00
parent f86b0cb7af
commit 54dee07964
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/lazutils/lcsvutils.pas
View File

@ -14,6 +14,8 @@ type
procedure LoadFromCSVStream(AStream:TStream; AProc: TCSVRecordProc; procedure LoadFromCSVStream(AStream:TStream; AProc: TCSVRecordProc;
ADelimiter:Char=','; CSVEncoding:TCSVEncoding=ceAuto); ADelimiter:Char=','; CSVEncoding:TCSVEncoding=ceAuto);
procedure LoadFromCSVFile(aFilename: string; AProc: TCSVRecordProc;
ADelimiter:Char=','; CSVEncoding:TCSVEncoding=ceAuto);
implementation implementation
@ -262,5 +264,18 @@ begin
end; end;
end; end;
procedure LoadFromCSVFile(aFilename: string; AProc: TCSVRecordProc;
ADelimiter: Char; CSVEncoding: TCSVEncoding);
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(aFilename, fmOpenRead);
try
LoadFromCSVStream(Stream, AProc, ADelimiter, CSVEncoding);
finally
Stream.Free;
end;
end;
end. end.