Задача на Delphi

[Stilet]

Да кста попутный вопрос, Горынычер, ты вполне можеш использовать вместо записей класс TStringList, где каждый элемент записи будет разделен скажем ";". Тогда если первым элементом у тя будет номер группы этот класс сам отсортирует его тебе. И в файл все запишет, и прочтет правильно. Это будет лучовей, если препод по башке не даст за такие выкрутасы

[Gorinicher]

Вот как раз цикл for i:=1 to 2 do begin для нахождения эти двух минимальных.

[Gorinicher]

если препод по башке не даст за такие выкрутасы

У нас препод очень консервативный, а эта задача на класс Striggrid поэтому я не уверен, что он разрешит помнять класс.

[Maslan]

for i:=1 to 2 do begin для нахождения эти двух минимальных

да я уж понял =)

а эта задача на класс Striggrid поэтому я не уверен, что он разрешит помнять класс

Так. Тема StringGrid. Правильно? Значит его составляющие вы должны знать! Правильно? А какого типа StringGrid.Cols[] и StringGrid.Rows[] ? TStrings!!! Значит "разрешит помнять класс." - не надо ничего менять =))) Наоборот, это будет дополнительным подтверждением уровня владения классом! =)

[Stilet]

Так. Вот что я тебе советую перед сохранением в файл отсортируй СтрингГрид по нужной тебе колонке Вот функа (Делфи Ворлд)

[I]procedure SortGridByCols(Grid: TStringGrid; ColOrder: array of Integer);
var
i, j: Integer;
Sorted: Boolean;

function Sort(Row1, Row2: Integer): Integer;
var
C: Integer;
begin
C := 0;
Result := AnsiCompareStr(Grid.Cols[ColOrder[C]][Row1], Grid.Cols[ColOrder[C]][Row2]);
if Result = 0 then
begin
Inc(C);
while (C <= High(ColOrder)) and (Result = 0) do
begin
Result := AnsiCompareStr(Grid.Cols[ColOrder[C]][Row1],
Grid.Cols[ColOrder[C]][Row2]);
Inc(C);
end;
end;
end;

begin
if SizeOf(ColOrder) div SizeOf(i) <> Grid.ColCount then Exit;

for i := 0 to High(ColOrder) do
if (ColOrder[i] < 0) or (ColOrder >= Grid.ColCount) then Exit;

j := 0;
Sorted := False;
repeat
Inc(j);
with Grid do
for i := 0 to RowCount - 2 do
if Sort(i, i + 1) > 0 then
begin
TMoveSG(Grid).MoveRow(i + 1, i);
Sorted := False;
end;
until Sorted or (j = 1000);
Grid.Repaint;
end;

Это потом кемпери в файл и уже из файла выбирай две крайние записи.
И радуйся...

[Gorinicher]

To Stilet:
А можно немного описать эту процедуру, а то я не очень здорово в делфи понимаю.)

[Stilet]

ТЫ сначала попробуй, а потом уж и описать проси.
Собственно тут все просто: в цикле по всем строкам вызывается функа Sort которая сравнивает две строки, далее по результатам этой функи строка перемешается в нужное место.
Кста загляни на Делфи ворлд там для этого есть много приколов

[mutabor]

маленький совет: называйте переменные адекватными именами (min, max если их несколько min1, min2), тогда предпод возможно не так сильно по башке даст, не такой злой будет после разбирания кода