|
Экспортирую данные из DBF файла.
Текст программы следующий (взят из интернета):
CREATE(Dbf);
CREATE(DbfRecords);
Dbf.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Project\Trade_SWT\;Extended Properties=DBASE IV;');
DbfRecords.Open('Vergisetir.dbf',Dbf);
IF NOT(DbfRecords.EOF) THEN
DbfRecords.MoveFirst();
IF NOT(DbfRecords.EOF) THEN
BEGIN
REPEAT
s := DbfRecords.Fields().Item('Ad').Value;
MESSAGE(s);
DbfRecords.MoveNext();
UNTIL DbfRecords.EOF;
END;
DbfRecords.Close();
Dbf.Close();
CLEAR(Dbf);
CLEAR(DbfRecords);
Все номально, но русские буквы в MESSAGE превращаются в крякозябры.
В чем проблема и как это можно решить?
Спасибо
|