Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
2-1334481801
Fr
2012-04-15 13:23
2013.03.22
Кака лучше?


2-1337367250
TStas
2012-05-18 22:54
2013.03.22
Перехвать изменений текста в ричЭдите


1-1296814637
oleg_teacher
2011-02-04 13:17
2013.03.22
Autosize для Radiobutton


15-1351654923
Kindle
2012-10-31 07:42
2013.03.22
"Бинарный файл. Продолжить?"


15-1343757442
brother
2012-07-31 21:57
2013.03.22
Диск есть, а вот его нет!