|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.06.2012, 14:33 | #1 |
Новичок
Джуниор
Регистрация: 16.06.2012
Сообщений: 1
|
"русско-английский словарь цветовой гаммы"(Delphi)
не могу найти ошибку #Code помогите пожалуйста кто сможет((((
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TNameSlovar = class private { Private declarations } protected Fcolor:string; function GetColor: String; procedure SetColor(Value:String); public Constructor Create; property Color: String read GETColor write SetColor; procedure Execute; end; implementation Constructor TNameSlovar.Create; begin Fcollor[1]:='синий'; Fcollor[2]:='красный'; Fcollor[3]:='желтый'; Fcollor[4]:='белый'; Fcollor[5]:='черный'; Fcollor[6]:='розовый'; Fcollor[7]:='зеленый'; Fcollor[8]:='малиновый'; Fcollor[9]:='бардовый'; Fcollor[10]:='оранжевый'; Fcollor[11]:='серый'; Fcollor[12]:='бежевый'; Fcollor[13]:='бронзовый'; Fcollor[14]:='золотой'; Fcollor[15]:='коричневый'; Fcollor[16]:='фиолетовый'; Fcollor[17]:='шоколадный'; Fcollor[18]:='медный'; Fcollor[19]:='кукурузный'; Fcollor[20]:='кремовый'; Fcollor[21]:='голубой'; Fcollor[22]:='индиго'; Fcollor[23]:='джинсовый'; Fcollor[24]:='изумрудный'; Fcollor[25]:='баклажановый'; Fcollor[26]:='каштановый'; Fcollor[27]:='лимонный'; Fcollor[28]:='сиреневый'; Fcollor[29]:='лайм'; Fcollor[30]:='орхидея'; Fcollor[31]:='лиловый'; Fcollor[32]:='персиковый'; Fcollor[33]:='барвинок'; Fcollor[34]:='грушевый'; Fcollor[35]:='сливовый'; Fcollor[36]:='пурпурный'; Fcollor[37]:='лососевый'; Fcollor[38]:='песочный'; Fcollor[39]:='сапфировый'; Fcollor[40]:='серебрянный'; Fcollor[41]:='болотный'; Fcollor[42]:='томатный'; end; function TNameSlovar.GetColor:String; begin Result:=FColor; end; procedure TNameSlovar.SetColor(Value:String); begin FColor:=Value; end; procedure TNameSlovar.Execute; var pharse:string; begin Fperevod[1]:='blue'+FPerevod; Fperevod[2]:='red'+FPerevod; Fperevod[3]:='yellow'+FPerevod; Fperevod[4]:='white'+FPerevod; Fperevod[6]:='black'+FPerevod; Fperevod[7]:='Green'+FPerevod; Fperevod[8]:='Cornsilk'+FPerevod; Fperevod[9]:='wine red'+FPerevod; Fperevod[10]:='Orange'+FPerevod; Fperevod[11]:='Gray'+FPerevod; Fperevod[12]:='Beige'+FPerevod; Fperevod[13]:='bronze'+FPerevod; Fperevod[14]:='Gold'+FPerevod; Fperevod[15]:='Peru'+FPerevod; Fperevod[16]:='Violet'+FPerevod; Fperevod[17]:='Chocolate'+FPerevod; Fperevod[18]:='bronze'+FPerevod; Fperevod19]:='corn'+FPerevod; Fperevod[20]:='cream'+FPerevod; Fperevod[21]:='Blue'+FPerevod; Fperevod[22]:='Indigo'+FPerevod; Fperevod[23]:='jean'+FPerevod; Fperevod[24]:='emerald green'+FPerevod; Fperevod[25]:='aubergine'+FPerevod; Fperevod[26]:='chestnut'+FPerevod; Fperevod[27]:='Lemonchiffon'+FPerevod; Fperevod[28]:='lilac'+FPerevod; Fperevod[29]:='lime'+FPerevod; Fperevod[30]:='orchid'+FPerevod; Fperevod[31]:='lilac'+FPerevod; Fperevod[32]:='peachy'+FPerevod; Fperevod[33]:='periwinkle'+FPerevod; Fperevod[34]:='pear'+FPerevod; Fperevod[35]:='Plum'; Fperevod[36]:='purple'+FPerevod; Fperevod[37]:='salmon'+FPerevod; Fperevod[38]:='sand'+FPerevod; Fperevod[39]:='sapphire'+FPerevod; Fperevod[40]:='Silver'+FPerevod; Fperevod[41]:='Moccasin'+FPerevod; Fperevod[42]:='Tomato'+FPerevod; end; end. спасибо за ранее |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. | воваава | Помощь студентам | 3 | 01.12.2011 12:50 |
Как обойти "преобразование типа из "string" в "float" невозможно" | lexluter1988 | Помощь студентам | 1 | 07.08.2010 12:23 |
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" | aleksei78 | Microsoft Office Excel | 13 | 25.08.2009 12:04 |
Загрузка цветовой гаммы RichEdit | ScreN | Компоненты Delphi | 8 | 14.02.2009 11:47 |