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 отображаются (смотрел несколько первых), и не отображаются ни в Мемо, ни в РичЕдит.

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

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

10 k

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