Скачать: CL | DM;

Вопрос про число   Найти похожие ветки 

← →
..::KraN::.. ©   (2007-04-21 12:59) [0]

В моей программе в StatusBar"е есть функция подсчёта количества строк. Вопрос такой: как сделать чтобы всё там было по русски: при окончании числа на 1 писалось, например, "...строка", при окончании на число 5, писалось "... строк".

---

← →
Leonid Troyanovsky ©   (2007-04-21 13:37) [1]

> ..::KraN::.. ©   (21.04.07 12:59)  

> В моей программе в StatusBar"е есть функция подсчёта количества
> строк. Вопрос такой: как сделать

Format ("%s %d", ["Количество строк:",  num]);

--
Regards, LVT.

---

← →
MBo ©   (2007-04-21 13:49) [2]

s := "строк"
if i mod 100 in  11..19 -  ничего не делать
иначе
case i mod 10
 1: + "a"
 2,3,4: + "и"
 иначе ничего не делать

логику можно и изменить, сначала i mod 10 проверять, 0, 5..9 - ничего не делать, а для 1..4 - вторую цифру проверять.

---

← →
begin...end ©   (2007-04-21 13:50) [3]

const
 Words: array [1..3] of string = ("строк", "строка", "строки");
var
 N, I: Integer;
 Text: string;
begin
 N := 1000;
 if (N mod 10 in [0, 5..9]) or (N div 10 mod 10 = 1) then
   I := 1
 else if N mod 10 = 1 then
   I := 2
 else
   I := 3;
 Text := Format("%d %s", [N, Words[I]])
end

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c