Zitat:
wäre es dann nicht einfacher, nur die erste Position sowie den Abstand einzulesen?
Erste Position und die letzte und dann in 100er Schritten das Array füllen.
Vielleicht so? Wenn die Nachkommastellen eh immer 0 sind, kann man das mit Integer machen. Wie man das jetzt mit den Nachkommastellen hinbekommt, weiß ich nicht.
Aber es kommt aufs Prinzip an. Das geht bestimmt viel einfacher.
Delphi-Quellcode:
var
i: Integer;
Werte, WerteNeu: TArray<Double>;
begin
try
SetLength(Werte, 5);
Werte[0] := 0.000000;
Werte[1] := 100.000000;
Werte[2] := 300.000000;
Werte[3] := 600.000000;
Werte[4] := 1200.000000;
for i := Round(Werte[Low(Werte)])
to Round(Werte[High(Werte)])
do
begin
SetLength(WerteNeu, Length(WerteNeu) + 1);
if i
mod 100 = 0
then
begin
WerteNeu[High(WerteNeu)] := i;
WriteLn(i.ToString);
end;
end;
ReadLn;
except
on E:
Exception do
WriteLn(E.ClassName, '
: ', E.
Message);
end;
end;
Code:
0
100
200
300
400
500
600
700
800
900
1000
1100
1200