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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2019, 10:36   #1
123Василий
Пользователь
 
Регистрация: 21.01.2019
Сообщений: 19
По умолчанию Вывод массива в строчку

Доброго времени суток.
Кто знает и помнит(в моем случае), как выводить массив в строчку в Мемо?
Надо определить все положительные элементы массива и вывести их в мемо в строчку через запятую
123Василий вне форума Ответить с цитированием
Старый 27.01.2019, 10:41   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

При чем здесь базы данных? Что не понятного - поиск положительных, преобразование числа в строку или запись строки в мемо?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 27.01.2019, 10:53   #3
123Василий
Пользователь
 
Регистрация: 21.01.2019
Сообщений: 19
По умолчанию

два последних пункта.
не знаю, как их реализовать в коде
123Василий вне форума Ответить с цитированием
Старый 27.01.2019, 10:58   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

IntToStr, FloatToStrF
http://www.delphi-manual.ru/memo.php
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 27.01.2019, 11:25   #5
123Василий
Пользователь
 
Регистрация: 21.01.2019
Сообщений: 19
По умолчанию

Код:
     n:=mmo1.Lines.Count;
     for i:=1 to  n do a1[i]:=StrToInt(mmo1.Lines[i-1]);
     for i:=1 to  n do if a1[i]>0 then begin q:=a1[i];
     Mmo5.Text:=inttostr(q);
я явно что-то делаю не так
123Василий вне форума Ответить с цитированием
Старый 27.01.2019, 12:41   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Код:
strtmp := '' ;
for i := 1 to N do
  begin
    if i>1 then strtmp := strtmp + ',' ;
    strtmp := strtmp + IntToStr(mas[i]) ;
  end ;
Memo1.Lines.Add (strtmp) ;
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерные массивы Внимание! В задаче реализовать заполнение массива, вывод на экран исходного массива и измененного (если при реш Гарри Паскаль, Turbo Pascal, PascalABC.NET 3 26.06.2015 09:45
Одномерные массивы Внимание! В задаче реализовать заполнение массива, вывод на экран исходного массива и измененного (если при ре Гарри Паскаль, Turbo Pascal, PascalABC.NET 1 25.06.2015 08:55
Не получается прописать строчку с инициализацией массива _Lenn C# (си шарп) 4 10.11.2013 13:23
инициализация массива, вывод массива и обработка массива должны быть реализованы с помоshью функций airesjke Помощь студентам 0 02.03.2012 16:14
Memo вывод массива в строчку atenon C++ Builder 4 13.03.2011 08:03