Utils for CSV writing
var
writer: ICSVWriter;
begin
writer:=TCSVWriter.Create;
writer.Fields(['PLU','Name','Supplier'])
.Field('Quantity')
.Field('Price')
//.QuoteStr(True)
//.Delimiter('|')
.AddRow
.Value('Name','Zkouska 110')
.Value('PLU',110)
.Value('Supplier','AnyFirm')
.Value('Price',123.50)
.AddRow
.Value('PLU',100)
.Value('Name','Zkouska 100')
.Value('Supplier','AnyFirm')
.Value('Quantity',100.23)
.AddRow
.Value('Name','Zkouska 200')
.Value('PLU',200)
.Value('Supplier','AnyFirm')
.AddRow
.Value('PLU',300)
.Value('Supplier','AnyFirm')
.SaveToFile('Test.CSV');
end;