|
Вопрос # 5 470/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Подскажите пожалуйста! Создал переменную требуемую мне, а вот как вносить в нее данные не догоню никак(((
Type
P= array of TPoint;
TPF = record IP:integer; ipp: P; end;
PA=array of TPF;
var
pol:PA;
Думаю как то так но не так.
SetLength(pol,5);
pol[1]:=5,Point(5,5);
 |
Вопрос задал: Pest (статус: Посетитель)
Вопрос отправлен: 1 июля 2011, 12:53
Состояние вопроса: решён, ответов: 2.
|
Ответ #1. Отвечает эксперт: bugmenot
SetLength(pol,5);
pol[0] := Point(5,5); // что за "5," там было? аккуратнее надо, клавиатура не казенная
// динамические массивы всегда начитаются с нулевого элемента
 |
Ответ отправил: bugmenot (статус: 3-ий класс)
Время отправки: 1 июля 2011, 13:02
Оценка за ответ: 2
Комментарий к оценке: Тип массива не TPoint, а TPF(record) к сожалению предложенный вами вариант я пробовал сам но это не то.
|
Ответ #2. Отвечает эксперт: min@y™
Ну, блин, как-то так:
Type
P = array of TPoint;
TPF = record
IP:integer;
ipp: P;
end;
PA = array of TPF;
var
pol:PA;
begin
//Думаю как то так но не так.
SetLength(pol,5);
//pol[1]:=5,Point(5,5); <-------- ужос, блеать!
SetLength(pol[0].ipp, 100500);
pol[0].ipp[0]:= Point(100500, 100500);
end;
Только, думаю, задача поставлена так, что можно и нужно найти более другое решение. Это уж очень индией отдаёт, не нравится мне это.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 1 июля 2011, 13:04
Оценка за ответ: 5
Комментарий к оценке: <-------- ужос, блеать!
Не спорю)видимо жара мозг плавит(
поставил бы "6" если бы мог.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 1 июля 2011, 18:02; участников в обсуждении: 4.
|
|
bugmenot (статус: 3-ий класс), 1 июля 2011, 13:07 [#1]:
а, чёрт, в этом неформатированном жуткокоде не заметил структуру
SetLength(pol,5);
pol[0].IP := 5;
SetLength(pol[0].ipp, 5);
pol[0].ipp[0] := Point(5,5);
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2011, 13:17 [#2]:
Цитата (bugmenot):
а, чёрт, в этом неформатированном жуткокоде не заметил структуру
Дык, надо было не полениться и отформатировать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Pest (статус: Посетитель), 1 июля 2011, 13:24 [#3]:
bugmenot: не злись!)
первый вопрос на этом форуме... исправлюсь.
|
|
Мережников Андрей (статус: Абитуриент), 1 июля 2011, 17:39 [#4]:
зачем создавать структуру, которую не знаешь как наполнить?
|
|
|
bugmenot (статус: 3-ий класс), 1 июля 2011, 18:02 [#5]:
Цитата (Pest):
исправлюсь
Поставь себе JCF
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
5 июля 2011, 13:55: Статус вопроса изменён на решённый (изменил автор вопроса — Pest)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
