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

Вниз

Простая программа   Найти похожие ветки 

 
_Alex_   (2002-08-17 11:47) [0]

Привожу часть просто часть программы, на форме 2 кнопки
нажатие на Button1 показать массив, нажатие на Button2 присвоить
элементу массива 3,4 значение 1. Все просто. Но.
У меня происходит следующее. Жму первую, смотрю массив чистый.
жму вторую, присвоили. Потом жму первую и вижу следующее
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
я присаиваю значение одному элементу, паралельно сним
на 10 левее, и на 1 выше появляются те же самые значения,
фантастика какая-то. Может у меня чего-то глючит. Пожалуйста проверьте у себя кто-нибудь. Что с этим делать.
Код:

unit Unit1;
......
......
{ Public declarations }
end;

const
box_s=30;
R_X=15;
R_Y=10;

type l=record
massiv : array [1..R_X,1..R_Y] of integer;
end;

var
Form1: TForm1;
m: l;


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
mes: string;
begin
mes:="";
for i:=1 to r_y do
begin
mes:=mes+inttostr(i)+": ";
for j:=1 to r_x do
mes:=mes+" "+inttostr(m.massiv[i,j]);
mes:=mes+ #13+#10;
end;
showmessage(mes);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
m.massiv[3,4]:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i,j: integer;
begin
for i:=1 to r_y do
for j:=1 to r_x do
m.massiv[i,j]:=0;
end;

end.


 
Набережных С.   (2002-08-17 12:52) [1]


> Может у меня чего-то глючит.

Несомненно. А конкретно - перепутал местами i и j


 
_Alex_   (2002-08-17 13:30) [2]

Даже если я и поменяю местами i и j.
У меня появляются две единицы, а должна одна!
Проверьте саму программу.


 
_Alex_   (2002-08-17 13:39) [3]

Отбой!
Проверил.
В объявлении масиива надо поменять местами r_x и r_y



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

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

Наверх





Память: 0.45 MB
Время: 0.006 c
3-95682
nikolo
2002-08-08 14:11
2002.08.29
Вызов функции из DLL с передачей массива как параметра


1-95862
^Sanya
2002-08-16 23:02
2002.08.29
Little Question: Правда, что в ini больше 64Кб не похранишь?


1-95870
zezik
2002-08-18 01:39
2002.08.29
Как написать свой PlugIn на WinAMP


1-95849
lensky
2002-08-17 17:22
2002.08.29
need help, how to make listview work faster, blin....


3-95727
sdram
2002-08-09 10:25
2002.08.29
Цвет записи в TDBGrid -e





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