Склонение слова в зависимости от числа

[nibufep]

Добрый день!
Как склонять слово например "АРБУЗ" в зависимости от числа в integer переменной?

Например: 1 АРБУЗ 2 АРБУЗа 5 АРБУЗов ?

[ДралсяСошибками]

Вот такой код у меня валяется на компе, но никогда не использовал, вроде работает))

procedure TForm1.Button1Click(Sender: TObject);
var
  Num: Integer;
  D1, D2: 0..9;
  s: String;
begin
  Num := Abs(20);
  D1 := Num mod 10;
  Num := Num div 10;
  D2 := Num mod 10;
  s := 'АРБУЗ';
    case D1 of
      1: if D2 = 1 then s := s + 'ОВ';
      2..4:
        begin
          if D2 = 1 then s := s + 'ОВ'
          else s := s + 'А';
        end;
    else s := s + 'ОВ';
    end;
  ShowMessage(s);
end;

[Stilet]

А что делать со словом "пальто"? Или "Солнце"?

[nibufep]

Сообщение от ДралсяСошибками

Вот такой код у меня валяется на компе, но никогда не использовал, вроде работает))

procedure TForm1.Button1Click(Sender: TObject);
var
  Num: Integer;
  D1, D2: 0..9;
  s: String;
begin
  Num := Abs(20);
  D1 := Num mod 10;
  Num := Num div 10;
  D2 := Num mod 10;
  s := 'АРБУЗ';
    case D1 of
      1: if D2 = 1 then s := s + 'ОВ';
      2..4:
        begin
          if D2 = 1 then s := s + 'ОВ'
          else s := s + 'А';
        end;
    else s := s + 'ОВ';
    end;
  ShowMessage(s);
end;

А если 2 слова склонять, например:

101 рабочий поток или 30 рабочих потоков ?

[ДралсяСошибками]

Пальто не склоняется
А про остальное не знаю, у меня был пример только на "ов")))

[Stilet]

Пальто не склоняется

Ага. Оно сгибается
Зато "Виталий" склоняется еще как
В три погибели не обещаю, но 2 Виталия или 100500 Виталиев из меня клонировать вполне можно
Так что пока не освоит ТС правила склонения о написании ПО думать не стоит.
И сама программа получится чуть сложнее чем просто.

[ДралсяСошибками]

Я всегда старался избегать таких извращений, можно просто написать:

s := 'Рабочих потоков: ' + i;

и профит)))