Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.02.2018, 20:41   #1
igormel
Пользователь
 
Регистрация: 11.11.2016
Сообщений: 22
По умолчанию Процедура не хочет выводить массив

Вот код процедуры:
Код:
procedure TForm2.Button2Click(Sender: TObject);
var i,j,t:integer;
begin
for i:= 1 to massiv.lines.count do
 a[i]:= strtoint(massiv.lines.Strings[i]);
For j:=2 to num do
      if A[j]<A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
 for j:=1 to num do
Massiv.Lines.Add(inttostr(a[j]));
end;
end.
Тобиж у нас есть memo (я его подписал massiv) в нем записаны числа, далее я хочу массив выровнять по порядку и вывести обратно в своё memo. Клавижа жмётся, но ничего не происходит

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 15.02.2018 в 09:39.
igormel вне форума Ответить с цитированием
Старый 14.02.2018, 20:47   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от igormel Посмотреть сообщение
For j:=2 to num do
А кто такой num, где он описан и чему равен?
type_Oleg вне форума Ответить с цитированием
Старый 14.02.2018, 22:52   #3
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Ща окажется, что для решения задачи никакой Memo нахрен не упал.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО]: Как выводить предложение it's my car в языке Паскаль? (как выводить апострофы (') на экран) SASFM Паскаль, Turbo Pascal, PascalABC.NET 2 13.12.2016 21:00
Процедура должна выводить сумму при вводе номера, но кроме суммы выводит еще что такого номера нет yohurt Помощь студентам 1 09.01.2012 07:35
Json не хочет выводить строку. Abuhamed PHP 3 16.02.2011 22:05
Научите вводить и выводить массив в файл Влад-mego Помощь студентам 4 28.11.2008 13:06
Программа в Delphi не хочет работать. (Одномерный массив). Kawun Помощь студентам 9 14.11.2008 16:26