Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание типа данных, комплексный тип данных, можно или нет? 
:(
    Опции темы
Mde
Дата 19.4.2006, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

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



Подскажите можно ли создать немного хитрый тип данных.
Есть входная сторока 's',X,Y,X1,Y1,'s1'
где 
's','s1' : string
X,Y,X1,Y1: real)))

Назовем созданный нами тип compl
теперь когда мы создаем переменнную D: compl

И делаем вот такое присваивание
D:='s',X,Y,X1,Y1,'s1'

получаем 
в D[1] храниться некоторое строковое значение
в D[2] храниться некоторое вещественное значение
в D[3] храниться некоторое вещественное значение
в D[4] храниться некоторое вещественное значение
в D[5] храниться некоторое вещественное значение
в D[6] храниться некоторое строковое значение

Можно ли такое замутить но так чтобы не делить это все искусственным образом

Понимю что все это могет быть скажем в строковом типе и потом при помощи pos, delete моно заорганизовать раздробление на 6 кусков. А можно ли путем создания вот такого монстра, если да, то плз не пожалейте для калеки исходника. 
PM MAIL WWW ICQ   Вверх
Poseidon
Дата 19.4.2006, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Код
D: array of variant
 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Yanis
Дата 19.4.2006, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Синтаксис Delphi не настолько гибкий, что бы решать такие задачи относительно легко. "Неискуственным" образом не получится.  

Это сообщение отредактировал(а) Yanis - 19.4.2006, 23:22


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mde
Дата 19.4.2006, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

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



D: array of variant

ведь набор 's',X,Y,X1,Y1,'s1' все равно нужно делить на 6 кусочков. Так?

Код

Var d: array of variant;
begin
d:='1',80,20,30,0,'10'
if d[1]='1' Then Label1.Caption:='Гуд';
end;


не катит  
PM MAIL WWW ICQ   Вверх
Poseidon
Дата 20.4.2006, 01:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Код
procedure TForm1.Button1Click(Sender: TObject);
var D: array of variant;
i: integer;
begin
SetLength(D, 6);

D[0]:= 's'; D[1]:= 1.2; D[2]:= 2.5; D[3]:= 5.5; D[4]:= 36.6; D[5]:= 's1';
for i:= 0 to 5 do
  begin
  if (VarType(D[i]) = varCurrency)and(D[i] = 36.6) then ShowMessage('Число видит');
  if (VarType(D[i]) = varString)and(D[i] = 's1') then ShowMessage('И текст видит :)')
  end;
end;
  

Это сообщение отредактировал(а) Poseidon - 20.4.2006, 01:21


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0501 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.