Hi,
wenn ich in einer
Unit proceduren und Functionen im Interface erstelle, dann kann ich mir die tatsächliche Procedure oder function ja mit STRG+SHIFT+C automatisch erstellen lassen.
Das geht logischerweise auch mit objectlisten, klar.
Gibt es auch eine Möglichkeit die im Falle der Objectliste gleich mit den Standardinhalt erstellen lassen, dass quasi gleich sowas rauskommt:
Delphi-Quellcode:
function TLicenseKeys.Add(LicenseKey: TLicenseKey): Integer;
begin
Result := inherited Add(LicenseKey);
end;
function TLicenseKeys.First: TLicenseKey;
begin
Result := TLicenseKey(inherited First());
end;
function TLicenseKeys.getItem(index: Integer): TLicenseKey;
begin
Result := TLicenseKey(inherited Items[Index]);
end;
function TLicenseKeys.IndexOf(LicenseKey: TLicenseKey): Integer;
begin
Result := inherited IndexOf(LicenseKey);
end;
procedure TLicenseKeys.Insert(index: Integer; LicenseKey: TLicenseKey);
begin
inherited Insert(index, LicenseKey);
end;
function TLicenseKeys.Last: TLicenseKey;
begin
Result := TLicenseKey(inherited Last());
end;
function TLicenseKeys.Remove(LicenseKey: TLicenseKey): Integer;
begin
Result := inherited Remove(LicenseKey);
end;
procedure TLicenseKeys.setItem(index: Integer; LicenseKey: TLicenseKey);
begin
inherited Items[index] := LicenseKey;
end;
Die Klasse ist ja im Interface bekannt, genauso wie der Bezeichner der Klasse. Und der Inhalt in den Proceduren und Functionen ist ja auch erst mal nur Standard.
Vielleicht gibt's dafür ja auch einen Hotkey (vlt. über GExperts oder CnPack oder so).
Zur Zeit mach ich das immer so, dass ich mir zwar die Procedure und Funktionen per Hotkey erstellen lasse, aber dann jeweils den Inhalt reinkopiere (bin leider manchmal schreibfaul). Und dann mit Copy+Paste die Klasse und den Bezeichner ersetze (oder mit suchen+ersetzen). Aber vielleicht geht's ja auch einfacher