Automatische Pozedurerzeugung

[fliegermichl]

Ich habe eine Methode in meinem Formular erstellt und auch implementiert.
Wenn ich jetzt irgendeinen Event durch Doppelklick im Inspektor erzeuge,
dann erzeugt mir die IDE immer nochmal eine zusätzliche leere Implementation meiner Methode was der Compiler natürlich dann anmeckert.
Ich kann diese leere Implementation natürlich löschen aber es nervt.

Die Ursache liegt darin, dass ich die Parameter der Implementation nicht ganz genauso aufgeführt habe wie bei der Deklaration im Interfaceteil obwohl es syntaktisch korrekt ist und ja auch compiliert wird.

Code: Alles auswählen

type
 TForm1 = class ( TForm )
 public
  function GetIniEntry(Section: string; Value: string; Default : string = '') : string;
 end;
 
implementation
function TForm1.GetIniEntry(Section, Value, Default : string) : string;
begin
end;

Kann man das als Bug in den Codetools werten?

[m.fuchs]

Was spricht denn dagegen in der Implementation die Definition einfach korrekt hinzuschreiben?

Ich würde das jedenfalls nicht als Bug werten.

[sstvmaster]

Also hier bei mir mit einem leeren neuen Projekt, unter Windows, kann ich das nicht nachvollziehen.

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormChangeBounds(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public
    function GetIniEntry(Section: string; Value: string; Default : string = '') : string;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormChangeBounds(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

function TForm1.GetIniEntry(Section: string; Value: string; Default: string
  ): string;
begin

end;

end.   

[sstvmaster]

Was spricht denn dagegen in der Implementation die Definition einfach korrekt hinzuschreiben?

Ich würde das jedenfalls nicht als Bug werten.

Das wird doch aber so mit Shift+Strg+C so automatisch erzeugt?

[m.fuchs]

Also hier bei mir mit einem leeren neuen Projekt, unter Windows, kann ich das nicht nachvollziehen.

Du hast im Implementations-Teil es genauso geschrieben, wie im Interface:

Code: Alles auswählen

function TForm1.GetIniEntry(Section: string; Value: string; Default: string): string;

Und nicht wie fliegermichl in einer zusammengefassten Variante:

Code: Alles auswählen

function TForm1.GetiEntry(Section, Value, Default : string) : string;

[m.fuchs]

Was spricht denn dagegen in der Implementation die Definition einfach korrekt hinzuschreiben?

Ich würde das jedenfalls nicht als Bug werten.

Das wird doch aber so mit Shift+Strg+C so automatisch erzeugt?

Nein, erzeugt wird jeder Parameter mit eigener Typangabe, nicht die Zusammenfassung - drei Parameter, kommagetrennt und eine Typangabe. Das ist halt der Unterschied.

Ich sehe aber keinen Grund, warum man diese Zusammenfassung benötigt.

[sstvmaster]

Nein habe ich nicht, s.o. Oder deine Browser zeigt da was falsch an.

Code: Alles auswählen

function GetIniEntry(Section: string; Value: string; Default : string = '') : string;

[sstvmaster]

Ja jetzt habe ich es gesehen.

[m.fuchs]

Nein habe ich nicht, s.o. Oder deine Browser zeigt da was falsch an.

Code: Alles auswählen

function GetIniEntry(Section: string; Value: string; Default : string = '') : string;

Das ist doch aber die nicht zusammengefasste Angabe der Parameter. Genau wie ich es sage, drei Parameter, drei Doppelpunkte, dreimal String. Dann funktioniert es auch.

[sstvmaster]

Hast recht.

[fliegermichl]

Ja das waren händisch angelegte Implementierungen.
Wenn ich neue Methoden anlege und Ctrl+Shift+C erzeuge, dann wird die Implementierung exakt gleich angelegt.

Dann werde ich die Köpfe der betroffenen Implementierungen eben anpassen.