Hallo,
ich habe in meinem Projekt die TMS Componenten DBToDoListe und DBAdvGrid. Beide haben in meinem Programm nichts miteinander zu tun. Wenn ich die ToDoListen Komponente einfüge und neu compiliere, erhalte ich die Fehlermeldung "Inkompatible Typen AdvGrid.TSortDirection und ToDoList.TSortDirection"
Ich habe mir die beide Definitionen im TMS-Sourcecode mal angeschaut und keine Unterschiede in den Typen entdecken können.
Hier mal ein Ausschnitt aus meinem Sourcecode. Auch wenn ich "Direction" direkt (also nicht über with...do) anspreche, bekomme ich diese Fehlermeldung. Schmeisse ich die ToDoListe raus und entferne die Units, klappt wieder alles...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| Cursor := crHourGlass;
DoSort := false; case ACol of
2 : begin
with dbBVSHVereineGrid.SortSettings do
begin
Column := ACol;
if Direction = sdAscending then
Direction := sdDescending else Direction := sdAscending;
if Direction = sdAscending then
dmBVSH.sqlBVSHVereine.SQL.Text := sSQLSearchStringVereine + ' ORDER BY VereinsNummer'
else
dmBVSH.sqlBVSHVereine.SQL.Text := sSQLSearchStringVereine + ' ORDER BY VereinsNummer DESC';
dmBVSH.sqlBVSHVereine.ExecSQL;
dmBVSH.sqlBVSHVereine.Active := True;
end;
end; |
Hat einer eine Idee, was ich hier falsch mache. Kann ja nicht sein, das man die beiden Komponenten nicht zusammen in einem Projekt benutzen kann.
