Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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;