Показать сообщение отдельно
  #2  
Старый 11.04.2009, 00:02
VVik VVik вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 5
Репутация: 10
По умолчанию Иероглифы при просмотре мемо-поля

эндрю, вероятно, база DBF III, т.е. в DOS-кодировке? Если это так, то необходимо использовать что-то типа
/пример из книги "Советы программистов" В.Озерова, стр.72 /:
Код:
Procedure TForm.DosToWin;
var
 str : PChar;
begin
 str := Memo1.Lines.GetText;
 OemToChar(str,str);
 Memo1.Lines.SetText;
end;

и обратно 
Procedure TForm.WinToDos;
var
 str : PChar;
begin
 str := Memo1.Lines.GetText;
 CharToOem(str,str);
 Memo1.Lines.SetText;
end;
Ответить с цитированием