как я заполнить строки сетки с массивом записей

Question

я имею структуру записей

Tperson = record 
// setting/declaring the record 
firstname: string[30]; 
surname: string[30]; 
form: string[5]; 
catscore: real; 
predictedgrade: string[2]; 
giftedandtalented: string[255]; 
learningdifficulties: string[255]; 
behaviouraldifficulties: string[255]; 

и я использовал следующий код, чтобы прочитать его как массив

procedure TForm1.Button1Click(Sender: TObject); 
var 
studentarray:array of Tperson; 
studentarraycopy:array of tperson; 
    i,j,c : integer; 
begin 
i:=0; 
reset(personFile); 
while not EOF(personfile) do 
begin 
i:=i+1; 
read(personfile, studentArray[i]); 

I будет сортировать этот массив записей, а затем использовать этот код для сортировки в терминах высокого, низкого, высокого, низкого.

procedure SerratedSort(var A: array of TPerson); 
    var 
s: Integer; 
i: Integer; 
t: TPerson; 
begin 
s := Length(A); 
i := 0; 
while i < s do begin 
    t := A[s - 1]; 
    System.Move(A[i], A[i + 1], (s - i + 1) * SizeOf(TPerson)); 
    A[i] := t; 
    i := i + 2; 
    end; 
    end; 

результат такого рода будет копией массива, который будет использоваться для заполнения строки сетки, но как я заполнить строку сетки, используя массив записей?

Answer 1

Строковая сетка не имеет никакой информации или ассоциации с вашей пользовательской записью. Вам нужно будет решить, как вы хотите заполнить сетку на основе данных, которые она представляет. В Delphi нет стандартных операций по размещению данных из записи в сетку. Это связано с тем, что запись может содержать много разных типов данных, которые не могут быть представлены через строку.

Вам необходимо изучить, как работает StringGrid, используя ресурсы, найденные в Интернете, и в документации Delphi на StringGrid.

Answer 2

Type 
    TPersonArray: array of TPerson; 

procedure SerratedSortPersons(var A: TPersonArray); 
var 
    s: Integer; 
    i: Integer; 
    t: TPerson; 
begin 
    s := Length(A); 
    i := 0; 
    while i < s do begin 
    t := A[s - 1]; 
    System.Move(A[i], A[i + 1], (s - i + 1) * SizeOf(TPerson)); 
    A[i] := t; 
    i := i + 2; 
    end; 
end; 

procedure SortPersons(var AArray: TPersonArray); 
var {Basically the same as that posted by Marko Paunovic} 
    i: Integer; 
    j: Integer; 
    t: TPerson; 
begin 
    for i := Low(AArray) to High(AArray) - 1 do begin 
    for j := i + 1 to High(AArray) do begin 
     if AArray[i] < AArray[j] then begin 
     t := AArray[i]; 
     AArray[i] := AArray[j]; 
     AArray[j] := t; 
     end; 
    end; 
    end; 
end; 

procedure CopyPersons(const AOriginal: TPersonArray; out ACopy: TPersonArray); 
var 
    s: Integer; 
begin 
    s := Length(AOriginal); 
    SetLength(ACopy, s); 
    System.Move(AOriginal[0], ACopy[0], s * SizeOf(TPerson)); 
end; 

Ваш ход программы должен быть таким:

ReadPersonsFromFile(FPersons); {do this somewhere else and keep it. So that you don't read from disk every time you need this data} 

Тогда в процедуре:

CopyPersons(FPersons, FPersonsCopy); 
SortPersons(FPersonsCopy); 
SerratedSortPersons(FPersonsCopy); 
FillGridWithpersons(FPersonsCopy);