Record als Funktionsrückgabe

[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;