| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dy1 ©   (2007-07-26 20:45:00) 

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

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;

---

Dy1   (2007-07-26 23:43:00) [1]

10 k

---

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

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

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

---

Dy1   (2007-07-26 22:46:00) [3]

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

---

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

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

---

Dy1   (2007-07-26 21:43:00) [5]

> [1]

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

---

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

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

---

Наверх