Всем здраствуйте
у меня возникла серьезная проблема с кодом:
вот часть кода, где сейчас у меня выбиваются ошибки:
| Код |
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Grids, StdCtrls, Buttons;
type
TForm3 = class(TForm)
strngrd2: TStringGrid;
BitBtn1: TBitBtn;
btn1: TBitBtn;
edt1: TEdit;
edt2: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
min,z,c:integer;
e, d, i, Nmin, j, k: byte;
implementation
uses
Unit1, Unit2;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm3.btn1Click(Sender: TObject);
const b = strtoint(edt1.Text);{пока проблема в этой строке}
var
A:array[1..b] of integer;
begin
c:=strtoint(edt2.Text);
z:=1;
with Form1 do
begin
for i:=1 to Strngrd1.ColCount do
for j:=1 to Strngrd1.RowCount do
if TryStrToInt(Strngrd1.Cells[i, j], z) then
a[i]:=StrToInt(Strngrd1.Cells[i,1]);
for i:=1 to b do
a[i]:=StrToInt(Strngrd1.Cells[i,1]);
for i:=1 to b do
Strngrd2.Cells[i,0]:=IntToStr(i);
for i:=1 to b-1 do
Strngrd2.Cells[0,i]:=IntToStr(i);
{Çäåñü ñîðòèðîâêà}
for i:=1 to b-1 do
begin
min:=a[i];
Nmin:=i;
for j:=i+1 to b do
begin
if a[j]<min then
begin
min:=a[j];
Nmin:=j;
a[Nmin]:=a[i];
a[i]:=min;
end;
for k:=1 to b do
Strngrd2.Cells[k,i]:=IntToStr(a[k]);
end;
end;
end;
for i:=1 to b do
Strngrd2.Cells[i,1]:=IntToStr(a[i]);
end;
end.
|
Суть программы в том, что она создает массивы(одномерные и двумерные) - это у меня получилось без проблем,
но вот то, что массив нужно отсортировать методом Хоара - это уже проблема, над которой бьюсь уже неделю.....
Тему создал в Делфи для новичков, но так как никто не ответил, то создал ее в тут.
Помогите с кодом пожалуйста! А то на допиливание программы осталось 2 дня и защита..... 
исходник программы: |