Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
7. Okt 2005
ach Leute, es wurde gleich am Anfang schon eine supi Variante gepostet, diese leicht abgeändert und man kann eigentlich jeden Typ übergeben (bzw. einen Pointer darauf)
function IsSet(pIntToCheck: PInteger; Bit: Integer): Boolean;
begin
Result := pIntToCheck^ and (1 shl Bit) <> 0;
end;
Und niemand hindert einen dann daran einen anderen Pointer zu übergeben. So kann man sich zum...
Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
5. Okt 2005
das einfachste währe wohl einfach einer funktion einen pointer auf ein Integer zu übergeben, dann kann dann später auch jeder was anderes übergeben (char eines Strings, Single etc.)