const
ScriptError = 0;
ComandNotRegisted = ScriptError + 1;
BigNumberParamener = ScriptError + 2;
IsInNotOneParameter = ScriptError + 3;
VarNotCreate = ScriptError + 4;
IsInComand = ScriptError + 5;
Файл ресурса
Как сделать файл ресурса со строками, и как их потом выбрать от туда?
У меня организованно так:
Файл CodeError.inc
Код:
Файл CodeError.rc
Код:
#include "CodeError.inc"
STRINGTABLE
{
ComandNotRegisted, "Команда не зарегестрирована"
BigNumberParamener, "Большой номер параметра"
IsInNotOneParameter, "Занесение значений в параметр"
VarNotCreate, "Переменная не создана"
IsInComand, "Попытка занесения значения в команду"
}
STRINGTABLE
{
ComandNotRegisted, "Команда не зарегестрирована"
BigNumberParamener, "Большой номер параметра"
IsInNotOneParameter, "Занесение значений в параметр"
VarNotCreate, "Переменная не создана"
IsInComand, "Попытка занесения значения в команду"
}
Выбираю значения так:
Код:
EScriptError = class(EAbort)
..............
constructor CreateScriptErrorRes(ACodeErr, ASimvol: integer; ATextComand: string);
end;
constructor EScriptError.CreateScriptErrorRes(ACodeErr, ASimvol: integer; ATextComand: string);
begin
inherited CreateRes(ACodeErr);
....................
end;
..............
constructor CreateScriptErrorRes(ACodeErr, ASimvol: integer; ATextComand: string);
end;
constructor EScriptError.CreateScriptErrorRes(ACodeErr, ASimvol: integer; ATextComand: string);
begin
inherited CreateRes(ACodeErr);
....................
end;
В модуле, где вызывается ошибка пишу
Код:
{$R \Ошибки\CodeError.RES}
В пути к файлу ресурса ошибок НЕТ.
Файл ресурса компилируетя!!!!!
И в итоге ни чего(пустая строка).
Граждане, подскажите как быть......))
Цитата:
...В модуле, где вызывается ошибка пишу
Код:
{$R \Ошибки\CodeError.RES}
Попробуй написать вот так:
Код:
{$R '\Ошибки\CodeError.RES' '\Ошибки\CodeError.RC'}
Цитата:
Originally posted by misha_turist
Граждане, подскажите как быть......))
Граждане, подскажите как быть......))
Используй прогу чтоб rc в res переделать...
Цитата:
Originally posted by misha_turist
Как сделать файл ресурса со строками, и как их потом выбрать от туда?
Как сделать файл ресурса со строками, и как их потом выбрать от туда?
А почему бы не воспользоваться встроенными средствами Delphi?
Код:
resourcestring
ComandNotRegisted = "Команда не зарегестрирована";
BigNumberParamener = "Большой номер параметра";
IsInNotOneParameter = "Занесение значений в параметр";
VarNotCreate = "Переменная не создана";
IsInComand = "Попытка занесения значения в команду";
ComandNotRegisted = "Команда не зарегестрирована";
BigNumberParamener = "Большой номер параметра";
IsInNotOneParameter = "Занесение значений в параметр";
VarNotCreate = "Переменная не создана";
IsInComand = "Попытка занесения значения в команду";
Данный код автоматически преобразуется в STRINGTABLE в ресурсах. А код, отвечающий за загрузку нужных строк из ресурса компилятор сгенерирует автоматически, достаточно будет подстваить в нужном месте константу (например, CommandNotRegistered) ;)
Цитата:
Originally posted by makbeth
А почему бы не воспользоваться встроенными средствами Delphi?
Данный код автоматически преобразуется в STRINGTABLE в ресурсах. А код, отвечающий за загрузку нужных строк из ресурса компилятор сгенерирует автоматически, достаточно будет подстваить в нужном месте константу (например, CommandNotRegistered) ;)
А почему бы не воспользоваться встроенными средствами Delphi?
Код:
resourcestring
ComandNotRegisted = "Команда не зарегестрирована";
BigNumberParamener = "Большой номер параметра";
IsInNotOneParameter = "Занесение значений в параметр";
VarNotCreate = "Переменная не создана";
IsInComand = "Попытка занесения значения в команду";
ComandNotRegisted = "Команда не зарегестрирована";
BigNumberParamener = "Большой номер параметра";
IsInNotOneParameter = "Занесение значений в параметр";
VarNotCreate = "Переменная не создана";
IsInComand = "Попытка занесения значения в команду";
Данный код автоматически преобразуется в STRINGTABLE в ресурсах. А код, отвечающий за загрузку нужных строк из ресурса компилятор сгенерирует автоматически, достаточно будет подстваить в нужном месте константу (например, CommandNotRegistered) ;)
Спасибо всем! Но у меня уже у самого получилось.