Перекидка всех данных в DBF с кодировки Dos866 в Win1251

[Stilet]

Все чем могу в данной ситуации:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,db, dbf, FileUtil, Forms, Controls, Graphics, Dialogs,
  ComCtrls, ShellCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Dbf1: TDbf;
    ShellTreeView1: TShellTreeView;
    procedure ShellTreeView1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ShellTreeView1Click(Sender: TObject);
var p:string; i:integer;
begin
 p:=ShellTreeView1.GetPathFromNode(ShellTreeView1.Selected);
 if ExtractFileExt(p)<>'.dbf' then exit;
 Dbf1.FilePath:=ExtractFilePath(p);
 Dbf1.TableName:=ExtractFileName(p);
 Dbf1.Active:=true;
 while not Dbf1.EOF do begin
   for i:=0 to dbf1.FieldCount-1 do begin
     if dbf1.Fields[i].DataType in [ftString] then begin
       dbf1.Edit;
       dbf1.Fields[i].AsString:=Utf8ToAnsi(ConsoleToUTF8(dbf1.Fields[i].AsString));
       dbf1.Post;
     end;
   end;
   dbf1.Next;
 end;
 Dbf1.Active:=false;
 ShowMessage('ok');
end;

end.

Аналогично можно сделать в Делфи компонентами ADO, если нет TDbf под рукой.

[VitProff]

Этот код меняет кодировку а мне ещё нужно чтоб данные с этой DBF записивались в другую пустую DBF.

[Аватар]

Ну и что? Писать не в эту же, а в другую таблицу. И не только перекодированные поля, а и все остальные