[Nevis]

Всем доброго времени суток!
Написал программу в консоли, кто подскажет и поможет перевести её в форм?

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var d,m,y:Tdatetime;
begin
     writeln('Vvedite d,m,y');
     readln(d,m,y);
     if (d>=21) and (m=03) or(d<=20)and(m=4)then writeln('Oven');
     if (d>=21) and (m=04) or(d<=20)and(m=5)then writeln('Telec');
     if (d>=21) and (m=05) or(d<=21)and(m=6)then writeln('Bliznetsi');
     if (d>=22) and (m=06) or(d<=22)and(m=7)then writeln('Rak');
     if (d>=23) and (m=07) or(d<=23)and(m=8)then writeln('Lev');
     if (d>=24) and (m=08) or(d<=23)and(m=9)then writeln('Deva');
     if (d>=24) and (m=09) or(d<=22)and(m=10)then writeln('Vesi');
     if (d>=23) and (m=10) or(d<=22)and(m=11)then writeln('Skorpion');
     if (d>=23) and (m=11) or(d<=21)and(m=12)then writeln('Strelec');
     if (d>=22) and (m=12) or(d<=20)and(m=1)then writeln('Kozerog');
     if (d>=21) and (m=01) or(d<=19)and(m=2)then writeln('Vodoley');
     if (d>=20) and (m=02) or(d<=20)and(m=3)then writeln('Ribi');
     if (y=1900)or(y=1912)or(y=1924)or(y=1936)or(y=1948)or(y=1960)or(y=1972)or
     (y=1984)or(y=1996)or(y=2008)or(y=2020)or(y=2032)then writeln('Krisa');
     if (y=1901)or(y=1913)or(y=1925)or(y=1937)or(y=1949)or(y=1961)or(y=1973)or
     (y=1985)or(y=1997)or(y=2009)or(y=2021)or(y=2033)then writeln('Bik');
     if (y=1902)or(y=1914)or(y=1926)or(y=1938)or(y=1950)or(y=1962)or(y=1974)or
     (y=1986)or(y=1998)or(y=2010)or(y=2022)or(y=2034)then writeln('Tigr');
     if (y=1903)or(y=1915)or(y=1927)or(y=1939)or(y=1951)or(y=1963)or(y=1975)or
     (y=1987)or(y=1999)or(y=2011)or(y=2023)or(y=2035)then writeln('Krolik');
     if (y=1904)or(y=1916)or(y=1928)or(y=1940)or(y=1952)or(y=1964)or(y=1976)or
     (y=1988)or(y=2000)or(y=2012)or(y=2024)or(y=2036)then writeln('Drakon');
     if (y=1905)or(y=1917)or(y=1929)or(y=1941)or(y=1953)or(y=1965)or(y=1977)or
     (y=1989)or(y=2001)or(y=2013)or(y=2025)or(y=2037)then writeln('Zmeya');
     if (y=1906)or(y=1918)or(y=1930)or(y=1942)or(y=1954)or(y=1966)or(y=1978)or
     (y=1990)or(y=2002)or(y=2014)or(y=2026)or(y=2038)then writeln('Loshadi');
     if (y=1907)or(y=1919)or(y=1931)or(y=1943)or(y=1955)or(y=1967)or(y=1979)or
     (y=1991)or(y=2003)or(y=2015)or(y=2027)or(y=2039)then writeln('Ovca');
     if (y=1908)or(y=1920)or(y=1932)or(y=1944)or(y=1956)or(y=1968)or(y=1980)or
     (y=1992)or(y=2004)or(y=2016)or(y=2028)or(y=2040)then writeln('Obeziyana');
     if (y=1909)or(y=1921)or(y=1933)or(y=1945)or(y=1957)or(y=1969)or(y=1981)or
     (y=1993)or(y=2005)or(y=2017)or(y=2029)or(y=2041)then writeln('Petux');
     if (y=1910)or(y=1922)or(y=1934)or(y=1946)or(y=1958)or(y=1970)or(y=1982)or
     (y=1994)or(y=2006)or(y=2018)or(y=2030)or(y=2042)then writeln('Sobaka');
     if (y=1911)or(y=1923)or(y=1935)or(y=1947)or(y=1959)or(y=1971)or(y=1983)or
     (y=1995)or(y=2007)or(y=2019)or(y=2031)or(y=2043)then writeln('Svinya');
   readln
