День добрый... С наступающим Праздником.
Паскаль, конечно, это не совсем дельфи, но...
Возник вопрос: есть два списочка (10 и 100 записей в каждом)...
Необходимо создать третий, в который бы вошли все уникальные элементы из двух имеющихся...
Пример (данные сейчас вношу от балды....)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
uses
SysUtils;
type tspis1=^spis1;
spis1=record
val1:string;
r:tspis1;
end;
spis2 = record
val2: string;
end;
spis3=record
val3: string;
end;
var i:integer;
mass1: array of spis1;
mass2: array[ 1 .. 100 ] of spis2;
mass3: array[ 1 .. 10 ] of spis3;
P0: tspis1 = nil;
PNew, POld: tspis1;
begin
for i:= 1 to 100
do begin
mass2[i].val2:=('Value ' + IntToStr(i));
writeln(mass2[i].val2);
end;
for i:= 1 to 10
do begin
mass3[i].val3:=('Value ' + IntToStr(i));
writeln(mass3[i].val3);
end;
end
.
Как добавить данные в запись - это не есть проблема -
1.
2.
3.
4.
with PNew^ do begin
val1:=!!!..........!!!
r:=nil;
.........
end;
Вот как мне выбрать эти уникальные - не знаю.... Подскажите, кто знает.....
---
С наилучшими,
Dr. l'Ego aka VMik
