procedure SetCodepage(dbf, cd :integer); — DBF Script

SetCodepage allows you to change a codepage for a dbf file dynamically.
0 - is ANSI. 1 - is OEM.


var
  dbf :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
    ReadRecord( dbf, 0 );
    SetCodepage(dbf, 0);
    WriteLn( GetStr(dbf, 0) );
    SetCodepage(dbf, 1);
    WriteLn( GetStr(dbf, 0) );
    CloseBase(dbf);
  end;
end.