end.

[poli-smen]

Смотри, вот этот кусок:

Сообщение от Nevis

Код:

.....
     if (y=1900)or(y=1912)or(y=1924)or(y=1936)or(y=1948)or(y=1960)or(y=1972)or
     (y=1984)or(y=1996)or(y=2008)or(y=2020)or(y=2032)then writeln('Krisa');
     if (y=1901)or(y=1913)or(y=1925)or(y=1937)or(y=1949)or(y=1961)or(y=1973)or
     (y=1985)or(y=1997)or(y=2009)or(y=2021)or(y=2033)then writeln('Bik');
     if (y=1902)or(y=1914)or(y=1926)or(y=1938)or(y=1950)or(y=1962)or(y=1974)or
     (y=1986)or(y=1998)or(y=2010)or(y=2022)or(y=2034)then writeln('Tigr');
     if (y=1903)or(y=1915)or(y=1927)or(y=1939)or(y=1951)or(y=1963)or(y=1975)or
     (y=1987)or(y=1999)or(y=2011)or(y=2023)or(y=2035)then writeln('Krolik');
     if (y=1904)or(y=1916)or(y=1928)or(y=1940)or(y=1952)or(y=1964)or(y=1976)or
     (y=1988)or(y=2000)or(y=2012)or(y=2024)or(y=2036)then writeln('Drakon');
     if (y=1905)or(y=1917)or(y=1929)or(y=1941)or(y=1953)or(y=1965)or(y=1977)or
     (y=1989)or(y=2001)or(y=2013)or(y=2025)or(y=2037)then writeln('Zmeya');
     if (y=1906)or(y=1918)or(y=1930)or(y=1942)or(y=1954)or(y=1966)or(y=1978)or
     (y=1990)or(y=2002)or(y=2014)or(y=2026)or(y=2038)then writeln('Loshadi');
     if (y=1907)or(y=1919)or(y=1931)or(y=1943)or(y=1955)or(y=1967)or(y=1979)or
     (y=1991)or(y=2003)or(y=2015)or(y=2027)or(y=2039)then writeln('Ovca');
     if (y=1908)or(y=1920)or(y=1932)or(y=1944)or(y=1956)or(y=1968)or(y=1980)or
     (y=1992)or(y=2004)or(y=2016)or(y=2028)or(y=2040)then writeln('Obeziyana');
     if (y=1909)or(y=1921)or(y=1933)or(y=1945)or(y=1957)or(y=1969)or(y=1981)or
     (y=1993)or(y=2005)or(y=2017)or(y=2029)or(y=2041)then writeln('Petux');
     if (y=1910)or(y=1922)or(y=1934)or(y=1946)or(y=1958)or(y=1970)or(y=1982)or
     (y=1994)or(y=2006)or(y=2018)or(y=2030)or(y=2042)then writeln('Sobaka');
     if (y=1911)or(y=1923)or(y=1935)or(y=1947)or(y=1959)or(y=1971)or(y=1983)or
     (y=1995)or(y=2007)or(y=2019)or(y=2031)or(y=2043)then writeln('Svinya');
.....

Легко превращается в такой:

Код:

const
  cYear: array[0..11] of string = ('Крыса', 'Бык', 'Тигр', 'Кролик', 'Дракон',
    'Змея', 'Лошадь', 'Овца', 'Обезьяна', 'Петух', 'Собака', 'Свинья');
begin
  ShowMessage(cYear[(y - 1900) mod 12]);
.....

[Nevis]

Не совсем понял. const подчеркивает

[poli-smen]

Сообщение от Nevis

Не совсем понял. const подчеркивает

const должен быть до begin.

А ты вообще знаешь как создать в Delphi новый проект с формой и умеешь компоненты на форму бросать?

[Nevis]

Проект, да, создавать умею, а вот дальше нет(
Если можете, скажите, где почитать)
А, то по учебной программе это будет еще где-то через месяц-два, а любопытство не терпит)
Для себя сильно хочется)

[poli-smen]

Сообщение от Nevis

Проект, да, создавать умею, а вот дальше нет(
Если можете, скажите, где почитать)
А, то по учебной программе это будет еще где-то через месяц-два, а любопытство не терпит)
Для себя сильно хочется)

Литература по Delphi