|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Dem Typ TObject eine Property hinzufügen
7. Mär 2006, 16:05
Kleiner Fehler:
Delphi-Quellcode:
function GetSprachCode(aComponent:TComponent):Integer;
begin
result := (aComponent.Tag and $FFFF0000) shr 16;
end;
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|