Сортировка StringGrid

[andriy1048]

Я хочу сортировать "Предмет" по алфавиту... Сортировка просиходит, ну нужно чтобы останльные параметры перемещались в матрице вместе с "Предметом"... Помогите пожалуйста!!!

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

uses Unit1;



procedure TForm4.Button1Click(Sender: TObject);
var
i, j: Integer;
lTmpStr: string;
begin
for i := 1 to StringGrid1.RowCount - 1 do
begin
for j := i + 1 to StringGrid1.RowCount - 1 do
if StringGrid1.Cells[1, i] > StringGrid1.Cells[1, j] then
begin
lTmpStr := StringGrid1.Cells[1, i];
StringGrid1.Cells[1, i] := StringGrid1.Cells[1, j];
StringGrid1.Cells[1, j] := lTmpStr;
end;
end;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
close;
end;

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;

[evg_m]

ну нужно чтобы останльные параметры перемещались в матрице вместе с "Предметом"...

так нужно же перемещать ВСЕ колонки(столбцы) выбранных строк (i, j).

for k:=0 to grid.colcount-1 do begin
  // ...и здесь перемещение одной из (а именно k) колонки Cells[k, i] 
end;

или же
http://programmersforum.ru/showpost....17&postcount=3

[Stilet]

andriy1048

А предидущая твоя тема разве ничему не научила?

[andriy1048]

Нет, они все делали немного не так, как требут препод (

[andriy1048]

procedure TForm4.Button1Click(Sender: TObject);
var
	i, j: Integer;
	lTmpStr: array [0..3] of string;
begin
for i := 1 to StringGrid1.RowCount - 1 do
	begin
	for j := i + 1 to StringGrid1.RowCount - 1 do
	if StringGrid1.Cells[1, i] > StringGrid1.Cells[1, j] then
	begin
		lTmpStr[1] := StringGrid1.Cells[1, i];
		StringGrid1.Cells[1, i] := StringGrid1.Cells[1, j];
		StringGrid1.Cells[1, j] := lTmpStr[1];

		lTmpStr[0] := StringGrid1.Cells[0, i];
		StringGrid1.Cells[0, i] := StringGrid1.Cells[0, j];
		StringGrid1.Cells[0, j] := lTmpStr[0];

		lTmpStr[2] := StringGrid1.Cells[2, i];
		StringGrid1.Cells[2, i] := StringGrid1.Cells[2, j];
		StringGrid1.Cells[2, j] := lTmpStr[2];

		lTmpStr[3] := StringGrid1.Cells[3, i];
		StringGrid1.Cells[3, i] := StringGrid1.Cells[3, j];
		StringGrid1.Cells[3, j] := lTmpStr[3];
		//---------- ---------- ----------
	end;
end;
end;

[JUDAS]

Сообщение от andriy1048

Нет, они все делали немного не так, как требут препод (

Андрей, запомни, в программировании нет понятие делают не так или делают так, в нём есть понятия
1. постановка задачи
2. входные параметры
=== код ===
3. требуемый результат

пункт "код", пишется каждым программистом по разному и служит лишь для одной цели - достижения условия поставленной задачи.
Простыми словами, никого не должно интересовать как я совокупляюсь с девушкой когда речь идёт о том, забеременеет ли она или нет.

По сути, вам предложили 2 варианта решения задачи с исходниками. Оба варианта сортируют список по полю "предмет". У меня код менее громоздкий у колеги миная - более детальный
Если ваш препод что-то требует, то можете ему передать от меня (и посмею заявить - от имени сообщества программистов), что его место не в преподавательской института , а в ларьке с шаурмой или на базаре с гуманитаркой. Грош цена такому преподу, и я очень сожалею, что такой "интеллектуальный" помёт как он, учит нашу молодёжь.
Очень грусно осознавать, какие с вас (вашей девушки) программист получатся в будущем.

----------
п.с. о себе, 42 года, программист-самоучка-практик.

[andriy1048]

Сообщение от JUDAS

Андрей, запомни, в программировании нет понятие делают не так или делают так, в нём есть понятия
1. постановка задачи
2. входные параметры
=== код ===
3. требуемый результат

пункт "код", пишется каждым программистом по разному и служит лишь для одной цели - достижения условия поставленной задачи.
Простыми словами, никого не должно интересовать как я совокупляюсь с девушкой когда речь идёт о том, забеременеет ли она или нет.

По сути, вам предложили 2 варианта решения задачи с исходниками. Оба варианта сортируют список по полю "предмет". У меня код менее громоздкий у колеги миная - более детальный
Если ваш препод что-то требует, то можете ему передать от меня (и поселюсь заявить - от имени сообщества программистов), что его место не в преподавательской института , а в ларьке с шаурмой или на базаре с гуманитаркой. Грош цена такому преподу, и я очень сожалею, что такой "интеллектуальный" помёт как он, учит нашу молодёжь.
Очень грусно осознавать, какие с вас (вашей девушки) программист получатся в будущем.

----------
п.с. о себе, 42 года, программист-самоучка-практик.

Я с вами полностью согласен))) В том и вся проблема, что я не могу понять поставленой задачи и когда мне пишут код, я не могу с ними разобраться...
Но вам большое спасибо)))

[min@y™]

Если ваш препод что-то требует, то можете ему передать от меня

и от меня! напечатай этот топик и предыдущий и покажи преподу, пусть поспорит.
----------
п.с. о себе, 37 лет, программист-самоучка, оптимизатор-эникейщик.
В разводе, двое детей, тёща-старушка. Инженер-конструктор 1-й категории. Не пью, не курю, сладкого не ем, матом не ругаюсь.

В том и вся проблема, что я не могу понять поставленой задачи и когда мне пишут код, я не могу с ними разобраться...

Я ж тебя предупреждал, что мой код тебе не поможет, т.к. не осилишь ты его.

Но вам большое спасибо)))

А мне???!!!111

[Аватар]

Че за массовый психоз - о себе?

[min@y™]

Че за массовый психоз - о себе?

реклама