Variablen und Record-Typen in anderen Units nutzen

[DataNess]

Hallo,

Ich habe ein Problem mit Record-Typen die ich in einer Unit definiert habe, und im Hauptprogram nutzen möchte. Da ich mich mit Pascal relativ gut auskenne, habe ich es so probiert, wie ich es in Pascal machen würde. Und siehe da es klappt, Aber nur im Konsolenprogramm. Nun habe ich alle möglichen Tipps und Anleitungen zum Thema 'Variablen in andern Units nutzen' gesucht und abgeändert aber ich komm leider nicht weiter.
Zum Verständniss für euch hab ich ein kleines vereinfachtes Programm gebastelt, was Fehlerfrei funktioniert.

Das ist das 'Hauptprogramm' in welchem ich gern eine Variable 'Toleranzen' nutzen möchte, dessen Type in der Unit definiert wurde.

Delphi-Quellcode:

program unittest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  DateiUnit in 'DateiUnit.pas';

Var n:integer;
    Toleranzen:Array of TTolRec;

begin
 assignfile(TolFile,'Test.dat');
 AnzTol:=2;
 setlength(Toleranzen,AnzTol);
 With Toleranzen[1] do
 begin
   Zeit:=now;
   Name:='Erster';
 end;
 rewrite(TolFile);
  With Toleranzen[2] do
 begin
   Zeit:=now;
   Name:='Zweiter';
 end;
 for n:=1 to AnzTol do WriteTolDat(Toleranzen[n]);
 closefile(TolFile);
end.

Und nun kommt die Unit, in der dieser Type definiert und verwendet wird.

Delphi-Quellcode:

unit DateiUnit;

interface
type        TTolRec=record
             Nr:integer;
             Sach_NR:String[10];
             Zeit: TDateTime;
             Name:String[15];
             UT_M01,OT_M01,UT_M02,OT_M02:String[8];
            end;

var TolFile:file of TTolRec;
    AnzTol:integer;

Procedure WriteTolDat(TolRec:TTolRec);

implementation

Procedure WriteTolDat(TolRec:TTolRec);
begin
  write(TolFile,TolRec);
end;

end.

Wie gesagt, so geht es im Konsolenprogrammmodus...
Nun möchte ich diese Unit in einem normalen 'Form-Programm' nutzen und weiß aber nur:
1. Ich brauch einen 'Class-Type' - aber welchen / TDateiUnit = Class(???)
2. man muß Variablen und Proceduren unter 'public' definieren
ich darf aber keine 'Type-Definition' unter 'public' schreiben - wo dann
3. Wie muss ich den 'Record-Type' in der 'Form1-Unit' definieren
(var Toleranzen:Array of TDateiUnit.TTolRec; ) ?

Wäre es möglich, das sich jemand die Mühe macht die beiden Quellcodes komplett anzupassen ?
(Zum bessern Verständniss für mich)

Danke im Vorraus

[bttb930]

du kannst einfach die unit in die form-unit einbinden und dann in der form-klassen-deklaration einfügen:

private
fTolRec: TTolRec;

mehr nicht. ne klasse brauchst du dazu auch nicht.

PS: Natürlich musst du die unit dem projekt hinzufügen!

[DataNess]

Danke,

das ist ja einfacher als ich dachte... :thumb:

Da haben sich auch gleich noch andere Probleme geklärt,
zB. Funktionen die als overload declariert sind...

Danke nochmal, und Tschüss