Zitat von
MacGuyver:
Delphi-Quellcode:
var
lSeek : TSeek;
lSeek := TSeek.Create( FldPK, TheTable.FldIlbSolKurz.AsString );
try
Seek( [ TSeek(lSeek) ] );
finally
lSeek.Free;
end;
Den Cast kannst du dir sparen.
Zitat von
MacGuyver:
Sieht auf den ersten Blick korrekt aus. Nur, die aufzurufende Funktion ist so deklariert:
function Seek( SeekFields : Array of TSeek ) : boolean;
Jetzt erzählt er mir andauernd "Ordinaltyp erforderlich". Ich habe schon einiges probiert. Als TObject, als Pointer.... Keine Ahnung, wie ich die Stelle jetzt umsetzen soll. Kann mir jemand von euch weiterhelfen?
In welcher Zeile mäkelt er den? Folgendes lässt sich bei mir kompilieren:
Delphi-Quellcode:
type
TSeek = class
end;
function Seek(SeekFields: array of TSeek): boolean;
begin
end;
procedure Test;
var
lSeek: TSeek;
begin
lSeek := TSeek.Create;
try
Seek([lSeek]);
finally
lSeek.Free;
end;
end;