Сортировка массива методом прямого выбора(Дельфи)

[Onza]

2maladoy Спасибо попробую!

[capta1n]

так а я тебе на чем на писал если тебе нужно через форму - так и скажи - делфи тут вовсе не при чем

[Onza]

Ну! Да в Форме!

[Onza]

procedure TForm1.Button1Click(Sender: TObject);
const
SIZE = 10;
var
b: array[1..SIZE] of byte;
a: array[1..SIZE] of integer;
min: integer;
j: integer;
buf: integer;
i, k: integer;
begin

for i := 1 to SIZE do
b[i]:= Edit1.Text;
b[i]:=ord(a[i]);
begin
for i := 1 to SIZE - 1 do


min := i;
for j := i + 1 to SIZE do
if a[j] < a[min] then
min := j;


buf := a[i];
a[i] := a[min];
a[min] := buf;
begin
for i:=1 to size do
a[i]:=chr(b[i]);

for k := 1 to SIZE do
Label2.caption := label2.caption + ' ' + IntTostr(a[k]);
Label2.caption := label2.caption + #13;
end;
Label2.caption := label2.caption + #13 + 'MaccMB отсортирован.';
end;

end.


Вот что то с ходу с ошибками( конечно) накидал- но похоже что не так

[Onza]

procedure TForm1.Button1Click(Sender: TObject);
const
SIZE = 10;
var
b: array[1..SIZE] of byte;
a: array[1..SIZE] of integer;
min: integer; { номер минимального элемента в части
массива от i до верхней границы массива }
j: integer; { номер элемента, сравниваемого с минимальным }
buf: integer; { буфер, используемый при обмене элементов массива }
i, k: integer;
begin
// ввод массива
for i := 1 to SIZE do
b[i]:= StrToInt(StringGrid1.Cells[i - 1, 0]); label2.caption := '';

b[i]:=ord(a[i]);
begin
for i := 1 to SIZE - 1 do

{ поиск минимального элемента в части массива от а[1] до a[SIZE]}
min := i;
for j := i + 1 to SIZE do
if a[j] < a[min] then
min := j;

{ поменяем местами a [min] и a[i] }
buf := a[i];
a[i] := a[min];
a[min] := buf;
begin
for i:=1 to size do
a[i]:=chr(b[i]);
{ вывод массива }
for k := 1 to SIZE do
Label2.caption := label2.caption + ' ' + IntTostr(a[k]);
Label2.caption := label2.caption + #13;
end;
Label2.caption := label2.caption + #13 + 'Maccив отсортирован.';
end;

end.

Короче ругается на строку Uncompotible types
a[i]:=chr(b[i]);

[capta1n]

потому что a[i] - это integer, а chr(b[i]) - это char - числу символ не присвоишь к счастью

[Onza]

Так я ж в этой строке вроде перевожу число в символ?

[capta1n]

b: array[1..SIZE] of byte;
a: array[1..SIZE] of integer;

a[i]:=chr(b[i]);

Вот взгляните

[Onza]

Ну я значит не догоняю!!!!

а как мне перевести буквы в числовое значение -прокрутить циклы и вернуть снова буквы и вывести их на Label2

[Onza]

Я ввожу в Edit поле - d c a b
я же не могу ими манипулировать в циклах с массивами
поэтому что бы отсортировать их мне надо сначало их перевести в цифровое значение, а потом вернуть в буквы и вывести на форму...

Или всё в корне неверно?