Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
В компоненте TEdit записывается время в формате 10:20, необходимо разделить запись с разделителем ':' и каждую часть записи переслать в Label1 и Label2 соответственно.
Спасибо.

Вопрос задал: ssnik74 (статус: Посетитель) Вопрос отправлен: 5 апреля 2011, 22:23 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, ssnik74!
Есть два способа. Первый - в лоб.

var s:string;
h,m:integer;
c:integer;
begin
  s := trim(Edit1.text);
  c := pos(':', s);
  if (c = 0) or (length(s) < 3) then begin // примитивная проверка
    ShowMessage('Похоже время задано неверно');
    exit;
  end;
  h := StrToInt(copy(s, 1, c - 1);
  m := StrToInt(copy(s, c + 1, maxint); // то есть - до конца строки
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 5 апреля 2011, 22:49 Оценка за ответ: 5 Комментарий к оценке: Спасибо, за ответ и оперативность.

Мини-форум вопроса

5 апреля 2011, 23:03: Статус вопроса изменён на решённый (изменил автор вопроса — ssnik74)

Вадим К (статус: Академик), 6 апреля 2011, 00:23 [#1]: Вопрос закрыт, а не комментария, ни оценки... Галочка "подтверждения прочтения" - вселенское зло.

ssnik74 (статус: Посетитель), 6 апреля 2011, 09:41 [#2]: Дико извиняюсь, пример, то что надо... Еще раз огромное спасибо, буду внимательней.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.