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

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

SubMenu

Dy1 ©   (2009-12-03 23:07:00) 

Вопрос такой: как правильно создавать радиогруппу?
Текст пунктов искажается - добавляются теряются символы, может быть во всём подменю имя последнего скина (имя директории без префиксов)

procedure MasAdd(text: KOLstring; Event: TOnMenuItem = nil);
var i: integer; // добавление пунктов и обработчиков
begin
 i := Length(mc);
 SetLength(mc, i + 1);
 mc[i] := PKOLChar(text);

 if (text <> '(') AND (text <> ')') Then
 begin
   i := Length(me);
   SetLength(me, i + 1);
   me[i] := Event;
 end;
end;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
...
 MasAdd('Скин');
 MasAdd('(');

 dir := NewDirList(GetStartDir + 'Skins\', '*', FILE_ATTRIBUTE_DIRECTORY);
 try
   For w := 0 to dir.Count - 1 do
     if Length(dir.Names[w]) <= 30 Then
       MasAdd('-!' + dir.Names[w], LdSkin);
 finally
   dir.Free;
 end;

 MasAdd(')');
 MasAdd('-Snap', nil);
 MasAdd('-');
 MasAdd('Выход', OnExit);
 MasAdd('');


---

Barloggg   (2009-12-21 12:00:00) [1]

дада, точно.
создай массив строк, но держи его. то есть массив строк должен быть глобальным, хотя бы в рамках объекта.

---

  (2009-12-17 15:24:00) [2]

Удалено модератором

---

  (2009-12-17 15:22:00) [3]

Удалено модератором

---

Дмитрий К   (2009-12-04 22:42:00) [4]

Строки где-то хранить нужно, мало занести в массив указатели на них.

---

Dy1   (2009-12-04 22:29:00) [5]

чем в Делфи 7 строка в апострофах отличается от массива ansichar при том, что функция именно с ансичаром и работает

---

Dy1   (2009-12-04 22:05:00) [6]

если писать массив ['1','2','3'], то всё работает. Если заносить строки в отдельный массив и потом присваивать - разные глюки.

---

Dy1   (2009-12-04 21:34:00) [7]

почему эти глюки зависят от длины текста? Почему вообще глючит??

---

Dy1   (2009-12-04 21:16:00) [8]

в массив записывается правильно, искажается где-то в меню...

---

Наверх