Re: Transliterate под ADO из DBF (FPD 2.5)
От: MarlboroMan Россия  
Дата: 06.08.02 11:57
Оценка: 15 (1)
Здравствуйте MarlboroMan, Вы писали:

MM>некорректно отображается содержимое TStringField (независимо от Transliterate)...


MM>пытался:

MM>ADOQuery, ADOTable с драйверами для dBase...

MM>конструкция:


MM>procedure TForm1.GetText(Sender: TField; var Text: String;

MM> DisplayText: Boolean);
MM>var
MM> Buff: Pchar;
MM>begin
MM> Text := Sender.AsString;
MM> Buff := AllocMem(Length(Text) + 1);
MM> OEMToANSI(PChar(Text), Buff);
MM> Text := Buff;
MM> FreeMem(Buff);
MM>end;

MM>навешиваемая на OnGetText для соответствующего TStringField никаких изменений не дает...


MM>может кто сталкивался?


Короче это проблемма Delphi 6 (SP 2)... под Delphi 5 (с соответствующими апдейтами) всё ок...

имейте ввиду...

— сколько программистов надо чтобы заменить сгоревшую лампочку?
— сколько не бери, а лампочку не поменять — проблема аппаратная, программным путем не решается...
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.