VirtualTrees - Wo stellt man denn die Delphiversion ein?

[Bjoerk]

Wo stellt man denn beim VST die Delphiversion ein?

[dcc32 Fehler] uDirectoryTreeView.pas(72): E2010 Inkompatible Typen: 'string' und 'WideString' // ***

Delphi-Quellcode:

constructor TDirectoryTreeView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FVST := TVirtualStringTree.Create(Self);
  FVST.Parent := Self;
  FVST.Top := 0;
  FVST.Left := 0;
  FVST.Align := alClient;
  FVST.AlignWithMargins := true;
  FVST.Margins.Top := 9;
  FVST.Margins.Left := 9;
  FVST.Margins.Bottom := 9;
  FVST.Margins.Right := 9;
  FVST.StateImages := ImageList;
  FVST.OnChange := VSTChange;
  FVST.OnExpanding := VSTExpanding;
  FVST.OnGetText := VSTGetText; // ****
  FVST.OnGetImageIndex := VSTGetImageIndex;
  FVST.OnKeyPress := VSTKeyPress;

  FDirectoryTree := TVirtualDirectoryTree.Create(FVST);
end;

[Uwe Raabe]

Zitat von Bjoerk:

Wo stellt man denn beim VST die Delphiversion ein?

Welche Version VT und welche Version Delphi? VT ab V6 funktioniert nur ab Delphi XE3.

[Bjoerk]

Umgekehrt. Ich hab die V5.3.0: (04 Jan 2014) unter D2007 laufen.
Jetzt aber wollte ich ein Projekt mit der neuen Starter 10 kompilieren.
Ich dachte eigentlich, daß das automatisch geht:

Das soll ja jetzt nicht mehr ausgeführt werden:

Delphi-Quellcode:

{$if CompilerVersion < 20}
type
  UnicodeString = WideString;
  RawByteString = AnsiString;
  PByte = PAnsiChar;
{$ifend}

Aber, wo stellt man denn die CompilerVersion ein. Ich finde da keine inc Datei?

[dummzeuch]

CompilerVersion ist kein Cond. Define sondern eine Konstante, die in System deklariert wird. Eingestellt werden muss da also nichts.

[Uwe Raabe]

Zitat von Bjoerk:

Umgekehrt. Ich hab die V5.3.0: (04 Jan 2014) unter D2007 laufen.
Jetzt aber wollte ich ein Projekt mit der neuen Starter 10 kompilieren.

Das könnte ebenso ein Problem darstellen. Laut ReadMe heißt es:

Zitat:

V6 official release for RAD Studio XE3 to 10.1 Berlin

V5.5.3 for Delphi 7 to XE2

Ich interpoliere das mal auf: V5.3.0 ist nicht mit Delphi 10.1 kompatibel.

[Bjoerk]

Ok. Dank euch. Dann lad ich mir 5.5 runter.

[Stevie]

Zitat von Bjoerk:

Ok. Dank euch. Dann lad ich mir 5.5 runter.

Die wird dann immernoch nicht funktionieren, du brauchst die 6.x

[jaenicke]

Lade doch einfach die neuste Version aus dem Repository herunter (am einfachsten mit TortoiseGit).
https://github.com/Virtual-TreeView/Virtual-TreeView

[Bjoerk]

Zitat von Stevie:

Zitat von Bjoerk:

Ok. Dank euch. Dann lad ich mir 5.5 runter.

Die wird dann immernoch nicht funktionieren, du brauchst die 6.x

Es läuft sogar die 5.3, Ich mußte nur aus dem WideString einen UnicodeString machen.

Delphi-Quellcode:

TDirectoryTreeView.VSTGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: UnicodeString);
begin
  CellText := FDirectoryTree.Caption[Node];
end;