AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TTreeNode.CustomSort (erledigt)

Ein Thema von Alter Mann · begonnen am 18. Mär 2005
Antwort Antwort
Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
947 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

TTreeNode.CustomSort (erledigt)

  Alt 18. Mär 2005, 12:42
Hallo,

bin gerade dabei eine Delphi7 Unit nach Delphi .Net umzusetzen.
Jedoch klappt die Sache nicht ganz so wie gewünscht, da der Compiler an folgender Stelle:
if Node.HasChildren then Node.CustomSort(@TreeSortFunc, 0); mit der Fehlermeldung: "E2010 inkompatible Typen: 'Variant' und 'Integer'" (Cursor steht hinter dem Komma) stehen bleibt.

Also in der Hilfe nachgeschaut und festgestellt das die Deklarationen sich zwischen .Win32 und .Net unterscheiden.
Zitat:
.Net
public function CustomSort(SortProc: TTVCompareProc, Data: Variant, ARecurse: Boolean): Boolean;
.Win32
public function CustomSort(SortProc: PFNTVCOMPARE, Data: Integer, ARecurse: Boolean): Boolean;
Wie muss ich nun die 'TreeSortFunc' übergeben, das es nicht mehr zu diesem Fehler kommt?

Gruß
Alter Mann

Die Lösung:

Sie lag ganz wo anders.

TTVCompareProc = function(lParam1, lParam2: TTreeNode; lParamSort: TTag): Integer; bisher war 'lParamSort' vom Type Integer, jetzt vom Type TTag = Variant.

Also den Namenspace 'Borland.Vcl.Variants' eingefügt, schon ging es wieder.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz