| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PResStringRec -> string

Scott Storch ©   (2012-06-12 15:51:00) 

Как перевести 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 16:09:00) [1]

Ты в исходнике смотрел, что такое PResStringRec?

Чем не устраивает function GetHint(Value: Integer): String?

---

ProgRAMmer Dimonych   (2012-06-12 16:09:00) [2]

> [0] Scott Storch ©   (12.06.12 15:51)

Судя по

function GetHint(Value: Integer): PResStringRec;
S: PResStringRec;

и

Result := Format('%d %s', [Value, S]);

PResStringRec и String вполне себе эквивалентны и взаимозаменяемы?

---

Scott Storch   (2012-06-12 16:06:00) [3]

> чего ты вообще добиться хочешь? почему PResStringRec?


PResStringRec для локализации (все ресурсные строки подхватываются компонентом-localizer'ом)

---

Давайте будем жрать!   (2012-06-12 15:54:00) [4]

чего ты вообще добиться хочешь? почему PResStringRec?

---

Наверх