Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: TComponentList.Sort --> Endlosschleife

    Delphi
    by p80286, 3. Jul 2009
  egal im Sinne von "gleich"? dann sollte es auch ein Result=0 geben!
  
  egal im Sinne von "das juckt mich nicht"? Da gibt es bestimmt ein Problem das ordentlich zu programmieren. ;-)
  
  Gruß
  K-H
• Forum: Object-Pascal / Delphi-Language

  Re: TComponentList.Sort --> Endlosschleife

    Delphi
    by p80286, 3. Jul 2009
  Hallo berens,
  
  abgesehen von der etwas unglücklichen Benutzing von "If" sehe ich da erst einmal keinen Fehler. Allerdings halte ich folgendes für etwas schneller:
  
  if TLayoutElement(Item1).Top < TLayoutElement(Item2).Top then Result := -1
  else
  if TLayoutElement(Item1).Top > TLayoutElement(Item2).Top then Result := 1
  else
  if TLayoutElement(Item1).Top = TLayoutElement(Item2).Top...