Objektliste "kopieren"

[Alaitoc]

Hallöchen,

kurze Frage...wie übergibt man Items von einer TTokenListe (TObjectList) zu einem Funktionsresult TTokenListe (TObjectList)?
Also kopiere alle Items von Index bis Count aus der TTokenListe und gib es wieder.

Delphi-Quellcode:

function CopyToken(TokenList:TTokenList;Index,Count:Integer):TTokenList;
begin

end;

MfG Alaitoc

[mkinzler]

.Assign()

[DeddyH]

Würde ich etwa so machen:

Delphi-Quellcode:

procedure CopyToken(const Dest, Src: TTokenList;Index,Count:Integer);
var i: integer;
begin
  for i := Index to Count do
    Dest.Add(Src.Items[i]);
end;

[alzaimar]

Sollen die Objekte in der Liste geklont werden oder willst Du nur die Referenzen duplizieren? Hat die TObjectList die Eigenschaft 'OwnsObjects' auf 'True' gesetzt?

@DeddyH: Bei OwnsObjects=True ergibt das ja schonmal Probleme, wenn eine der Listen freigegeben wird...

[DeddyH]

Zitat:

Zitat von alzaimar

@DeddyH: Bei OwnsObjects=True ergibt das ja schonmal Probleme, wenn eine der Listen freigegeben wird...

Ist mir klar, aber das ist IMO eher ein Design-Problem.

[Alaitoc]

So mal zum allgemeinen Verständnis mal mein Programm, ich markier hier mal die relevanten Stellen.

Delphi-Quellcode:

procedure TMathParser.Parsen(TokenList:TTokenList;BinaryNode:PTBinaryNode);
begin
  if TokenPos(tkAdd,TokenList)>0 then
  begin
    BinaryNode:=CreateBinNode(TokenList,TokenPos(tkAdd,TokenList),BinaryNode);
    Parsen(SubTokenA(TokenList,tkAdd),BinaryNode);//!!!!!!!!
    Parsen(SubTokenB(TokenList,tkAdd),BinaryNode);//!!!!!!!!
  end
  else if TokenPos(tkSub,TokenList)>0 then
  begin
    ...
    ...
    ...
    ...
    ...

Delphi-Quellcode:

function SubTokenA(TokenList:TTokenList;Token:TTokens):TTokenList;
begin
 result:=CopyToken(TokenList,0,TokenPos(Token,TokenList));
end;

function SubTokenB(TokenList:TTokenList;Token:TTokens):TTokenList;
begin
  result:=CopyTokenEnd(TokenList,TokenPos(Token,Tokenlist)+1)
end;

Delphi-Quellcode:

function CopyToken(TokenList:TTokenList;Index,Count:Integer):TTokenList;
begin

end;

Im ersten Teil durchsucht er die Liste nach Tokens um daraus dann einen binären Baum zu erstellen, dabei teilt er immer durch SubTokenA und SubTokenB die Liste in zwei Hälften, dieses "Teilen" soll CopyToken übernehmen...indem es alle Items von Index bis Count kopiert und als Liste wiedergibt.

Ich muss hier halt wissen wie ich den Teil der Liste kopiere ohne mir ein Speicherloch zu kreieren, denn das hab ich bisher ganz gut hingekriegt auch wenn das Programm grundsätzlich geklappt hat.

[Alaitoc]

Bei:

Delphi-Quellcode:

procedure CopyToken(const Dest, Src: TTokenList;Index,Count:Integer);
var i: integer;
begin
  for i := Index to Count do
    Dest.Add(Src.Items[i]);
end;

Ist es das Problem..das mein Ziel "result" ist.