Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
29. Aug 2008
Meine Fassung mit TryStrToInt in #4 hast Du aber gesehen, oder? :zwinker:
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
29. Aug 2008
Ich hab mal einen Test mit einer Listbox gemacht:function CompareIntAsc(List: TStringlist; Index1, Index2: Integer): Integer;
var
d1, d2: Integer;
begin
if TryStrToInt(List,d1) and TryStrToInt(List,d2) then
begin
if d1 < d2 then
Result := -1
else if d1 > d2 then
Result := 1
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
29. Aug 2008
Da steht ja 2 mal das Gleiche:
In der absteigenden Reihenfolge musst Du natürlich noch negieren (Vorzeichen umdrehen).