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.прошу прошение за свой русский

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

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

предположив, что 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. читай ответы не выборочно, а вдумчиво...

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