Hallo,
wenn ich einen Record deklariere und diesen dann einer Funktion als Result zuordne, werden alle Werte innerhalb des Records auf True gesetzt.
Warum, weiß ich nicht.
Hier ein Beispiel:
Code:
type
TTest_Result = record
Test_a : Boolean;
Test_b : Boolean;
Test_c : Boolean;
end;
function test(a:integer):TTest_Result;
function test(a:integer):TTest_Result;
begin
Result.Test_a := True;
end;
Rufe ich die funktion nun auf, ist alles vom Result auch True.
Eine Zuweisung mittels
Result.Test_b := False; z.B. innerhalb der function oder vorher aus dem Aufruf der function heraus, bringt auch nichts.
Warum passiert das und wie behebe ich diesen Fehler?
LG Mathias
Du gibst einen uninitialsierten Record zurück. Daher ist es Zufall, was da deine Boolean für Werte haben. Ist das Byte auf auf das der Boolean zeigt per Zufall 0 ist es False, alles andere wird zu True. Die Lösung ist ganz einfach. Initialisieren den Recordspeicher mit Nullen.
Code:
type
TTest_Result = record
Test_a : Boolean;
Test_b : Boolean;
Test_c : Boolean;
end;
function test(a:integer):TTest_Result;
function test(a:integer):TTest_Result;
begin
FillChar(Result, SizeOf(Result), 0);
Result.Test_a := True;
end;