Du musst die Funktion in sich selbst dimensionieren.
Delphi-Quellcode:
...
interface
Type
TebTest = record
Element1:string;
Element2:string;
Element3:integer;
end;
TebTestArray: Array of TebTest;
...
function ebTestDo(Parameter):TebTestArray;
...
implementation
function ebTestDo(Parameter):TebTestArray;
begin
SetLength(result, 24); // <---------------- hier
end;
function ebAnderesDo(andereParameter):TandererTyp
begin
end;
...
Grund: Der Rüchgabewert existiert ausserhalb der Funktion noch nicht.
Gruss,
Fabian
\\edit: Uiii, und kein roter Kasten
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel