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

Вниз

Memo и RichEdit не отображают текст под W98   Найти похожие ветки 

 
Dy1 ©   (2007-07-26 20:45) [0]

...помогите плз

Windows 98, KOLnMCK 2.71
Аналогичный код на VCL под той же 98 работает нормально.

var
// Form1 и т.д.
 BD,BD1, dat: PStrList;

procedure TForm1.KOLForm1NOpenMenu(Sender: PMenu; Item: Integer);
var
 i: integer;
 s: string[16];
begin
 OSD.OpenDialog := True;
 if OSD.Execute Then
 begin
   dat.Clear;
   Memo.Clear;
   dat.LoadFromFile(OSD.Filename);

   For i := 0 to dat.Count - 1 do
   begin
     s := dat.Items[i];
// долгая, нудная и сверхсекретная обработка строки :)
// все элементы строки являются символами цифр + пробел
// . . .
     dat.Items[i] := s + #9 + BD.Items[16*(
 Str2Int(s[3])*10 + Str2Int(s[4]) - 1)
+ Str2Int(s[6])*10 + Str2Int(s[7]) - 1] + #9 +
BD1.Items[ (Str2Int(s[9]) - 1)*95 +
 Str2Int(s[10])*10 + Str2Int(s[11])-1]
   end; // For

 Memo.Text := dat.Text;
 end; // диалог
end;


 
Дмитрий К ©   (2007-07-26 21:07) [1]


>  BD,BD1, dat: PStrList
Где-то создаются?


 
Dy1 ©   (2007-07-26 21:43) [2]

> [1]

CreateForm и FormClose. Код на VCL практически полностью повторяет приведённый :( (конечно с учётом особенностей)
Эта прога должна работать на компе на одном сверхсекретном :/ заводе. Проверить программу смогу на след. неделе максимум 1 раз, на др. компах она работает.


 
Дмитрий К ©   (2007-07-26 22:08) [3]

В dat после всех манипуляций строки есть?
Если есть, нет ли в них #0?


 
Dy1 ©   (2007-07-26 22:46) [4]

На том компе - не знаю, надо попробовать. Только там КОЛ нет и исправить код возможности не будет.
Дома - строки есть, #0 нет ни одного (POS-ом можно проверить?). Всё идентично за исключением библиотек (КОЛ и ВЦЛ).
 Откуда взяться нулю? Что такого нехорошего использует КОЛ и не использует ВЦЛ? Ещё подсказка: строки в msgok отображаются (смотрел несколько первых), и не отображаются ни в Мемо, ни в РичЕдит.


 
Дмитрий К ©   (2007-07-26 23:02) [5]


> и не отображаются ни в Мемо, ни в РичЕдит.

Может не влезают? В 98 ограничение 64 кб.


 
Dy1 ©   (2007-07-26 23:43) [6]

10 k



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
2-1203435055
WestNik
2008-02-19 18:30
2008.03.16
Печать текста развернутого на 90 градусов


2-1202928676
savyhinst
2008-02-13 21:51
2008.03.16
HOWTO_ISAPI


3-1193483771
TheEd
2007-10-27 15:16
2008.03.16
Оптимизация сетевого траффика


15-1202123739
AlexKniga
2008-02-04 14:15
2008.03.16
Ищу игруху, где нужно узлы двигать, чтоб связи не пересекались.


8-1175065571
Дмитрий (Гомель)
2007-03-28 11:06
2008.03.16
Проблемы с размером полученного wav