Wer kann mir das Verhalten meines Programms beschreiben:
Ich habe eine Liste von Objekten, aus denen ich eine gefilterte Liste (nach Stringvergleich) herausziehe.
In einem Unittest kontrolliere ich die Anzahl der gefilterten Elemente.
Wenn ich meine beiden Filter nacheinander auswerte und aufaddiere, komme ich auf den richtigen Wert.
Wenn ich die beiden Ausdrücke direkt addiere, erhalte ich ein falsches Ergebnis.
Meine beiden Filter haben 2 und 3 Elemente.
Je nach Reihenfolge erhalte ich bei der Aufsummierung 4 bzw. 6 Elemente, offensichtlich wird also immer die Elementanzahl des zuletzt gefilterten Ausdrucks verwendet und dann erst die Addition gemacht.
Wer kann erklären, warum das so ist?
Code:
z240:=FTypList[0].FilteredEinzelschritte[gWkz.Werkzeug['Zurr_240']].Count;
z840:=FTypList[0].FilteredEinzelschritte[gWkz.Werkzeug['Zurr_840']].Count;
// Hier das falsche Ergebnis
count:=FTypList[0].FilteredEinzelschritte[gWkz.Werkzeug['Zurr_240']].Count+
FTypList[0].FilteredEinzelschritte[gWkz.Werkzeug['Zurr_840']].Count;
count:=z240+z840; // hier ist es die korrekte Summe
assert.areEqual(FTypList[0].ZurrschienenList.Count, Count);
Code:
function TTyp.GetFilteredEinzelschrittlist(Filter: TWerkzeug): TEinzelSchrittlist;
var
I, j: Integer;
begin
FFilteredStanzprogramm.Clear;
for I := 0 to GesamtSchrittlist.Count - 1 do
begin
for j := 0 to GesamtSchrittlist[i].EinzelschrittList.Count - 1 do
begin
if FGesamtSchrittlist[i].EinzelschrittList[j].Werkzeugname=Filter.Name then
FFilteredStanzprogramm.Add(FGesamtSchrittlist[i].EinzelschrittList[j])
end;
end;
result:=FFilteredStanzprogramm;
end;