Read and modify existing CSV files:

with TCsv.Create do
try
LoadAnsiFile('c:\data.csv');
ShowMessage(ToString);

if (LineCount > 1) and (FieldCount[1] > 2) then
Fields[1, 2] := 'New value';
ShowMessage(ToString);
finally
Free;
end;

Create new CSV files:

with TCsv.Create do
try
LineCount := 10;
for i := 0 to LineCount - 1 do
begin
FieldCount[i] := 3;
for j := 0 to FieldCount[i] - 1 do
Fields[i, j] := 'Field ' + IntToStr(i) + ' ' + IntToStr(j);
end;

ToUtf8File('c:\new.csv');
finally
Free;
end;

Use fast TCsvWriter to create CSV file without in-memory overhead of TCsv class:

with TCsvWriter.Create('export.csv') do
try
Write('Field 1 1');
Write('Field 1 2');
Write('Field 1 3');

NextLine;

Write('Field 2 1');
Write('Field 2 2');
Write('Field 2 3');

NextLine;

Write('Field 3 1');
Write('Field 3 2');
Write('Field 3 3');
finally
Free;
end;



Only for V.I.P