Forum: Programmieren allgemein
by himitsu,
22. Apr 2009
wie gesagt, bei mir geht es und es kommt 171717 raus ...
also je foWaermeuebergang1(1) und foWaermeuebergang2(7)
procedure TForm1.FormCreate(Sender: TObject);
var ElementX: TAllItems ;
i: Integer;
begin
Caption := '';
for ElementX in do
begin
Forum: Programmieren allgemein
by himitsu,
22. Apr 2009
also bei mir geht dein Code :gruebel:
D2009 ... sicher daß es in D2006 (TurboDelphi) auch schon drin ist?
etwas unefektiver, aber dafür in allen Delphi-Versionen lauffähig: :stupid:
for ElementX := Low(ElementX) to High(ElementX) do
if ElementX in then
begin