Data fra pSafeArray

som alle os andre : søger på google !

http://www.google.com/search?sourceid=navclient&ie=UTF-8&rls=WZPA,WZPA:2005-25,WZPA:en&q=pSafeArray+%2B+delphi

Hehe
Ja det har jeg forsøgt, måske er det mig - men jeg kan ikke rigtig finde noget jeg kan bruge.

Så har du sq ikke ledt redt godt :
http://www.thedelphimagazine.com/samples/1355/1355.htm
» Listing 20

Det tog 30 sekunder at finde.

Oki, måske jeg misforstår noget, men putter den funktion ikke data IND i et pSafeArray ?

j oden funktion putter data ind i en pSafeArray. Men hvis du ved hvordan du putter data ind kan du også trække dem ud

function TDataSetScriptControl.Validate(strField: string): boolean;
var
  strProcName: widestring;
  aParams : PSafeArray;
  vParams : Variant;
begin
  Result:=True;
  strProcName:='OnValidate'+strField;
  if Assigned(FDataSet) and ProcedureExists(strProcName) then
  begin
    vParams  := VarArrayCreate([0, 0], varVariant); 
    vParams[0]:=FDataSet.FieldByName(strField).Value;
    aParams  :=PSafeArray(TVarData(vParams).VArray); 
    Result := Run(strProcName, aParams);
  end;
end;



pSafeArray er et array af Varianter så du skal vide hvad der ligger der i ellers må du bruge funktionerne fra Variants.pas til at finde ud af hvad du har fundet  :

function VarType(const V: Variant): TVarType;
function VarAsType(const V: Variant; AVarType: TVarType): Variant;
function VarIsType(const V: Variant; AVarType: TVarType): Boolean; overload;
function VarIsType(const V: Variant; const AVarTypes: array of TVarType): Boolean; overload;
function VarIsByRef(const V: Variant): Boolean;


To mention but a few.

Jens B

Luk