Delphi-Quellcode:
var DBE: TDBEdit;
var y: Integer;
begin
Save_NumFields := NumFields; // NumFields wird mit der Funktion übergeben und ist eben die Anzahl der Felder, die erstellt werden sollen
if not Assigned(DBE) then begin
for y := 1 to Save_NumFields do begin
FreeAndNil(Form1.FindComponent('DBEdit_' + IntToStr(y)));
end;
end;
end;
Fehlermeldung:
Ist die Zeile mit der Funktion FreeAndNil();
[Fehler] Unit1.pas(108): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden