Есть рабочий код:
...
private
//!!! Добавить эту процедуру
procedure From1251(Sender: TField; var AText: string; DisplayText: Boolean);
...
{ TForm1 }
//!!! Добавить эту процедуру
procedure TForm1.From1251(Sender: TField; var AText: string; DisplayText: Boolean);
begin
AText:= CP1251ToUTF8 ...
Найден 1 результат
- 24.07.2018 13:11:36
- Форум: Обучение Free Pascal
- Тема: Lazarus DBF понимание рабочего кода
- Ответы: 2
- Просмотры: 10324