Скачать: CL | DM;

текстовуе ресурсы (RES)   Найти похожие ветки 

← →
Pauk ©   (2009-05-23 15:27) [0]

есть таблица строковых констант. нужно чтобы они были в *.exe файле, а не в отдельном *.txt
компелятор говорит "ОШБКА слишком много констант".
помогите работающим примером кода если можите.
спасибо!!!

---

← →
Игорь Шевченко ©   (2009-05-23 16:14) [1]

> компелятор говорит "ОШБКА слишком много констант".


врешь, компилятор так не говорит.

Пример:

STRINGTABLE
{
 foo   "foo"
 bar   "bar"
 bazz "bazz"
}

---

← →
Pauk ©   (2009-05-23 17:27) [2]

а куда енто дело лепить? в RES-файл или прямо в код?
и самое для меня проблемное, как потом доставать?

---

← →
Игорь Шевченко ©   (2009-05-23 18:11) [3]

> а куда енто дело лепить?


да куда хочешь

---

← →
Pauk ©   (2009-05-23 18:16) [4]

мне пример нужен. а за такую помошь я могу и послать...

---

← →
Игорь Шевченко ©   (2009-05-23 18:20) [5]

> а за такую помошь я могу и послать...


Скорее я пошлю - я модератор, если что.


> мне пример нужен


пример тебе дан, я надеюсь, как работать с ресурсами, ты уже прочитал

---

← →
Pauk ©   (2009-05-23 18:27) [6]

хорошо! спрошу по другому. что нухно прочитать, чтобы работать с ресурсами? и где скачать нормальную статью? то что есть у меня, как наверное уже видно, отстой.
Спасибо ещё раз

---

← →
Германн ©   (2009-05-23 18:33) [7]

http://articles.org.ru/docum/resurs.php

---

← →
Игорь Шевченко ©   (2009-05-23 18:43) [8]

Если с текстовыми ресурсами, то
создать файл str.rc, с содержимым:

#define foo 1
#define bar 2
#define bazz 3

STRINGTABLE
{
 foo "foo"
 bar "bar"
 bazz "bazz"
}

скомпилировать его командой brcc32 str.rc

в проект добавить
{$R str.res}

написать константы в паскале, как в rc
const
 foo = 1;
 bar = 2;
 bazz = 3;

написать функцию
function MyLoadString (Id:  Integer): string;
var
 buf: array[0..255] of char;
begin
 if LoadString(HInstance, Id, Buf, SizeOf(Buf)) > 0 then
   Result := Buf
 else
   Result := "";
end;

пользоваться ей:

var
 S: string;

S := LoadString (foo);
ShowMessage(S);

подробности искать в google

---

← →
Pauk ©   (2009-05-23 19:13) [9]

Спасибо большое!!! До меня ДОШЛО

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.005 c