Добрый вечер! Задача такова - имеется массив такого вида:| Цитата |
1 1 0
2 2 1
3 3 2
...
36 36 35
37 37 36
38 38 37
39 39 38
40 39а 39
41 40 39а
42 40а 40
43 41 40а
44 42 41
...
|
Его нужно будет сортитровать так, чтобы во 2м и 3м столбиках значения шли в таком порядке как показано. То есть например: 1 затем 1а затем 1б. Для сортировки нужно написать DLLку. Большая часть кода из нее представлена ниже. В DLL есть 3 процедуры SetArray, Sort и GetArray. Ошибка Invalid pointer operation выскакивает после вызова из EXE процедуры GetArray, при чем значения выводятся до конца, цикл завершается и после этого вылазит ошибка. Если закоментировать в процедуре Sort вот так | Код |
arr[i][1]:=IntTostr(b[i][0]){+chr(b[i][1])}
arr[i][2]:=IntTostr(b[i][2]){+chr(b[i][3])}
|
Часть кода DLL:
| Код |
procedure SetArray (A:PChar;B:PChar;C:PChar;index:integer);stdcall;
var i:integer;
begin
size:=i+1;
SetLength(arr,size,3);
arr[i][0]:=A;
arr[i][1]:=B;
arr[i][2]:=C;
end;
procedure Sort;stdcall;
var
b:array of array of integer; //ìàññèâ äëÿ ñîðòèðîâêè
k,j:integer; // òåêóùèé ýëåìåíò ìàññèâà
i:integer; // èíäåêñ äëÿ ââîäà è âûâîäà ìàññèâà
changed:boolean; // TRUE, åñëè â òåêóùåì öèêëå áûëè îáìåíû
buf:integer; // áóôåð äëÿ îáìåíà ýëåìåíòîâ ìàññèâà
//...
//... здесь массив b сортируется
//...
for i:=0 to SIZE do
begin
if b[i][1]<>0 then
arr[i][1]:=IntTostr(b[i][0])+chr(b[i][1])
else
arr[i][1]:=IntTostr(b[i][0]);
if b[i][3]<>0 then
arr[i][2]:=IntTostr(b[i][2])+chr(b[i][3])
else
arr[i][2]:=IntTostr(b[i][2]);
arr[i][0]:=IntToStr(i+1);
end;
end;
procedure GetArray(A:PChar;B:PChar;C:PChar;index:integer);stdcall;
var i:integer;
StrData1:Longword absolute A;
StrData2:Longword absolute B;
StrData3:Longword absolute C;
StrDataSizePtr:^Longword;
begin
StrPLCopy(A,arr[i][0],length(arr[i][0]));
StrPLCopy(B,arr[i][1],length(arr[i][1]));
StrPLCopy(C,arr[i][2],length(arr[i][2]));
StrDataSizePtr:=Ptr(StrData1-4);
StrDataSizePtr^:=Length(arr[i][0]);
StrDataSizePtr:=Ptr(StrData2-4);
StrDataSizePtr^:=Length(arr[i][1]);
StrDataSizePtr:=Ptr(StrData3-4);
StrDataSizePtr^:=Length(arr[i][2]);
end;
exports
SetArray name 'SetArray',
Sort name 'Sort',
GetArray name 'GetArray';
begin
end.
|
Код EXE:
| Код |
procedure SetArray (A:PChar;B:PChar;C:PChar;index:integer);stdcall; external 'srt.dll';
procedure Sort;stdcall; external 'srt.dll';
procedure GetArray(A:PChar;B:PChar;C:PChar;index:integer);stdcall; external 'srt.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,tr,size:integer;
arr:array of array of string;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
randomize;
size:=SpinEdit1.Value;
SetLength(arr,size,3);
for i:=0 to size-1 do
begin
arr[i][0]:='0';
arr[i][1]:=inttostr(random(900));
arr[i][2]:=inttostr(random(900));
tr:=random(8);
if (tr>=5) and (tr<7) then
begin
arr[i][1]:=arr[i][1]+char(192);
arr[i][2]:=arr[i][2]+char(192);
end;
if tr>=7 then
begin
arr[i][1]:=arr[i][1]+char(193);
arr[i][2]:=arr[i][2]+char(193);
end;
end;
for i:=0 to size-1 do
begin
Memo1.Lines.Add(arr[i][0]+#9+arr[i][1]+#9+arr[i][2]);
SetArray(Pchar(arr[i][0]),Pchar(arr[i][1]),Pchar(arr[i][2]),i);
end;
Sort;
for i:=0 to size-1 do
begin
GetArray(pchar(arr[i][0]),pchar(arr[i][1]),pchar(arr[i][2]),i);
Memo2.Lines.Add(arr[i][0]+#9+arr[i][1]+#9+arr[i][2]);
end;
end;
end.
|
|
