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

Вниз

Вопрос по массивам?   Найти похожие ветки 

 
Barlok   (2003-04-17 18:43) [0]

У меня вопрос по двумерным массивам. Мне нужно через Label вывести матрицу в виде прямоугольника, а delphi выводит одной строкой.

нужно
0000
1111
2222
3333

выводит 0000111122223333

Я пробывал написать еще строку

Label1.caption := Label1.caption + #13; - но комп. посылает подальше. Код программы представлен ниже:


procedure TForm1.Button1Click(Sender: TObject);
const
p = 3;
var
a : array [0..p,0..p]of integer;
i, j : integer;
begin

for i := 0 to p do
for j := 0 to p do
begin
begin
a[i,j] := i;
label1.Caption := label1.Caption +" "+ intTostr(a[i,j]);

end;
end;


end;

end.


 
MBo   (2003-04-17 18:48) [1]

выводи лучше в многострочные контролы- tlistbox или Tmemo


 
Anatoly Podgoretsky   (2003-04-17 18:48) [2]

Куда, куда он тебя послал?
Использовать нужно #13#10 не привыкай к плохому.
Вставляй после этого.
end;
end;

Нескромный попрос, а зачем тебе двойные операторные скобки?


 
Palladin   (2003-04-17 19:40) [3]

а это наверно он так циклы пишет :) сколько вложений столько и оп. скобок



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

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

Наверх





Память: 0.55 MB
Время: 0.022 c
3-486
user2
2003-04-14 17:12
2003.05.01
TComboBox и БД


14-721
я - аноним
2003-04-13 00:20
2003.05.01
именинники 13 апреля


14-706
Тих
2003-04-10 22:38
2003.05.01
С круглой стамеской и розовой леской


1-574
Kotenochek
2003-04-18 12:21
2003.05.01
!!!! Компонент DriveComboBox


8-649
Gerda
2003-01-24 17:57
2003.05.01
По поводу GIF`а





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский