Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.21;
Скачать: CL | DM;

Вниз

Dos-Win кодировки.   Найти похожие ветки 

 
Sheva ©   (2002-02-21 12:17) [0]

Ув. мастера. помогите мне пожалуйста, уже три дня бьюсь над этой проблемой.

Я в своей програмке работаю с таблицами двух типов:
1. Старая фоксовская досовая таблица, условно, Table1;
2. Win-таблица под dbase4, Table2.

Возникает ситуация, когда я должен осуществлять поиск записи в Table1, по значению поля в Table2. Пишу такой код:

//st2 - string переменная, в Dos-кодировке.

Table2VKLNAME.AsString:= st2;

Table1.Open;
Table1.First;
for i:= 1 to Table1.RecordCount do
begin
st3:= Table1KOD.AsString;

if StrComp(Pchar(st2),Pchar(st3)) = 0 then
begin
Table1SROK.AsString:= Table2SROK.AsString;
Break;
end;
Table1.next;
end;
Table1.Close;

Так вот, все значения, которые в Table1 написаны латинскими буквами отрабатывает нормально, а русскими - не хочет перекодировать, или перекодирует неправильно. Перебробывал все, что мог. Помогите, пожалуйста, работа горит.


 
Sheva ©   (2002-02-21 12:22) [1]

Пробовал также OemToAnsi(PCahr(st2), PChar(st2)). У меня вроде бы все получилось, но когда перешел на другую машину, опять ничего не вышло.


 
Sheva ©   (2002-02-21 14:57) [2]

Никто не знает? Или неправильно построил вопрос? Подскажите хоть что-то, горю.


 
volodya_   (2002-02-21 15:58) [3]

В настройках BDE смотрел?


 
Sheva ©   (2002-02-21 17:16) [4]

Все перерыл. Но вот свершилось чудо. Наконец-то подобрал нужную кодировку, и все заработало. Два дня на такую фигню потратил.



Страницы: 1 вся ветка

Текущий архив: 2002.03.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
14-66961
Rasa
2002-02-06 14:55
2002.03.21
полупрозрачность Popup и Main menu


4-67061
Mastak
2002-01-21 22:15
2002.03.21
Помогите!!! Почему функция...


1-66821
Sin
2002-03-07 14:02
2002.03.21
Получение из интернет странички и обработка ее к КОДЕ


7-67036
Nikolay
2001-12-17 21:46
2002.03.21
интересно......


1-66885
TALLA
2002-03-03 14:34
2002.03.21
Вопросик по RegisterServiceProcess