ObjectList Procedure und Funktionen erstellen

[Captnemo]

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

[Sir Rufo]

Aber natürlich, dass nennt sich Generics und geht dann so

Delphi-Quellcode:

uses
  System.Generics.Collections;

type
  TLicenseKeys = TObjectList<TLicenseKey>;

und fertig :mrgreen:

[Dejan Vu]

Wie wäre es mit Generics?

[Captnemo]

Und damit hab ich die gleichen Möglichleiten? Also auch proceduren überschreiben? Und eigene hinzufügen? Oder bin ich damit irgendwie eingeschränkt?

[TiGü]

Alles machbar, probiere es aus!

[himitsu]

Wie ging das mit den Ableitungen? :stupid:

Delphi-Quellcode:

type
  TLicenseKeys = class(TObjectList<TLicenseKey>)
  end;

[Dejan Vu]

C# mag das nicht, Delphi wohl schon (was praktisch wäre).