Methodenaufruf nur für Klassenmethoden / Konstruktoren

[Freyr77]

Beim UpdateLogTool so :

Delphi-Quellcode:

 TUpdateLogTool = class(TFrame)
    gridUpdateLog: TStringGrid;
    lblFromVersion: TLabel;
    lblToVersion: TLabel;
    cmbBoxFrom: TComboBox;
    cmbBoxTo: TComboBox;
    btnSave: TButton;

    procedure DrawCheckBoxInGrid(const pColumn, pRow: integer; Rect: TRect);
    procedure gridUpdateLogDrawCell(Sender: TObject; ACol, ARow: integer;
      Rect: TRect; State: TGridDrawState);
    procedure gridUpdateLogTopLeftChanged(Sender: TObject);
    procedure CheckboxMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: integer);
    function AddCheckBox(const pColumn, pRow: integer): TGridCheckbox;
    procedure ResizeGrid;

  private
  { Private-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
  end;

TDBSQLDaten so:

Delphi-Quellcode:

type
  TDBSQLDaten= class
  private

  public
  const TableName = 'TTProbleme';

  function GetTProblemeData: TSQLTTProbleme;

  end;

Und die "class function" sieht so aus:

Delphi-Quellcode:

function TDBProbleme.GetTProblemeData: TSQLTTProbleme; / -> GetSQLDaten = GetTProblemeData, hatte das beim kopieren in das Forum umbenannt zum bessern Verständnis
var
lProblemeSQL : TSQLTTProbleme;

begin

  lProblemeSQL := TSQLTTProbleme.Create;

  TRAGSynDBNexusDB.FillAndPrepareRecord(SynDBNexusDBRag.ConnectionProps, lProblemeSQL);//, [], '', []);

  Result := lProblemeSQL;
end;