Модератор: Модераторы
...
uses LCLProc;
....
function Translate(Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
begin
case StringCase(Value,['&Yes','&No','Cancel']) of
0: Result:='&Да';
1: Result:='&Нет';
2: Result:='Отмена';
else Result:=Value;
end;
end;
...
initialization
SetResourceStrings(@Translate,nil);
....
Flanter писал(а):Владимир
Если компилятор ругается на Name в названии функции, то это скорее всего потому, что эта функция была включена в состав класса - а класс обычно уже имеет поле Name и происходит конфликт. Если так, то самое простое решение - переименовать параметр Name в AName или ещё во что-нибудь.
initialization
SetResourceStrings(@Translate,nil);
Владимир писал(а):function TForm1.Translate(AName,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
....
....
//здесь ругань на SetResourceStrings(@Translate,nil); -Identifier not found "Translate"
Mr.Smart писал(а):Данную функцию НЕЛЬЗЯ включать в состав класса!
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 43