Einzelnen Beitrag anzeigen

Benutzerbild von Captnemo
Captnemo

Registriert seit: 27. Jan 2003
Ort: Bodenwerder
1.126 Beiträge
 
Delphi XE4 Architect
 
#1

ObjectList Procedure und Funktionen erstellen

  Alt 8. Aug 2014, 14:04
Delphi-Version: 5
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
Dieter
9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt. Die 10. summt dazu die Melodie von Supermario Bros.
MfG Captnemo
  Mit Zitat antworten Zitat