Внешняя многофазовая сортировка слиянием...

[alexBlack]

Сообщение от maLoy*508

А по подробней можно пожалуйста

Что подробней ?

 F := TFileStream.Create(....
 While true do begin
     C := F.read(Buffer, sizeOf(Buffer));
     if C <> sizeOf(Buffer) then begin
        // Файла не хватило на полный буфер
        // C - длина остатка 
     
     end;
 end;

Но, думаю, это не принципиально, и к сортировке никакого отношения не имеет.

[maLoy*508]

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

У Вас процесс чтения неправильно организован. Нужно

N := 0
while not eof(file1) do begin
    inc(N);
    read(file1,ar[N]);

    if N = 10 then begin
       // Здесь набрался полный блок
       // его можно сортировать и записать 

       ....

       N := 0;
    end;
end;
if N > 0 then begin
  // А вот здесь остаток - часть блока длиной N 
 
  ...
end;

делаю вот так как Вы описали, Делфи ошибку не выдает, но на выходе получаю пустой файл, запись организована так как описано выше в этой теме...

[alexBlack]

Вы бы лучше свой код привели.

[maLoy*508]

Это моя сортировка пузырьком

procedure BubbleSort(var ar:op);
var i,j,x : integer;
begin
for i :=2 to n do
for j := n downto i do
if ar[j-1]>ar[j] then
begin x := ar[j-1];
ar[j-1] := ar[j];
ar[j] := x
end; 
end;

а это моя разбивка на серии из десяти элементов

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
ar:op;
fl,kl:boolean;
file1:file of integer;
fileA:file of op;
fileB:file of op;


begin

assignfile(fileA,'a.txt');
assignfile(fileB,'b.txt');
assignfile(file1,ExtractFileName(OpenDialog1.FileName));
reset(File1);
reset(FileA);
reset(FileB);
  i := 0;
  fl:=false;
while not eof(file1) do begin
 inc(i);
  read(file1,ar[i]);

  If i=10 then
  begin
      
       BubbleSort(ar);
          if not fl then
        begin
          Write(FileA,ar);
         fl:=true;
         end
       else
         begin
           Write(FileB,ar);
           fl:=false;
         end;

       i:= 0;

    end;

if ( i > 0) then
begin

 BubbleSort(ar);
          if not fl then
        begin
         Write(FileA,ar);
         fl:=true;
         end
       else
         begin
            Write(Fileb,ar);
            fl:=false;
         end;

       i:= 0;
    end;
end;

closefile(File1);
closefile(FileA);
closeFile(FileB);
end;

на выходе в файле а получаю:    A Tц у7@ \±B
1 2 я‘Фw A Tц у7@ \±B
1 2 3 4 5 6 я‘Фw

и в файле b тоже самое...

пожалуйста, срочно нужна помощь...

[alexBlack]

А что Вы ожидали ?
fileA:file of op;
fileB:file of op;
op, я так понимаю, array of integer
Смотрите выходные файлы в 16-ричном виде
или меняйте формат выходных файлов
или сделайте отдельную процедуру, которая будет конвертировать эти файлы в текстовые.

Про входной файл Вы вообще ничего не сказали.

[maLoy*508]

вы правильно поняли...
Если можно, то подскажите как посмотреть в 16 ричном режиме, или на как поменять формат выходных файлов

[alexBlack]

посмотреть в 16-ричном виде - любой HEXView. В FAR F3/F4 наконец.
----
запись в текстовый файл:
var a:textFile;
и запись массивов поэлементно в цикле
Уж это-то Вы должны знать.
----------------
А почему бы не показать эти массивы в memo ?

[maLoy*508]

Вы предлагаете просто вывести их в memo или работать сразу с данными из memo?

[alexBlack]

Сообщение от maLoy*508

Вы предлагаете просто вывести их в memo или работать сразу с данными из memo?

Просто вывести. То есть алгоритм будет работать с файлами в бинарном виде и параллельно выводить в memo - просто для отладки - чтобы был виден процесс сортировки.

[maLoy*508]

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

Просто вывести. То есть алгоритм будет работать с файлами в бинарном виде и параллельно выводить в memo - просто для отладки - чтобы был виден процесс сортировки.

я, конечно, понимаю, что это нагло... Но нельзя бы было Вас попросить привести пример... очень сильно надо... заранее спасибо...