Показать сообщение отдельно
Старый 09.03.2011, 18:28   #8 (permalink)
Hakmax
Member
 
Регистрация: 09.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

лепишь на форму Эдит, Лэйбл, Баттон, по нажатии кнопки пишешь код:
Код:
 if Edit1.Text='пч' then Label1.Caption:='Пешка чёрная';
  if Edit1.Text='пб' then Label1.Caption:='Пешка белая';
  if Edit1.Text='сч' then Label1.Caption:='Слон чёрный';
  if Edit1.Text='сб' then Label1.Caption:='Слон белый';
  if Edit1.Text='лб' then Label1.Caption:='Ладья белая';
  if Edit1.Text='лч' then Label1.Caption:='Ладья чёрная';
  if Edit1.Text='фб' then Label1.Caption:='Ферзь белый';
  if Edit1.Text='фч' then Label1.Caption:='Ферзь чёрный';
  if Edit1.Text='кб' then Label1.Caption:='Король белый';
  if Edit1.Text='кч' then Label1.Caption:='Король чёрный';
кстати case и строки не совместимы..а то кто-то там хотел с кейсом..
Hakmax вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070