Форум программистов [Powered by Invision Power Board]

Цитата(Pcrepair @ 27.7.2012, 07:12

)

Вопрос: какими способами можно все это сделать?

Цитата(DarkProg @ 27.7.2012, 11:20

)

Потом пишите любую сортировку(на ваш вкус),

Код


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Buffer:TStringList;  (*ГлобПерем для хранения строк-пар*)

implementation

{$R *.dfm}

(*=======================================================*)
(*  28 июля 2012г. сортировка пары текст=число*)

(* ПРОЦ накопление строк в буфере*)
procedure TForm1.Button1Click(Sender: TObject);
var
  T1: TStringList;
  Text:string;     Number:integer;
 (*  встроенная в процедуру функция. сшивает две ПЕРЕМ в одну  *)
  function AddUrl(const A:string; const B:integer):TStringList;
  begin
    AddUrl:=TStringList.Create;
    AddUrl.AddObject(Text,Pointer(Number));
  end;
(*ввод пар в накопитель*)
begin
    T1:=TStringList.Create;
    Number:=StrToInt(Edit1.Text); (*ввод числа*)
    Text:=Edit2.Text;  (*ввод текста*)
    T1:=AddUrl(Text,Number); (*сборка двух ПЕРЕМ в одну*)
    Buffer.AddStrings(T1); (*накопление строк в ГлобПерем*)
    Memo1.Text:=Buffer.text; (*контроль*)
    T1.Free;
end;
(*=====================================================*)

(*=====================================================*)
(* ПРОЦ сортировка строк из ГлобПерем*)
procedure TForm1.Button2Click(Sender: TObject);
var
  T: TStringList;

  function Compare(List: TStringList; Index1, Index2: Integer): Integer;
  begin
    if Integer(List.Objects[Index1])>Integer(List.Objects[Index2]) then Result:=-1
    (* сейчас сортировка - максимум наверху, если 1 а далее -1 тогда наверху минимум*)
    else if Integer(List.Objects[Index1])<Integer(List.Objects[Index2]) then Result:=1
    else Result:=0;
  end;

begin
   T:=TStringList.Create;
   T.AddStrings(Buffer); (*ввод накопленных пар*)
   T.CustomSort(@Compare); (*сортировка от 1 до максимума*)
   Memo2.Lines.Assign(T); (*контроль*)
   T.Free;
end;
(*====================================================*)
(*инизиализация буфера при запуске программы*)
procedure TForm1.FormCreate(Sender: TObject);
begin
  Buffer:=TStringList.Create;
end;

end.

Код


Type
 TForm1=class(TForm)
 
 public
  StrList:TStringList; //сюда
 private
  StrList:TStringList; //или сюда
end;

Цитата(Pcrepair @ 28.7.2012, 13:31

)

вот что получилось в результате

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Memo2: TMemo;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    FList: TStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FList := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FList.Free;
end;

{ Для сортировки по возрастанию }
function CompareAsc(AList: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := Integer(AList.Objects[Index1]) - Integer(AList.Objects[Index2]);
  if Result = 0 then
    Result := CompareStr(AList[Index1], AList[Index2]);
end;

{ Для сортировки по убыванию }
function CompareDesc(AList: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := - CompareAsc(AList, Index1, Index2);
end;

procedure TForm1.Button1Click(Sender: TObject);
(*ввод пар в накопитель*)
begin
    FList.AddObject(Edit2.Text, Pointer(StrToInt(Edit1.Text)));
    Memo2.Text:=FList.text;
end;

{ Сортировка по возрастанию }
procedure TForm1.Button2Click(Sender: TObject);
begin
   FList.CustomSort(@CompareAsc);
   Memo2.Lines.Assign(FList);
end;

{ Сортировка по убыванию }
procedure TForm1.Button3Click(Sender: TObject);
begin
   FList.CustomSort(@CompareDesc);
   Memo2.Lines.Assign(FList);
end;

{ Заполнение списка тестовыми данными }
procedure TForm1.Button4Click(Sender: TObject);
begin
  FList.AddObject('Пять (3)', Pointer(5));
  FList.AddObject('Восемь (1)', Pointer(8));
  FList.AddObject('Один', Pointer(1));
  FList.AddObject('Два', Pointer(2));
  FList.AddObject('Пять (2)', Pointer(5));
  FList.AddObject('Восемь (2)', Pointer(8));
  FList.AddObject('Семь', Pointer(7));
  FList.AddObject('Девять', Pointer(9));
  FList.AddObject('Шесть', Pointer(6));
  FList.AddObject('Три', Pointer(3));
  FList.AddObject('Четыре', Pointer(4));
  FList.AddObject('Пять (1)', Pointer(5));
  Memo2.Lines.Assign(FList);
end;

end.