Memo to CSV

[dforce13]

In my program I let things see in een TMemo.
Now my question is how to save these things in a CSV file ?

 

[Duoas]

That is a pretty general question.

A CSV file is nothing more than a bunch of lines (aka "records") which are subdivided (into "fields") by commas.

type
  tEmployee = record
              surname:    string;
              given_name: string;
              pay_rate:   double;
              hire_date:  tDateTime;
              ...
              end;

procedure write_CSV_record( var f: textfile; var e: tEmployee );
  begin
  Write( f, e.surname,      ', ' );
  Write( f, e.given_name,   ', ' );
  Write( f, e.pay_rate:0:4, ', ' );
  Write( f, FormatDateTime( 'yyyy-mm-dd', e.hire_date ), ', ' );
  ...
  Writeln( f )
  end;

procedure write_CSV_file( var f: textfile; var es: array of tEmployee );
  var n: cardinal;
  begin
  for n := 0 to high( es ) do
    write_CSV_record( f, es[ n ] )
  end;

Hope this helps get you going.

 

[DelphiAaron]

have a look at

Memo1.Lines.CommaText

Aaron