File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -3901,7 +3901,7 @@ TManagedRec = record
39013901 values[j].DoubleValue :=j;
39023902 PDouble(@values[j].Stuff[0 ])^ := 2 * j;
39033903 PDouble(@values[j].Stuff[8 ])^ := -3 * j;
3904- values[j].Text := FloatToStr (6 * j + 2 );
3904+ values[j].Text := IntToStr (6 * j + 2 );
39053905 end ;
39063906 TArray.Shuffle<TManagedRec>(values);
39073907 TArray.StableSort<TManagedRec>(values, comparison);
@@ -3912,7 +3912,7 @@ TManagedRec = record
39123912 CheckEquals(j, values[j].DoubleValue);
39133913 CheckEquals(2 * j, PDouble(@values[j].Stuff[0 ])^);
39143914 CheckEquals(-3 * j, PDouble(@values[j].Stuff[8 ])^);
3915- CheckEquals(FloatToStr (6 * j + 2 ), values[j].Text);
3915+ CheckEquals(IntToStr (6 * j + 2 ), values[j].Text);
39163916 end ;
39173917 end ;
39183918end ;
You can’t perform that action at this time.
0 commit comments