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

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

← →
Golden   (2008-12-04 08:46) [0]

Подскажите как правильно написать следующий код:

function GetType (Value: WideString): WideString;
begin
 case Value of
   "E": result := "43";
   "e": result := "33";
   "T": result := "56";

Происходит ошибка при компиляции .. Как правильно написать ?

---

← →
Palladin ©   (2008-12-04 08:57) [1]

function GetType (Value: WideString): WideString;
begin
case Value[1] of
  "E": result := "43";
  "e": result := "33";
  "T": result := "56";

---

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

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



Память: 0.44 MB
Время: 0.027 c