as-operator mit TList

[himitsu]

Zitat von arkon:

Delphi-Quellcode:

  TChVoc = record
    filename: string;
           ...
    coeff: extended;
  end;

function TForm1.compvoc(Item1, Item2: Pointer): integer;
begin
  result := (Item1 as TChVoc).coeff;
end;

abgesehn davon, das coeff eh nicht dem Result zugewiesen werden kann
Result{Integer} := .coeff{Extended};

Delphi-Quellcode:

type PChVoc = ^TChVoc;
  TChVoc = record
    filename: string;
           ...
    coeff: extended;
  end;

result := PChVoc(Item1).coeff;

die Verlgeichs-Funktion compvoc will gern das Ergebnis und nicht den Wert:

Delphi-Quellcode:

function TForm1.compvoc(Item1, Item2: Pointer): integer;
begin
  if PChVoc(Item1).coeff < PChVoc(Item2).coeff then 
    Result := -1
  else if PChVoc(Item1).coeff > PChVoc(Item2).coeff then 
    Result := 1
  else 
    Result := 0;
end;