hab es grad mal im
OI der rechten Spalte zugewiesen
und direkt beim Programmstart erhalte ich gleich dieses
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt SearchSameFiles.exe ist eine
Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 004F1C3A in Modul 'SearchSameFiles.exe'. Lesen von Adresse 00000004' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
und lande in der markierten Zeile
Delphi-Quellcode:
function TVirtualTreeColumns.TotalWidth: Integer;
var
LastColumn: TColumnIndex;
begin
if Count = 0 then
Result := 0
else
begin
>>> LastColumn := FPositionToIndex[Count - 1]; <<<<<<<<<<<<<<<<<
if not (coVisible in Items[LastColumn].FOptions) then
LastColumn := GetPreviousVisibleColumn(LastColumn);