Есть тип, работающий с различными типами данных.
TSomeData = packed record
case DataType : integer of
0 : (ValueByte : Byte);
1 : (ValueWord : Word);
2 : (ValueDWord : DWord);
3 : (ValueSingle : Single);
4 : (ValueDouble : Double);
end;

Data : TSomeData

как организовать ввод и вывод элементов этого типа, если они юзаются на уровне некого объекта (элемент очереди - класс ATL)?
Ввод элементов должен очуществлятся через консоль, то бишь в стринговом представлении, я знаю как можно String перегнать в Word, Integer, но как в Byte или Double?

И как все это потом вывести на экран?

Если правильно понял, то идёт работа с {$APPTYPE CONSOLE}, а значит вывод данных организуется простым writeln, а ему почти всё-равно какой тип (может изъясняюсь довольно коряво).

Код

var Z:TSomeData; begin ... writeln(x); ... end.

Но это чересчур просто, так что я не уверен в ответе (позволю повториться) из-за неправильности трактования поставленной задачи

Цитата

я знаю как можно String перегнать в Word, Integer, но как в (1) Byte или (2) Double?

1) сначала в integer, потом в byte
2) сначала в real, потом в double

...
function StrToDay(const ADay: string): Byte;

...
function StrToWord(const Value: String): Word;
...

Цитата

2) сначала в real, потом в double

Сам с этим не сталкивался, чёта не понял...

Цитата

Сам с этим не сталкивался, чёта не понял...

real1:real;
double1:double;
...
real1:=strtofloat(...);
double1:=real1;

Цитата

real1:=strtofloat(...); double1:=real1;

И всё
Я думал мудрёней будет...

Можно и мудрёней... Но не на зачётной неделе

Snick_Y2K

Цитата

function StrToDay(const ADay: string): Byte;

А что это за функция?
December

Цитата

real1:real; double1:double; ... real1:=strtofloat(...); double1:=real1;

? ? ?
А зачем так сложно, не проще-ли:

Цитата

double1:double; ... double1:=strtofloat(...);;

Это сообщение отредактировал(а) Петрович - 27.12.2003, 20:55

Цитата

А что это за функция?

Перевод строки в дату... Точнее день недели... посмотри хэлп дэлфовый, там всё расписано... но она тут не к месту...

Петрович Это сейчас real=double, и strtofloat такая крутая. А раньше было не так, кажется.

StrToDate ? a в каком модуле находится эта функция? то же касается и StrToWord...

StrToDate в SysUtils(кстати, это можно в хелпе посмотреть)

Belij а зачем постишь две темы одинаковые ?
Можешь ответ еще в другом своем топике по этой теме глянуть...