Forum: Object-Pascal / Delphi-Language
by Bjoerk,
13. Feb 2013
Aha, na dann..
Warum nicht einfach so?
if ((I + 1) mod 10 = 0) or (I = High(Array)) then
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
13. Feb 2013
Nee nee Ralph, das wird so nicht funzen (für i = 0 ist die mod Bedigung ebenfalls erfüllt).
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
13. Feb 2013
Oder man baut sich gleich eine Klasse, die die entsprechende Funktionalität zur Verfügung stellt (braucht man eh öfter). Wenn XE bereits eine TIntegerList hat, dann kann man die Klasse ja auch davon ableiten und entsprechend erweitern.
procedure TIntegerList.Exchange(Index1, Index2: integer);
var
T: integer;
begin
end;
procedure TIntegerList.Sort;
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
12. Feb 2013
Eine Reihe von Zufallszahlen kann man eigentlich ganz nett mit einer TList machen.
procedure GetRandomNumbers(Strings: TStrings; AFrom, ATo: integer);
var
I, J: integer;
List: TList;
begin
List := TList.Create;
Strings.Clear;
try