Abgesehen davon welches halbe Dutzend etablierte Patterns ich hier hätte unterbringen können, rein syntaktisch wollte mir nur sparen, für alle Methoden ständig die gleichen Parameterlisten in der Deklaration runterzutippen sondern es einmal an einem Platz haben...
Du kopierst dir einfach die erste Methode mit der notwendigen Parameterliste und fügst dann das Kopierte darunter so oft ein, wie du es benötigst:
Delphi-Quellcode:
private
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
Danach mußt du nur noch die Proceduren-Bezeichner der Kopien ändern:
Delphi-Quellcode:
private
procedure proc1(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc2(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc3(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc4(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc5(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc6(input1: Integer; input2: TSomeClass; out output: Double);
procedure proc7(input1: Integer; input2: TSomeClass; out output: Double);
Am Schluß erzeugst du die Methoden mit Strg+Shift+C:
Delphi-Quellcode:
procedure TForm1.proc1(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
procedure TForm1.proc2(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
procedure TForm1.proc3(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
procedure TForm1.proc4(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
procedure TForm1.proc5(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
procedure TForm1.proc6(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
procedure TForm1.proc7(input1: Integer; input2: TSomeClass; out output: Double);
begin
end;
Dauer der Aktion bei 7 Proceduren: Unter einer Minute!