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