na PSafeArray is so:
Delphi-Quellcode:
PSafeArray = ^TSafeArray;
{$EXTERNALSYM tagSAFEARRAY}
tagSAFEARRAY = record
cDims: Word;
fFeatures: Word;
cbElements: LongWord;
cLocks: LongWord;
pvData: Pointer;
rgsabound: array[0..0] of TSafeArrayBound;
end;
TSafeArray = tagSAFEARRAY;
definiert
Kann ja nicht gehen heist ja nicht umsonst
PSafeArray
aber
Delphi-Quellcode:
CopyMemory(@Safe,DiscRecorder2.VolumePathNames,DiscRecorder2.VolumePathNames.CbElements);
For I := 0 To DiscRecorder2.VolumePathNames.CbElements - 1 Do
Begin
Memo1.Lines.Add(' Mount Point: ' + (Safe[I]));
End;
führt zu
[dcc32 Fehler] Main.pas(115): E2149 Klasse besitzt keine Standardeigenschaft