|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2009, 21:00 | #1 |
Новичок
Джуниор
Регистрация: 05.06.2009
Сообщений: 2
|
Ответьте мне пожалуйста!
Создан был 4-ех буквенный кроссворд. Run-Run и ... ошибка, указывающая на if (listbox1.Selected[i3]=false) and
Код:
Последний раз редактировалось MaTBeu; 05.06.2009 в 21:35. |
05.06.2009, 22:55 | #2 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
нужен весь код процедуры
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
05.06.2009, 23:05 | #3 |
Новичок
Джуниор
Регистрация: 05.06.2009
Сообщений: 2
|
Вот, пожалуйста
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) {Edit1: TEdit; Edit2: TEdit;} Edit3: TEdit; Edit4: TEdit; {Edit5: TEdit; } Edit11: TEdit; Edit12: TEdit; Edit13: TEdit; Edit16: TEdit; Edit17: TEdit; Edit19: TEdit; Edit20: TEdit; ListBox1: TListBox; Edit28: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; { Edit6: TEdit; } { Edit7: TEdit; Edit8: TEdit; Edit9: TEdit;} Edit10: TEdit; {Edit22: TEdit; Edit23: TEdit; Edit27: TEdit;} procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin listbox1.Items.Add(edit28.text); edit28.Clear; end; procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin i:=listbox1.ItemIndex; listbox1.Items.Delete(i); end; procedure ins(e1,e2,e3,e4:tedit; s:string); begin e1.Text:=s[1]; e2.Text:=s[2]; e3.Text:=s[3]; e4.Text:=s[4]; end; procedure TForm1.Button1Click(Sender: TObject); var f:boolean; i,i1,i2,i3, i4:integer; begin f:=false; i1:=-1; for i:=0 to listbox1.Items.Count-1 do listbox1.Selected[i]:=false; while (f=false) and (i1<listbox1.Items.Count-1) do begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:='';Edit4.Text:=''; Edit10.Text:=''; Edit11.Text:='';Edit12.Text:=''; Edit13.Text:=''; Edit16.Text:='';Edit17.Text:=''; Edit19.Text:='';Edit20.Text:=''; Edit28.Text:=''; inc(i1); if ListBox1.Selected[i1]=false then begin ListBox1.Selected[i1]:=true; ins(edit1,edit2,edit3,edit4,listBox 1.items[i1]); i2:=-1; while (f=false) and (i2<listbox1.Items.Count-1) do begin inc(i2); if (listbox1.Selected[i2]=false) and (listbox1.Items[i2][1]=listbox1.Items[i1][2]) then begin listbox1.Selected[i2]:=true; ins(edit2,edit16,edit11,edit19,list box1.Items[i2]); i3:=-1; while (f=false) and (i3<listbox1.Items.Count-1) do begin inc(i3); if (listbox1.Selected[i3]=false) and (listbox1.Items[i3][2]=listbox1.Items[i2][3]) then begin listbox1.Selected[i3]:=true; ins(edit10,edit11,edit12,edit13,lis tbox1.Items[i3]); i4:=-1; while (f=false) and (i4<listbox1.Items.Count-1) do begin inc(i4); if (listbox1.Selected[i4]=false) and (listbox1.Items[i4][1]=listbox1.Items[i1][4]) and (listbox1.Items[i4][3]=listbox1.Items[i3][4]) then begin listbox1.Selected[i4]:=true; ins(edit4,edit17,edit13,edit20,list box1.Items[i4]); f:=true; end; end; if (f=false) then listbox1.Selected[i4]:=false; end; end; if (f=false) then listbox1.Selected[i3]:=false; end; end; if (f=false) then listbox1.Selected[i2]:=false; end; end; if (f=false) then listbox1.Selected[i1]:=false; end; procedure TForm1.Button4Click(Sender: TObject); begin close; end; end. |
06.06.2009, 14:59 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Код:
вот так запускается, но я не знаю правильно ли работает(цели мне не ведомы) Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите мне пожалуйста))) | Kapriz | Помощь студентам | 1 | 21.05.2009 00:07 |
Помогите мне пожалуйста с задачкой | umiko | Помощь студентам | 2 | 16.05.2009 13:16 |
Сделайте мне пожалуйста прграммки.(С++) | stalkerrr | Помощь студентам | 3 | 23.12.2008 18:34 |