Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2005-01-09

Re: Сложный тип данных.

Или так:

function ConnectionTypeToString(ct: TConnectionType): string;
begin
ConnectionTypeToString:="None";
if ct=ctDialup then ConnectionTypeToString:="Dialup";
end;

Номер выпуска : 3914
Возраст листа : 475 (дней)
Количество подписчиков : 517
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/293440
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog

http://subscribe.ru/ http://subscribe.ru/feedback

   2005-01-09 15:48:02 (#293440)

Re: Сложный тип данных.

> И как результат функции - которая возвращает значение типа
> TConnectionType - перевести в строку?

Может быть, так:

function ConnectionTypeToString(a: TConnectionType): string;
begin
if a=ctNone then ConnectionTypeToString="None";
if a=ctDialup then ConnectionTypeToString="Dialup";
end;

Номер выпуска : 3913
Возраст листа : 475 (дней)
Количество подписчиков : 517
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/293438
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog

http://subscribe.ru/ http://subscribe.ru/feedback

   2005-01-09 15:41:50 (#293438)

Сложный тип данных.

Есть такой тип: TConnectionType = (ctNone, ctDialup);
и есть функция которая возвращает значение типа TConnectionType
(function ConnectedToInternet: TConnectionType;)
Result := ctNone;
или
Result := ctDialup;
И как результат функции - которая возвращает значение типа
TConnectionType - перевести в строку?
Просто я про типы данных вроде все понял, а вот как работать со
сложными типами, понятия не имею :)

Номер выпуска : 3912
Возраст листа : 475 (дней)
Количество подписчиков : 517
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/293408
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog

http://subscribe.ru/ http://subscribe.ru/feedback

   2005-01-09 14:48:04 (#293408)