Ich hab jetzt das ganze mal ausprobiert, aber leider noch zu keinen effektiven Ergebnis gekommen.
Den Quelltext habe ich ein klein wenig an meine Bedürfnisse angepasst.
Delphi-Quellcode:
procedure AddNewLabeledEdit(aLeft, aTop, aWidth: Integer; const aCaption, aName, aParent: string);
[...]
implementation
[...]
procedure TneuerEintrag.AddNewLabeledEdit(aLeft, aTop, aWidth: Integer; const aCaption, aName, aParent: string); //Zeile 86
var
lbledt: TLabeledEdit;
begin
lbledt:=TLabeledEdit.Create(self);
lbledt.Left:=aLeft;
lbledt.Top:=aTop;
lbledt.Width:=aWidth;
lbledt.EditLabel.Caption:=aCaption;
lbledt.Name:='lbledt'+aName;
lbledt.Parent:=aParent;
lbledt.Font.Name:='Arial';
lbledt.EditLabel.Font.Name:='Arial';
lbledt.Font.Size:=9;
lbledt.EditLabel.Font.Size:=9;
lbledt.Show;
end;
[...]
Fehlermeldung: 'frmneuerEintrag' enthält kein Element namens 'AddNewLabeledEdit' in Zeile 86.
Für die Zeile kommt auch der Fehler, dass bei dem Punkt ein ; erwartet wurde und solche ähnlichen Späße.
Bin mir jetzt recht unsicher, wo mein Fehler liegt.