Wenn Du die die
Unit in welche Du deine Records ausgelagert hast, in der anderen einbindest geht das.
Kleines Beispiel:
Delphi-Quellcode:
unit uMySecondUnit;
interface
type
PMyRecord = ^TMyRecord;
TMyRecord =
record
Field1, Field2, Field3:
string;
end;
TDialogButtons = (tbOK, tbCANCEL, tbYESNO);
const
CLanguage_de = '
Deutsch';
CLanguage_en = '
Englisch';
implementation
end.
Delphi-Quellcode:
unit uMyFirstUnit;
interface
uses
uMySecondUnit;
type
TMyObject =
class(TObject)
private
FMyRecord: TMyRecord;
FLanguage:
string;
public
procedure SetDlgButtons(AButton: TDialogButtons);
property MyRecord: TMyRecord
read FMyRecord
write FMyRecord;
end;
implementation
procedure TMyObject.SetDlgButtons(AButton: TDialogButtons);
begin
if (AButton = tbOK)
then
FLanguage := CLanguage_de
else
FLanguage := CLanguage_en;
end;
end.