Forum: Sonstige Fragen zu Delphi
by mimi,
20. Mär 2010
Ich glaube da fällt uns noch die Hälfte.
Forum: Sonstige Fragen zu Delphi
by mimi,
20. Mär 2010
Mir ist noch was aufgefallen:
in der Procedure TBlock.right; verwendest du eine Variable b, ich finde nicht die stelle wo du diese Variable Erstellst bzw. Zuweist.
und in den anderen Methoden wie left und soweit ist das der gleiche Fall.
Warum machst du das Eigentlich so Kompliziert über "Verkette" listen ? Es gibt TObjectList oder dient das jetzt nur zu Schluschen Zwecken ?
PS:
Gehört...
Forum: Sonstige Fragen zu Delphi
by mimi,
20. Mär 2010
Erstens:
function TStein.compare(tb:TBase):integer;
begin
If x < TStein(tb).x Then result:=-1;
If x > TStein(tb).x Then result:=+1;
If y < TStein(tb).y Then result:=-1;
If y > TStein(tb).y Then result:=+1;
If (x = TStein(tb).x) AND (y = TStein(tb).y) Then result:=0;
end;
Die letzte If Anweisung kannst du dir sparen, wenn du vorher result auf 0 setzt.