текстовуе ресурсы (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]

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

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

Если с текстовыми ресурсами, то
создать файл 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

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

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