Сортировка выбором БД

@Erato · Регистрация: 22.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте! Задано отсортировать БД по фамилии метод сортировки-сорт. выбором. При чем нужно создавать массив записей. я не понимаю как это сделать( Если не сложно, помогите, пожалуйста. Сам алгоритм сортировки знаю(расписывать не нужно)

Delphi

type
   student=record
   fam,name,group:string[20];
   year,r1,r2,r3,r4,r5:integer;
   sm:real;
   end;
  ar=array[1..10] of student;
var
  Form1: TForm1;
  a,b:ar;
  stud:student;
  amax,i,k:integer;
implementation
 
{ TForm1 }
 
 
procedure input(name:string; var a:ar);
var st:string; kod:integer; f:text;
begin
   assign(f,name);
   reset(f);
   amax:=0;
while not oef(f) do
    begin
    readln(f,st);

@volvo · 24.02.2013, 15:28

Erato, TSdfDataSet - не самый хороший выбор, обычно базы не сортируются, а значения просто выбираются в нужной последовательности и отображаются, скажем, в DBGrid-е. Но TSdfDataSet не знает про SQL, насколько я понимаю - это потому что нужна работа с обычным текстовым файлом? Тогда придется извращаться:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
 
  procedure ReadData(ds : TSdfDataSet; var Rec : Student); // Читаем из набора текущую запись
  begin
    Rec.fam := ds.Fields[0].AsString;
    Rec.name := ds.Fields[1].AsString;
    // ... и так далее, все поля
  end;
 
var
  i, count : integer;
  Arr : array of student;
  s : string;
begin
  count := SdfDataSet1.RecordCount;
  SetLength(Arr, count); // Выделяем достаточное кол-во памяти под массив
 
  i := 0;
  with SdfDataSet1 do // Читаем все данные в него
  begin
    First;
    while not EOF do
    begin
      ReadData(SdfDataSet1, Arr[i]);
      inc(i);
      Next;
    end;
  end;
 
  // Тут сортируешь массив, и потом аналогично
  // возвращаешь отсортированные значения на место
 
  SetLength(Arr, 0);
end;

Как-то так...

	24.02.2013, 15:28