Сортировка

[andriy1048]

Помогите отсортировать это по "Предмету" (Delphi)

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

uses Unit1;



procedure TForm4.FormActivate(Sender: TObject);
var
    i,j:integer;
    rec:sesiya;
begin
Form4.StringGrid1.RowCount :=  Filesize(f)+1;
for i:=1 to Filesize(f) do
begin
seek(f,i-1);
read(f,rec);
Form4.StringGrid1.Cells[0,i]:=rec.group;
Form4.StringGrid1.Cells[1,i]:=rec.subject;
Form4.StringGrid1.Cells[2,i]:=rec.teacher;
Form4.StringGrid1.Cells[3,i]:=DateToStr(rec.data);
end;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Група';
StringGrid1.Cells[1,0]:='Предмет';
StringGrid1.Cells[2,0]:='Препод';
StringGrid1.Cells[3,0]:='Дата';
end;

end.

Код нужно оформлять по првилам - кнопка # вверху
Модератор

[andriy1048]

Помогите, плиз...

[evg_m]

var
   s: string;

for i:=1 to grid1.rowcount-2 do begin
  for j:=i+1 to grid1.rowcount-1 do begin
     if grid.cells[i,1] > grid.cells[j,1] then begin
        s:=grid.rows[i].text;
        grid.rows[i].text:=grid.rows[j].text;
        grid.rows[j].text:=s;  
     end;
  end; 
end;

[andriy1048]

Почему-то не получается у меня (((

[Stilet]

Показывай как пробовал )

[andriy1048]

Пробовал через масив, но не получается (((

[JUDAS]

Автор, так это же код вчерашней сортировки.
Шо в ней не так?

http://programmersforum.ru/showpost....17&postcount=9

var i,ref  : integer;
    rec : array of sesiya;
    SL  : TStringList;
begin
  ViewForm3.StringGrid1.RowCount := Filesize(f)+1;
  SL := TStringList.Create;

  for i:=1 to Filesize(f) do
  begin
    seek(f,i-1);
    SetLength(rec, length(rec)+1);
    ref := High(rec);
    read(f,rec[ref]);
    SL.AddObject(rec[ref].subject, TObject(ref+1));
  end;
  SL.Sort;
  for i:=0 to SL.Count-1 do
  begin
    ref := integer(SL.Objects[i])-1;
    ViewForm3.StringGrid1.Cells[0,i+1]:=rec[ref].group;
    ViewForm3.StringGrid1.Cells[1,i+1]:=rec[ref].subject;
    ViewForm3.StringGrid1.Cells[2,i+1]:=rec[ref].teacher;
    ViewForm3.StringGrid1.Cells[3,i+1]:=DateToStr(rec[ref].data);
  end;
  SL.Free;
  Finalize(rec);

end;

[andriy1048]

Спасибо, щас добавлю в программу. Вы мне писали, но я просто не понял...

[min@y™]

Ребят, ну напишите уже для чайников/кофейников/самоваров статью "Лечение геморроя или почему не надо хранить и обрабатывать данные в визуальных компонентах?". Я б с кодингом помог, от всей души!

[andriy1048]

Помогите пожалуйста, ато в меня так ничего и не получается с этой сортировкой