Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Вот код процедуры:
Код:

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 в 10:39.
igormel вне форума   Ответить с цитированием
Старый 14.02.2018, 21:47   #2
type_Oleg
Профессионал
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Адрес: Хазарский каганат
Сообщений: 2,420
Репутация: 1379
По умолчанию

Цитата:
Сообщение от igormel Посмотреть сообщение
For j:=2 to num do
А кто такой num, где он описан и чему равен?
type_Oleg вне форума   Ответить с цитированием
Старый 14.02.2018, 23:52   #3
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,152
Репутация: 2042

icq: 100500
skype: kick-ass
По умолчанию

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




07:37.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
лучший хостинг
Выбираем лучший хостинг: рейтинг ТОП 10
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru