Record als Funktionsrückgabe

[fly_singapore]

Nein, jedenfalls war es nicht beabsichtigt, innerhalb einer Klassendeklaration diesen Datentyp zu definieren..

im Grossen und Ganzen sieht der Unit-kopf so aus:

Delphi-Quellcode:

unit RLZ_prog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ADODB, Grids, DBGrids, ComCtrls, ExtCtrls,
  Menus, DBCtrls;



type
  TForm1 = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    DBGrid_Produkt: TDBGrid;
    ADO_Ref_Region: TADOTable;
    DataSource3: TDataSource;
    DBGrid_Region: TDBGrid;
    Label_Region: TLabel;
    Label_LSZ: TLabel;
    Edit_AG: TEdit;
    TrackBar_AG: TTrackBar;
    Panel1: TPanel;
    Label_Anzahl: TLabel;
    Label_DS: TLabel;
    Label_Min: TLabel;
    Label_Max: TLabel;
    Label_ergebnis_Anzahl: TLabel;
    Label_Ergebnis_Max: TLabel;
    Label_Ergebnis_DS: TLabel;
    Label_Ergebnis_Min: TLabel;
    Label_Erg_Anzahl: TLabel;
    Label_Erg_Region: TLabel;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Import1: TMenuItem;
    Berechnung1: TMenuItem;
    Beenden1: TMenuItem;
    Extrax1: TMenuItem;
    Datenbankeinbinden1: TMenuItem;
    N1: TMenuItem;
    Produktendern1: TMenuItem;
    ADOQuery2: TADOQuery;
    DataSource4: TDataSource;
    DBText_Anzahl: TDBText;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid_RegionDblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TrackBar_AGChange(Sender: TObject);
    procedure ScrollBar_AbdeckungsgradChange(Sender: TObject);
    procedure DBGrid_ProduktDblClick(Sender: TObject);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  

  private
    { Private-Deklarationen }
  public
  cLSZ , cText, cWert, cRegion, cSQLString : String;
  iAG_Wert, iWert :  Integer  ;
  bResult : Boolean       ;

  type
      TRGW = record
      iAnzahl : integer;
      iDS     : integer;
      iMin    : integer;
      iMax    : integer;

  end;
    { Public-Deklarationen }

     end;

  function new_calc(cLSZ: string; oQuery: TADOQuery) : TRGW


var
  Form1: TForm1;

[DeddyH]

Wie ich schon vermutet hatte. Kleine Änderung:

Delphi-Quellcode:

unit RLZ_prog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ADODB, Grids, DBGrids, ComCtrls, ExtCtrls,
  Menus, DBCtrls;

type
  TForm1 = class(TForm)
    (* weggekürzt *)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    cLSZ , cText, cWert, cRegion, cSQLString : String;
    iAG_Wert, iWert :  Integer  ;
    bResult : Boolean       ;
  end;  //Ende der Klassendeklaration

  TRGW = record
      iAnzahl : integer;
      iDS     : integer;
      iMin    : integer;
      iMax    : integer;
  end;


  function new_calc(cLSZ: string; oQuery: TADOQuery) : TRGW;


var
  Form1: TForm1;

[fly_singapore]

Hallo DeddyH,

vielen Dank für Deine Hilfe; ich habe es etwas zurechtgerückt. jetzt funktioniert es !!!

[himitsu]

Zitat von DeddyH:

Wie ich schon vermutet hatte. Kleine Änderung:

Oder den richtigen Namespace angeben.
function new_calc(cLSZ: string; oQuery: TADOQuery) : TForm1.TRGW; .

Warum man natürlich dennoch fragen könnte, warum diese Klasse in der Form liegt.