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