Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизPResStringRec -> string Найти похожие ветки
← →
Scott Storch © (2012-06-12 15:51) [0]Как перевести PResStringRec в string?
resourcestring
SUFFIX_DAY = "дня";
SUFFIX_DAYS = "дней";
function GetHint(Value: Integer): PResStringRec;
var
A, B: Integer;
S: PResStringRec;
begin
A := Value mod 10;
B := Value mod 100;
if (A = 1) and (B <> 11) then
S := @SUFFIX_DAY
else
if (2 <= A) and (A <= 4) and (B <> A + 10) then
S := @SUFFIX_DAYS
else
S := @SUFFIX_DAYS;
Result := Format("%d %s", [Value, S]);
end;
← →
Давайте будем жрать! (2012-06-12 15:54) [1]чего ты вообще добиться хочешь? почему PResStringRec?
← →
Scott Storch © (2012-06-12 16:06) [2]
> чего ты вообще добиться хочешь? почему PResStringRec?
PResStringRec для локализации (все ресурсные строки подхватываются компонентом-localizer"ом)
← →
Давайте будем жрать! (2012-06-12 16:09) [3]Ты в исходнике смотрел, что такое PResStringRec?
Чем не устраивает function GetHint(Value: Integer): String?
← →
ProgRAMmer Dimonych © (2012-06-12 16:09) [4]> [0] Scott Storch © (12.06.12 15:51)
Судя поfunction GetHint(Value: Integer): PResStringRec;
S: PResStringRec;
иResult := Format("%d %s", [Value, S]);
PResStringRec и String вполне себе эквивалентны и взаимозаменяемы?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.078 c