VST Sortieren

[youuu]

Hi,

ich habe zum Sortieren des VST diesen Code.

Delphi-Quellcode:

procedure TFormMain.VstEmpfaengerHeaderClick(Sender: TVTHeader;
  Column: TColumnIndex; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if Button= mbLeft then
  Begin
    if Column= VstEmpfaenger.Header.SortColumn then
      VstEmpfaenger.Header.SortDirection:= TSortdirection(1- ord(VstEmpfaenger.Header.SortDirection))
    else
      VstEmpfaenger.Header.SortColumn:= Column;
  End;
end;

jedoch bekomm ich beim compelieren diesen Fehler.
Kann mir jemand das erklären?



[DCC Fehler] UnitMain.pas(261): E2010 Inkompatible Typen: 'VirtualTrees.TSortDirection' und 'UnitMain.TSortDirection'

[generic]

Du hast in der Unit "UnitMain" auch TSortDirection definiert.

Nun weis der Compiler nicht was er nehmen soll bzw. er nimmt das was am nächsten definiert ist.

Du musst daher die Unitnamen vor der Definition schreiben (mit Punkt getrennt).

VstEmpfaenger.Header.SortDirection:=VirtualTrees.TSortDirection(1- ord(VstEmpfaenger.Header.SortDirection))

[youuu]

Zitat von generic:

Du hast in der Unit "UnitMain" auch TSortDirection definiert.

Nun weis der Compiler nicht was er nehmen soll bzw. er nimmt das was am nächsten definiert ist.

Du musst daher die Unitnamen vor der Definition schreiben (mit Punkt getrennt).

VstEmpfaenger.Header.SortDirection:=VirtualTrees.TSortDirection(1- ord(VstEmpfaenger.Header.SortDirection))

Super das war es danke.