|
Вопрос # 2 860/ вопрос открыт / |
|
Здравствуйте!
1. Есть запись:
TRec = record
text:string;
coords:longint;
count:integer;
end;
2. Есть массив этих записей.
3. Мне нужно получить новый массив содержащий в сере по 1 записи каждого (text), с разными coords, с числом count равняющемуся числу записей с одинаковым text, но разным coords в массиве.
ps Надеюсь понятно.
 |
Вопрос задал: Gooddy (статус: 3-ий класс)
Вопрос отправлен: 29 мая 2009, 03:15
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 8 июня 2009, 06:12; участников в обсуждении: 3.
|
|
Gooddy (статус: 3-ий класс), 29 мая 2009, 03:17 [#1]:
пробовал сравнением массивов но в число count засчитываются и записи с одинаковым coords.
Чисти код! Чисти код! Чисти код!
|
|
min@y™ (статус: Доктор наук), 29 мая 2009, 08:15 [#2]:
Нихрена не понял 3-й пункт.
Напиши пример входных и выходных данных.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Gooddy (статус: 3-ий класс), 29 мая 2009, 13:48 [#3]:
пример массива входного:
rec1.text:='111'
rec1.coords:=1
rec1.count:=1
-
rec2.text:='111'
rec2.coords:=2
rec2.count:=1
-
rec3.text:='111'
rec3.coords:=1
rec3.count:=1
-
rec4.text:='111'
rec4.coords:=3
rec4.count:=1
-
rec5.text:='1111'
rec5.coords:=1
rec5.count:=1
-
rec6.text:='1111'
rec6.coords:=2
rec6.count:=1
и на выходе:
rec1.text:='111'
rec1.coords:=0
rec1.count:=3
-
rec1.text:='1111'
rec1.coords:=0
rec1.count:=2
Чисти код! Чисти код! Чисти код!
|
|
Вадим К (статус: Академик), 29 мая 2009, 14:01 [#4]:
А может всё таки сформулируем задачу так как надо, а не так как Вы её поняли?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 30 мая 2009, 21:29 [#5]:
Епрст! Это каким же надо быть маньяком-преподом, чтобы придумать такое задание?
Здесь поможет TStringList и его метод IndexOf() (или свойство Duplicates). При переборе записей из массива заноси в список только уникальные "text"-поля записей, а в случае, если такая строка уже существует в списке - инкрементируй Items.Objects[Index]. Вот и всё.
Я понятно объяснил?
КАК ТАК НЕТ? Я пытался, как ты, честно!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Gooddy (статус: 3-ий класс), 8 июня 2009, 06:12 [#6]:
xD
Прошу прощения что непонятно, но текста "задачи" нет как и самой задачи. сформулировал вопрос как мог спасибо что пытались.
Чисти код! Чисти код! Чисти код!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
