| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

memo1.lines.add()

simona4 ©   (2006-08-25 02:16:00) 

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

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;


---

Palladin   (2006-08-26 00:51:00) [1]

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

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

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

procedure TForm1.Button1Click(Sender: TObject);
var i,j,key:integer;
begin
for j:=2 to length(a) -1do // 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. читай ответы не выборочно, а вдумчиво...

---

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

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

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

---

Ketmar   (2006-08-25 02:23:00) [3]

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

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

---

Наверх