Zestaw rekordów w pascal

Question

Zastanawiałem się, czy istnieje sposób, w jaki mogę zrobić zestaw rekordów w paskach. Szukam w Internecie i wierzę, że to niemożliwe.

type  
    TRecord = record 
    StrField: string; 
    IntField: Integer; 
    end; 

    TSetOfRecord = set of TRecord;   

Answer 1

Tak, to niemożliwe, aby ustawione elementy musiały być typu porządkowego. O ile pamiętam, możesz mieć tylko ograniczoną liczbę członków, a także 255 dzwonków.

Wygląda na to, że jest o wiele więcej kombinacji niż w twoim rekordzie, chociaż nie jest jasne, co definiuje wyjątkowość dla członka.

Answer 2

"Zestaw rekordów" nie ma sensu. Myślę, że masz na myśli "zbiór rekordów". Jeśli tak jest, możesz wdrożyć go na więcej sposobów niż jeden.

Ten, który polecam, to użycie "otwartych tablic" (nie takich samych, jak "tablice dynamiczne").

trzeba by napisać kilka własnych procedur, jedna jest w ten sposób:

function RecordInCollection(const ARecord: TYourRecord; const ACollection: array of TYourRecord): Boolean; 
var 
    Index1: Integer; 
begin 
    Result := False; 
    for Index1 := Low(ACollection) to High(ACollection) do begin 
    Result := (ACollection[Index1].StrField = ARecord.StrField) and (ACollection[Index1].IntField = ARecord.IntField); 
    if Result then Exit; 
    end; 
end; 

i nazwać tak:

RecordInCollection (RECORD1 [RECORD2, Record3, Record4])

lub możesz użyć wcześniej zadeklarowanych stałych tablic zamiast [Record2, Record3, Record4].