Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
17. Nov 2011
Oder auch:
procedure TForm1.DoSomethingSenseless(Values: array of integer);
var
i: integer;
begin
for i := Low(Values) to High(Values) do
Memo1.Lines.Add(IntToStr(Values));
end;
Das dürfte auch in älteren Delphi-Versionen funktionieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
17. Nov 2011
Allerdings haben alle Varianten mit dem "in" den gleichen Nachteil: i muss sich im Byte-Bereich bewegen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
17. Nov 2011
Du kannst das auch so machen:
For i := 0 To 8 Do Begin
if i in then
...
End;
Oder Du verlagerst den Code in eine eigene Routine, der Du das "Teilarray" übergibst.
:lol: gammatester hatte den gleichen Gedanken, nur andersherum umgesetzt