Первое, что пришло в голову — Теорема Пифагора 
| Код |
uses
Generics.Collections, Generics.Defaults, Math;
type
TItem = class
private
FValue1: Double;
FValue2: Integer;
FDistance: Double;
public
constructor Create(Value1: Double; Value2: Integer);
function ToString: String; override;
property Value1: Double read FValue1;
property Distance: Double read FDistance;
end;
constructor TItem.Create;
begin
FValue1 := Value1;
FValue2 := Value2;
FDistance := Sqrt(Sqr(FValue1) + Sqr(FValue2));
end;
function TItem.ToString;
begin
Result := Format('%f %d', [FValue1, FValue2]);
end;
procedure TMainForm.FormCreate(Sender: TObject);
var
List: TList<TItem>;
begin
List := TList<TItem>.Create(TComparer<TItem>.Construct(
function(const Left, Right: TItem): Integer
begin
Result := CompareValue(Left.Distance, Right.Distance);
if Result = 0 then
Result := CompareValue(Left.Value1, Right.Value1);
end));
try
List.AddRange([
TItem.Create(1, 6),
TItem.Create(5, 1),
TItem.Create(2, 4),
TItem.Create(2, 2)]);
List.Sort;
Self.Caption := List.First.ToString;
finally
List.Free;
end;
end;
|
|
