Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Jan 2007
Zur Verdeutlichung meines Hinweises aus Beitrag #4:
procedure TBauteilListe.MakeList(const s: TStrings);
procedure FetchItem(p: PBauteil);
var
i: integer;
begin
if Assigned(p.Next) then
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Jan 2007
Hallo Richard,
den gröbsten Schnitzer hat dir sirius bereits mitgeteilt. Lines ist bei dir als read-only property vereinbart, aber es ist von seiner Bedeutung her gar keine property. Du erzeugst bei jedem Aufruf eine neue StringList - denkst du daran sie auch wieder zu zerstören? Wenn du alle Bauteile einer Baugruppe (bill-of-material) rekursiv ermitteln und als StringList zurückgeben...