procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
s:string;
begin
with StringGrid1 do
for i:=fixedrows to rowcount-2 do
for j:=i to rowcount-1 do
if strtofloat(cells[colcount-1,i])<strtofloat(cells[colcount-1,j]) then
begin
s:=rows[i].Text;
rows[i].Assign(rows[j]);
rows[j].Text:=s;
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.