Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

memo1.lines.add()   Найти похожие ветки 

← →
simona4   (2006-08-25 02:16) [0]

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

procedure TForm1.Button1Click(Sender: TObject);
var i,j,key:integer;
begin
 for j:=2 to length(a) do
 begin
 key:=a[j];

  i:=j-1;
   while (i>0) and (a[i]>key) do
  begin
   a[i+1]:=a[i];
   i:=i-1 ;
   a[i+1]:=key;
  edit1.Text:=IntToStr(key);
  end;
memo1.Lines.Add(IntToStr(a))
    end;
end;


---

← →
Ketmar ©   (2006-08-25 02:23) [1]

пост из серии "что бы это значило?" натурально, всё неправильно. от начала и до конца. с самой первой буквы.

зыж мне даже лениво читать, потому что сразу видно -- не скомпилируется. медитировать на предмет аргументов IntToStr(). и вопроса, чем массив не похож на Integer.

---

← →
simona4   (2006-08-26 00:05) [2]

может кто нибуть и знатоков поможет?

P.S.прошу прошение за свой русский

---

← →
Palladin ©   (2006-08-26 00:51) [3]

> написал не знаю правильноли

теоретически правильно, синтаксически неправильно

предположив, что a - динамический массив можно сказать следующее:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,key:integer;
begin
for j:=2 to length(a)-1 do // Length - Количество элементов массива, но индексы элементов массива находятся в интервале от 0 до (Количество элементов массива)-1, хотя тебе конечно видней что такое a
begin
key:=a[j];

 i:=j-1;
  while (i>0) and (a[i]>key) do
 begin
  a[i+1]:=a[i];
  i:=i-1 ;
  a[i+1]:=key;
{  edit1.Text:=IntToStr(key); } // абсолютно ненужная строка, никакой смысловой нагрузки для тебя не несет
 end;
{ memo1.Lines.Add(IntToStr(a)) } // аналогично + IntToStr это перевод целочисленного значения в строковое, в качестве аргумента принимает число, а не что то похожеее на массив
   end;


// а вот и вывод данных в твое Memo1
for i:=0 to Length(a)-1 Do memo1.Lines.Add(IntToStr(a[i]));

end;


> может кто нибуть и знатоков поможет?

1. это тебе не "Что? Где? Когда?", здесь никто денег за ответы не получает...
заголовок браузера прочитай повнимательней...

2. читай ответы не выборочно, а вдумчиво...

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c