Einzelnen Beitrag anzeigen

webcss

Registriert seit: 10. Feb 2006
255 Beiträge
 
Delphi XE2 Professional
 
#4

AW: Generics mit Einschränkungen auf Ordinaltypen?

  Alt 17. Nov 2010, 12:04
Evtl. so:
Delphi-Quellcode:
TFoo<T: record> = class // Beschränkung auf Wertetypen
  procedure Blubb;
end;

procedure TFoo<T>.Blubb;
var
  LSchleife: T;
  LMin: T;
  LMax: T;
begin
  if TypeInfo(T)=TypeInfo(integer) then begin
    LMin:= Low(integer);
    LMax:= High(integer);
  end else
  if TypeInfo(T)=TypeInfo(cardinal) then begin
    LMin:= Low(cardinal);
    LMax:= High(cardinal);
  end; // usw.
  For LSchleife := LMin to LMax do ... ;
end;
Hab's allerdings nicht getestet, nur 'ne Idee...

PS: Also bei mir zeigt mein Profil schon lange Delphi 2009 Professional an
Richtig, aber oben unter dem Topic steht noch "Delphi Version: 5"
"Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt)
"Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt)
mein blog
  Mit Zitat antworten Zitat