Läuft immer noch nicht richtig. Beim Kompilieren läufts jetzt alles - dafür vielen Dank! - aber letztendlich gibts dann doch wieder Probleme.
Erstmal:
(Ich habe aktuell alles in Public gelegt, das gehört natürlich letztendlich nicht so, halt zum probieren)
Delphi-Quellcode:
TProfil = Record
...
TSpeicher = class
private
public
Profilspeicher: Array of TProfil; //Der echte Speicher
function Get(Index: Integer): TProfil;
procedure Put(Index: Integer; S: TProfil);
property PProfilspeicher[index: integer]: TProfil read Get write put;
end;
TForm13 = class(TForm)
private
public
Speicher : TSpeicher;
end;
[...]
implementation
procedure SetLength(Filename: string);
begin
setLength(???, 10);
end;
Was muss bei ??? hin, um die Länge vom dyn. Array Profilspeicher einzustellen?