Скачать: CL | DM;

Текстовый редактор не работает!!!   Найти похожие ветки 

← →
SpyBoy ©   (2005-08-02 00:20) [0]

Я думаю, всем ясно, что я пытаюсь сделать в этой прцедуре.
В строке(**) какая-то ошибка прога на ней вылетает:

procedure TForm1.Edit1Change(Sender: TObject);
var i,w:integer; q:string;
begin
if listbox1.Items.Count>1 then
for w:=0 to length(edit1.Text) do
for i:=0 to listbox1.items.count-1 do

begin
 q:=listbox1.Items.Strings[i];
if edit1.Text=q[w] then   //(**)
begin
listbox1.Items[listbox1.SelCount]:=listbox1.items[i] ;

end;  end;

end;

---

← →
fizzik ©   (2005-08-02 00:33) [1]

А что за ошибка???

---

← →
lookin ©   (2005-08-02 00:39) [2]

Может и ошибаюсь, но

procedure TForm1.Edit1Change(Sender: TObject);
var i,w:integer; q:string;
begin
if listbox1.Items.Count>1 then
for w:=1 to length(edit1.Text) do
for i:=0 to listbox1.items.count-1 do

begin
q:=listbox1.Items.Strings[i];
if edit1.Text=q[w] then   //(**)
begin
listbox1.Items[listbox1.SelCount]:=listbox1.items[i] ;

end;  end;

end;

---

← →
lookin ©   (2005-08-02 00:43) [3]

кстати, мне так и не ясно, "что я пытаюсь сделать в этой прцедуре"

---

← →
GuAV ©   (2005-08-02 00:49) [4]

доп к [2]


> w:=0 to length(edit1.Text)


> q:=listbox1.Items.Strings[i];

возможно, edit1.Text м.б. длине listbox1.Items.Strings[i]

доп к [3]
код вообще бред какой-то.

---

← →
lookin ©   (2005-08-02 01:01) [5]

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

---

← →
fizzik ©   (2005-08-02 23:20) [6]

> for w:=0 to length(edit1.Text)

> q:=listbox1.Items.Strings[i];

> if edit1.Text=q[w]

Насколько я понимаю edit1.text - это строка,
а q[0] - число, обозначающее длину строки q

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.042 c