일반 정렬기 Tcomparer
10375 단어 compare
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Generics.Collections, Generics.Defaults; { }
// 10 ,
procedure TForm1.Button1Click(Sender: TObject);
var
arr: array of Integer;
i: Integer;
begin
{ }
Randomize;
for i := 0 to 9 do begin
SetLength(arr, Length(arr)+1);
arr[i] := Random(10);
end;
{ }
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr[i]));
{ }
TArray.Sort<Integer>(arr); { 1 、2 、4 , , }
{ }
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr[i]));
end;
// TArray.Sort IComparer<T> , : TComparer<T>.Default
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i: Integer;
begin
Randomize;
for i := 0 to 9 do begin
SetLength(arr, Length(arr)+1);
arr[i] := Random(10);
end;
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr[i]));
{ , }
TArray.Sort<Integer>(arr, TComparer<Integer>.Default);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr[i]));
end;
// ,
procedure TForm1.Button3Click(Sender: TObject);
var
arr: array of Integer;
i: Integer;
Comparer: IComparer<Integer>;
begin
Randomize;
for i := 0 to 9 do begin
SetLength(arr, Length(arr)+1);
arr[i] := Random(10);
end;
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr[i]));
Comparer := TComparer<Integer>.Default;
TArray.Sort<Integer>(arr, Comparer);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr[i]));
end;
// TArray.Sort :
procedure TForm1.Button4Click(Sender: TObject);
var
arr: array of Integer;
i: Integer;
Comparer: IComparer<Integer>;
begin
Randomize;
for i := 0 to 9 do begin
SetLength(arr, Length(arr)+1);
arr[i] := Random(10);
end;
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr[i]));
Comparer := TComparer<Integer>.Default;
{ 1 , 3 }
TArray.Sort<Integer>(arr, Comparer, 0, 3);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr[i]));
end;
// , , TMyComparer, :
type
TMyComparer = class(TComparer<Integer>)
public
function Compare(const Left, Right: Integer): Integer; override;
end;
{ TMyComparer }
function TMyComparer.Compare(const Left, Right: Integer): Integer;
begin
Result := Right - Left;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
arr: array of Integer;
i: Integer;
Comparer: TMyComparer;
begin
Randomize;
for i := 0 to 9 do begin
SetLength(arr, Length(arr)+1);
arr[i] := Random(10);
end;
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr[i]));
Comparer := TMyComparer.Create;
TArray.Sort<Integer>(arr, Comparer);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr[i]));
Comparer.Free;
end;
// TComparer<T>.Construct , TComparison ,
function MyFunc1(const Left, Right: Integer): Integer;
begin
Result := Right - Left;
end;
procedure TForm1.Button6Click(Sender: TObject);
var
arr: array of Integer;
i: Integer;
Comparer: IComparer<Integer>;
begin
Randomize;
for i := 0 to 9 do begin
SetLength(arr, Length(arr)+1);
arr[i] := Random(10);
end;
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr[i]));
Comparer := TComparer<Integer>.Construct(MyFunc1);
TArray.Sort<Integer>(arr, Comparer);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr[i]));
end;
// ,
type
TPerson = record
name: string;
age: Word;
end;
function MyFunc2(const Left, Right: TPerson): Integer;
begin
Result := Left.age - Right.age;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
arr: array of TPerson;
i: Integer;
Comparer: IComparer<TPerson>;
begin
SetLength(arr, 4);
arr[0].name := 'AA'; arr[0].age := 22;
arr[1].name := 'BB'; arr[1].age := 33;
arr[2].name := 'CC'; arr[2].age := 44;
arr[3].name := 'DD'; arr[3].age := 11;
Memo1.Clear;
for i := 0 to Length(arr) - 1 do
Memo1.Lines.Add(Format('%s : %d', [arr[i].name, arr[i].age]));
Comparer := TComparer<TPerson>.Construct(MyFunc2);
TArray.Sort<TPerson>(arr, Comparer);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do
Memo2.Lines.Add(Format('%s : %d', [arr[i].name, arr[i].age]));
end;
// TStringComparer.Ordinal string , .
// (Delphi 2010 - 14.0.3513.24210), .
procedure TForm1.Button8Click(Sender: TObject);
var
arr: array of string;
i: Integer;
begin
SetLength(arr, 4);
arr[0] := '222';
arr[1] := '111';
arr[2] := 'bbb';
arr[3] := 'aaa';
Memo1.Clear;
for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(arr[i]);
TArray.Sort<string>(arr, TStringComparer.Ordinal);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(arr[i]);
end;
//
function MyComparerFunc(const s1,s2: string): Integer;
begin
Result := CompareText(s2, s1);
//Result := -CompareText(s1, s2); { }
end;
procedure TForm1.Button9Click(Sender: TObject);
var
arr: array of string;
i: Integer;
Comparer: IComparer<string>;
begin
Memo1.Clear;
Memo1.Lines.CommaText := '11,33,22,AAA,CCC,BBB';
SetLength(arr, Memo1.Lines.Count);
for i := 0 to Length(arr) - 1 do arr[i] := Memo1.Lines[i];
Comparer := TComparer<string>.Construct(MyComparerFunc);
TArray.Sort<string>(arr, Comparer);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(arr[i]);
end;
// :
procedure TForm1.Button10Click(Sender: TObject);
var
arr: array of string;
i: Integer;
Comparer: IComparer<string>;
begin
Memo1.Clear;
Memo1.Lines.CommaText := '11,33,22,AAA,CCC,BBB';
SetLength(arr, Memo1.Lines.Count);
for i := 0 to Length(arr) - 1 do arr[i] := Memo1.Lines[i];
Comparer := TComparer<string>.Construct(
function (const s1,s2: string): Integer
begin
Result := CompareText(s2, s1);
end);
TArray.Sort<string>(arr, Comparer);
Memo2.Clear;
for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(arr[i]);
end;
end.
창 파일 테스트(창 파일을 첨부한 이유는 다시 쉽게 테스트하기 위해서):
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 321
ClientWidth = 318
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 89
Height = 321
Align = alLeft
Lines.Strings = (
'Memo1')
TabOrder = 0
ExplicitHeight = 299
end
object Button1: TButton
Left = 120
Top = 8
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 120
Top = 39
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 120
Top = 70
Width = 75
Height = 25
Caption = 'Button3'
TabOrder = 3
OnClick = Button3Click
end
object Memo2: TMemo
Left = 219
Top = 0
Width = 99
Height = 321
Align = alRight
Lines.Strings = (
'Memo2')
TabOrder = 4
ExplicitHeight = 299
end
object Button4: TButton
Left = 120
Top = 101
Width = 75
Height = 25
Caption = 'Button4'
TabOrder = 5
OnClick = Button4Click
end
object Button5: TButton
Left = 120
Top = 132
Width = 75
Height = 25
Caption = 'Button5'
TabOrder = 6
OnClick = Button5Click
end
object Button6: TButton
Left = 120
Top = 163
Width = 75
Height = 25
Caption = 'Button6'
TabOrder = 7
OnClick = Button6Click
end
object Button7: TButton
Left = 120
Top = 194
Width = 75
Height = 25
Caption = 'Button7'
TabOrder = 8
OnClick = Button7Click
end
object Button8: TButton
Left = 120
Top = 225
Width = 75
Height = 25
Caption = 'Button8'
TabOrder = 9
OnClick = Button8Click
end
object Button9: TButton
Left = 120
Top = 256
Width = 75
Height = 25
Caption = 'Button9'
TabOrder = 10
OnClick = Button9Click
end
object Button10: TButton
Left = 120
Top = 287
Width = 75
Height = 25
Caption = 'Button10'
TabOrder = 11
OnClick = Button10Click
end
end
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Java - 차이점을 얻기 위해 두 개의 Word 문서를 비교하는 방법우리는 종종 직장에서 문서의 두 가지 버전을 얻습니다. 두 개의 유사한 버전을 비교하고 차이점을 찾아야 하는 것은 드문 일이 아닙니다. 이 기사에서는 을 사용하여 두 개의 Word 문서를 비교하고 Java에서 차이점...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
