Hm, jetzt hatte ich den doofen Kasten, aber ich möchte es trotzdem so abschicken.. Passt (hoffentlich)...
Ich möchte dir auch noch einmal die Verwendung von Klassen empfehlen. Zumindest, wenn ich lese, dass Du dich da noch nicht dran "getraut" hast, könnte man sagen, dass du dann einiges (oder vieles) verpasst.
Das würde bei dir dann z.B. so aussehen:
Delphi-Quellcode:
type
TRecord = class
private
FUnterRecord1: TUnterRecord1;
public
constructor Create;
property UnterRecord1: TUnterRecord1 read FUnterRecord1;
end;
...
procedure TForm1.DoSomething;
var
R: TRecord;
begin
// Den Kollegen erstellen
R := TRecord.Create;
R.UnterRecord1.Variable := 123;
end;
constructor TRecord.Create;
begin
// Initialisieren...
FUnterRecord1.Variable := 0;
end;
Alternativ könnte FUnterRecord1 natürlich auch selbst eine Klasse sein, von der im Constructor von TRecord eine Instanz erstellt wird... Ich will nicht zum übertreiben raten, es kommt immer auf den Kontext an, aber wer sich noch nie an Klassen herangetraut hat, der sollte sich damit beschäftigen.
Auf Dauer erspart man sich viel doppelten Code, man erhält die Übersichtlichkeit und damit spart man im Endeffekt viel Zeit.