Текстовый редактор не работает!!!

← →
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]
код вообще бред какой-то.

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

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

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

> if edit1.Text=q[w]

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

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