Импорт DBF в Oracle

//Функция берёт строку в OEM кодировке (DOS)
//и возвращает её перевод в ANSI кодировке (Windows) в виде отдельной строки.
function StrOemToAnsi(const aStr : AnsiString) : AnsiString;
var
  Len : Integer;
begin
  Len := Length(aStr);
  SetLength(Result, Len);
  OemToAnsiBuff(PAnsiChar(aStr), PAnsiChar(Result), Len);
end;
...
var
  S : AnsiString;
  x : Integer;
begin
  S := StrOemToAnsi(ADOQuery1.Fields[x].AsString); //AsAnsiString для Delphi версии выше, чем 2007.
  ShowMessage(S);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//Кнопка "Открыть БД".
procedure TForm1.Button1Click(Sender: TObject);
var
  Path, TableName : String;
  Od : TOpenDialog;
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) );
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(0, 'Файл с заданным именем не найден. Действие отменено.'
      ,'Файл не найден!', MB_YESNO + MB_ICONWARNING + MB_APPLMODAL);
  end;
 
  ADOQuery1.Close;
  //Путь к папке, в которой находится выбранный файл.
  Path := ExtractFilePath(Od.FileName);
  //Имя файла = имя таблицы.
  TableName := ExtractFileName(Od.FileName);
  Label1.Caption := 'Таблица: ' + TableName;
  //Формируем строку соединения.
  ADOQuery1.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;'
    + 'Data Source="' + Path + '";'
    + 'Extended Properties=dBASE IV;'
    + 'Persist Security Info=False;'
    + 'Mode=Share Deny None;';
  //Формируем SQL запрос.
  ADOQuery1.SQL.Text := 'select * from [' + TableName + ']';
  ADOQuery1.Open;
end;
 
//Кнопка "Закрыть БД".
procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOQuery1.Close;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//Кнопка "Открыть БД".
procedure TForm1.Button1Click(Sender: TObject);
var
  Path, TableName : String;
  Od : TOpenDialog;
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) );
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(0, 'Файл с заданным именем не найден. Действие отменено.'
      ,'Файл не найден!', MB_YESNO + MB_ICONWARNING + MB_APPLMODAL);
  end;
 
  ADOQuery1.Close;
  //Путь к папке, в которой находится выбранный файл.
  Path := ExtractFilePath(Od.FileName);
  //Имя файла = имя таблицы.
  TableName := ExtractFileName(Od.FileName);
  Label1.Caption := 'Таблица: ' + TableName;
  //Формируем строку соединения.
  ADOQuery1.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;'
    + 'Data Source="' + Path + '";'
    + 'Extended Properties=dBASE IV;'
    + 'Persist Security Info=False;'
    + 'Mode=Share Deny None;';
  //Формируем SQL запрос.
  ADOQuery1.SQL.Text := 'select * from [' + TableName + ']';
  ADOQuery1.Open;
end;
 
//Кнопка "Закрыть БД".
procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOQuery1.Close;
end;
 
//Кнопка "Распечатать строки".
procedure TForm1.Button3Click(Sender: TObject);
var
  i : Integer;
  Bm : TBookmark;
begin
  if not ADOQuery1.Active then begin
    MessageBox(Handle, 'Набор данных закрыт. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  Memo1.Clear;
  Memo1.Lines.Add('Текстовое представление данных таблицы:');
  Memo1.Lines.Add('');
  Bm := ADOQuery1.GetBookmark; //Запоминаем текущую позицию в наборе данных.
  ADOQuery1.DisableControls; //Отключаем элементы отображения данных.
  try
    ADOQuery1.First;
    while not ADOQuery1.Eof do begin
      for i := 0 to ADOQuery1.Fields.Count - 1 do
        //Если версия Delphi выше, чем 2007, то следует применить: AsAnsiString.
        Memo1.Lines.Add(ADOQuery1.Fields[i].FieldName
          + ' = ' + ADOQuery1.Fields[i].AsString);
      Memo1.Lines.Add('--------------------------------------------------');
      ADOQuery1.Next;
    end;
  finally
    //Возвращаемся на прежнюю позицию в наборе данных.
    if ADOQuery1.Active then ADOQuery1.GotoBookmark(Bm);
    ADOQuery1.EnableControls; //Подключаем элементы отображения данных.
  end;
end;
 
end.