VPF::Конвертация переменных - Форум программистов

Витаминка

Дата 11.12.2006, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 9.12.2006

Репутация: 1
Всего: 1

Привет! У меня в коде задаётся переменная String в коде при её использовании она должна конвертироваться в переменную Word, как это сделать подскажите плз, или как изначально задать переменуюю Word так не получается

Код


var
p: Word;
begin
p:='1111'
end;

Это сообщение отредактировал(а) Витаминка - 11.12.2006, 13:47

Romkin

Дата 11.12.2006, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 189
Регистрация: 14.11.2006
Где: Москва

Репутация: 2
Всего: 5

p := StrToInt('1111');

Guedda

Дата 11.12.2006, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

с проверкой на цифрость )

Код


var
p: Word;
s : string;
u : boolean;
begin
  u := false;
  for i := 1 to length(s) do
    if (s[i] in ['0'..'9']) then u := false else u := true;
  if not u then p := StrToInt(s);
end;

--------------------

Ll 2

Matematik

Дата 11.12.2006, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Цитата(Guedda @ 11.12.2006, 14:08

)

с проверкой на цифрость )

Лучше ух так, т.к. '1234567891234678978465468' в Integer не влезет и выдаст исключение

Код


If TryStrToInt('123',p) then ShowMessage('OK')

или val, или StrToIntDef()

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »