Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Работа с массивом   Найти похожие ветки 

 
Серг   (2010-05-05 07:50) [0]

Народ, подскажите пожалуйста, как можно вывести массив в memo


 
Leonid Troyanovsky ©   (2010-05-05 07:57) [1]


> Серг   (05.05.10 07:50)

> Народ, подскажите пожалуйста, как можно вывести массив в
> memo

Можно по строкам. Или по столбцам.

--
Regards, LVT.


 
12 ©   (2010-05-05 08:33) [2]

в цикле, inttostr


 
Anatoly Podgoretsky ©   (2010-05-05 08:53) [3]

Ну и что у тебя не получается, только не говори, что вывести массив в memo


 
Тиберий Юлий Цезарь Август   (2010-05-05 08:56) [4]

Удалено модератором


 
oldman ©   (2010-05-05 12:26) [5]


> Народ, подскажите пожалуйста, как можно вывести массив в
> memo


А зачем?
Если массив двумерный, в Memo он перестанет быть таковым.


 
Lyonux ©   (2010-05-05 12:32) [6]


for i:=0 to n do begin
for j:=1 to m do
Memo1.Lines[i]:=Memo1.Lines[i]+IntToStr(a[i+1,j])+" ";
Memo1.Lines.Add("");
end;


 
Lyonux ©   (2010-05-05 12:33) [7]

эмм..поправлюсь, там будет:

for i:=0 to n-1 do begin


 
oldman ©   (2010-05-05 12:41) [8]


> Lyonux ©   (05.05.10 12:32) [6]


То есть вместо

1  2
3  4

Получаем

1
2
3
4

На фига?


 
Lyonux ©   (2010-05-05 12:52) [9]


> oldman ©   (05.05.10 12:41) [8]
> > Lyonux ©   (05.05.10 12:32) [6]
На фига?


бубубу, злой дядька) Вместо
1 2
3 4
мы получаем
1 2
3 4
Если не верите, проверьте сами =Р

Memo1.Lines.Add(""); там для кого в первом цикле стоит?)


 
brother ©   (2010-05-05 12:53) [10]

> 1 2
> 3 4
> мы получаем
> 1 2
> 3 4

не вижу разницы


 
Lyonux ©   (2010-05-05 12:56) [11]


> brother ©   (05.05.10 12:53) [10]
...
не вижу разницы


Браво!))


 
oldman ©   (2010-05-05 12:56) [12]


> Lyonux ©   (05.05.10 12:52) [9]
> бубубу, злой дядька)


Очень злой.
Представь Memo:

1 275 324537 2 3
0 1 3 4 5
23453 2 364 2 66
345 2575 34 2 1
1 2 1 2 1

ВИЗУАЛЬНО ОФИГИТЕЛЬНЫЙ МАССИВ!!!


 
Lyonux ©   (2010-05-05 13:07) [13]


> ВИЗУАЛЬНО ОФИГИТЕЛЬНЫЙ МАССИВ!!!

Селя ви..
Заметьте, вопрос звучал как:
Народ, подскажите пожалуйста, как можно вывести массив в memo
а не:
Народ, подскажите пожалуйста, как можно вывести массив, чтобы выглядело хорошо
Кстати, как бы вы выводили массив на форму, возникни такая необходимость, oldman? В СтрингГриде?) Мне просто интересно мнение старших :)


 
Юрий Зотов ©   (2010-05-05 13:12) [14]


> Мне просто интересно мнение

В Memo с использованием моноширинного шрифта и Format (либо #9).


 
Юрий Зотов ©   (2010-05-05 13:17) [15]


> старших

И это правильно. Старшим доводилось выводить на экраны и принтеры красивые таблицы, используя только Write и WriteLn - поэтому у старших подобных вопросов просто не возникает.
:o)


 
oldman ©   (2010-05-05 13:19) [16]


> Lyonux ©   (05.05.10 13:07) [13]
> Заметьте, вопрос звучал как:
> Народ, подскажите пожалуйста, как можно вывести массив в
> memo
> а не:
> Народ, подскажите пожалуйста, как можно вывести массив,
> чтобы выглядело хорошо


А типа вывод массива в мемо нужен для его дальнейшей обработки?
Явно же для визуализации.


 
Lyonux ©   (2010-05-05 13:21) [17]


>  Старшим доводилось выводить на экраны и принтеры красивые
> таблицы, используя только Write и WriteLn


Нам тоже доводилось выводить такие таблицы, используя символы ascii-кода: со всеми уголочками, перегородочками и п т.п.)
Буквально в прошлом году)


 
Lyonux ©   (2010-05-05 13:23) [18]


> Явно же для визуализации.

что вы от вопросов-то уходите) Вон, за вас уже другие дяди отвечают))
Ладно, извините, что задела вас) Я не хотела :) Честно-честно :)


 
Anatoly Podgoretsky ©   (2010-05-05 14:07) [19]

> Lyonux  (05.05.2010 13:07:13)  [13]

Два варианта

1. Если в мемо, то освоить работу с табуляторами
2. Вывод в StringGrid - ничего делать не надо, уже работает с ячейками.


 
Anatoly Podgoretsky ©   (2010-05-05 14:09) [20]

> Юрий Зотов  (05.05.2010 13:12:14)  [14]

Надо еще осваивать установку табуляторов, да и моноширинный не обязателен, если нет особых требований к форматированию.


 
Anatoly Podgoretsky ©   (2010-05-05 14:10) [21]

> Юрий Зотов  (05.05.2010 13:17:15)  [15]

С помощью Write и табуляции не нужны, но придется осваивать форматирование.


 
Anatoly Podgoretsky ©   (2010-05-05 14:11) [22]

> Lyonux  (05.05.2010 13:21:17)  [17]

Ведь умеем же :-)


 
Anatoly Podgoretsky ©   (2010-05-05 14:11) [23]

> Lyonux  (05.05.2010 13:23:18)  [18]

Сейчас дядя обидится и выкатит счет.


 
12 ©   (2010-05-05 15:20) [24]

все крутится по спирали
сейчас:
function ShowTable($Arr){
 Echo "<TABLE BORDER = 1>";
 foreach ($Arr as $Row) {
   echo "<TR>";
   foreach ($Row as $Elem) {
     echo "<TD>". $Elem . "</TD>";}
   echo "</TR>";}
 Echo "</TABLE>";

В универе писал:
for i:=1 to n do
begin
 Writeln;
 for i:=1 to m do write("A[";i;"]=";a[i]);
end;

никакой разницы :)


 
oldman ©   (2010-05-05 20:25) [25]


> Lyonux ©   (05.05.10 13:07) [13]
> Кстати, как бы вы выводили массив на форму, возникни такая
> необходимость, oldman? В СтрингГриде?) Мне просто интересно
> мнение старших :)


Не использовал мемо. Есть много других хороших компонент способов.
А также, есть много плохих способов с точки зрения программирования, но удобных в работе. На худой конец, есть генератор отчетов.

Зачем, вообще, нужен массив на форме? Значимые данные и нужен визуальный контроль? Используй БД и средства ея отображения.


 
Германн ©   (2010-05-05 20:53) [26]


> вывод массива в мемо нужен для его дальнейшей обработки?

Наверно автору надо сохранить массив в файл. А у мемо есть готовый SaveToFile :)


 
Серг   (2010-05-06 00:32) [27]

Мне не нужно никакие файлы ... Мне нужно просто на проста вывести одномерный массив в memo


 
Плохиш ©   (2010-05-06 00:36) [28]


> Серг   (06.05.10 00:32) [27]
>
> Мне не нужно никакие файлы ... Мне нужно просто на проста
> вывести одномерный массив в memo

Зачем оно вам, это программирование?


 
Германн ©   (2010-05-06 00:45) [29]


> вывести одномерный массив в memo

Массив чего? Галош?


 
turbouser ©   (2010-05-06 01:22) [30]

Массив одномерных галош.. В мемо Ж-()


 
brother ©   (2010-05-06 04:34) [31]

> Мне нужно просто на проста вывести одномерный массив в memo


procedure TForm1.Button1Click(Sender: TObject);
var
 mass: array[0..7] of integer; // массив
 i: integer;
begin
 memo1.Lines.Clear; // очищаем мемо
 randomize; // инициализируем рандомный генератор

 for i:= Low(mass) to High(mass) do
   mass[i]:= random(10); // заполним массив случайными значениями

 for i:= Low(mass) to High(mass) do
   memo1.Lines.Add(IntToStr(mass[i])); // выводим в мемо )

end;

покажет в мемо рандомные числа из массива, например:
5
2
9
3
3
0
9
7
или
procedure TForm1.Button1Click(Sender: TObject);
var
 mass: array[0..7] of integer; // массив
 i: integer;
 s: string; // накопительная итоговая строка
begin
 memo1.Lines.Clear; // очищаем мемо
 randomize; // инициализируем рандомный генератор

 for i:= Low(mass) to High(mass) do
   mass[i]:= random(10); // заполним массив случайными значениями

 s:="";
 for i:= Low(mass) to High(mass) do
   s:= s + IntToStr(mass[i]) + " ";  // заполняем строку значениями из массива

 memo1.Lines.Add(s); // выводим в мемо )
end;

покажет в мемо рандомные числа из массива, например:
9 6 8 6 9 8 9 8


 
brother ©   (2010-05-06 04:35) [32]

зы учите мат. часть, пригодится...


 
Серг   (2010-05-14 02:15) [33]


> Германн ©   (06.05.10 00:45) [29]
>
>
> > вывести одномерный массив в memo
>
> Массив чего? Галош?
>


Массив байт


 
Германн ©   (2010-05-14 02:24) [34]


> Серг   (14.05.10 02:15) [33]
>
>
> > Германн ©   (06.05.10 00:45) [29]
> >
> >
> > > вывести одномерный массив в memo
> >
> > Массив чего? Галош?
> >
>
>
> Массив байт

Понятно.
Пойдём дальше. В каком виде нужно вывести в мемо массив байт? Для чего нужно вывести сей массив в мемо? Почему именно в мемо?


 
Серг   (2010-05-14 02:31) [35]

Массив можно вывести абсолютно в любой форме. Кстати, не обязательно в memo выводить, можно и в Label


 
Германн ©   (2010-05-14 02:35) [36]


> Серг   (14.05.10 02:31) [35]
>
> Массив можно вывести абсолютно в любой форме. Кстати, не
> обязательно в memo выводить, можно и в Label

Тогда ответь для чего? Для чего нужно массив выводить в визуальный компонент?
Учебная задача?


 
Серг   (2010-05-14 02:38) [37]

Для проверки того, с каким массивом будем работать ) Ну можно сказать, что учебная задача )


 
Германн ©   (2010-05-14 02:48) [38]


> Серг   (14.05.10 02:38) [37]
>
> Для проверки того, с каким массивом будем работать ) Ну
> можно сказать, что учебная задача )

Понятно. Опять в кулинарном техникуме задали задачу по программированию. Соболезную.


 
Серг   (2010-05-14 02:51) [39]

Ну что, Герман, поможешь студенту из кулинарного техникума ? )


 
Германн ©   (2010-05-14 02:55) [40]


> Серг   (14.05.10 02:51) [39]
>
> Ну что, Герман, поможешь студенту из кулинарного техникума
> ? )
>

Во-первых - Германн.
Во-вторых помогу, если сможешь объяснить задачу.



Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.54 MB
Время: 0.06 c
15-1274351097
vlgrig1961
2010-05-20 14:24
2010.08.27
QReport печатает четные страницы???


6-1216982606
Uzer32.dll
2008-07-25 14:43
2010.08.27
Доступ к запароленым шарам


15-1275856176
Юрий
2010-06-07 00:29
2010.08.27
С днем рождения ! 7 июня 2010 понедельник


15-1270794656
Den
2010-04-09 10:30
2010.08.27
Тип дистрибутива


15-1265198569
Андрей Прокопенко
2010-02-03 15:02
2010.08.27
"Немыслимое что-то..."





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский