Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

SpyBoy © (2005-08-02 00:20:00)
Я думаю, всем ясно, что я пытаюсь сделать в этой прцедуре.
В строке(**) какая-то ошибка прога на ней вылетает:
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 23:20:00) [1]
> for w:=0to length(edit1.Text)

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

> if edit1.Text=q[w]

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

lookin (2005-08-02 01:01:00) [2]
Я понял, автор пытается выделить элемент листбокса по заданной строке в едите... Да? А можно мне вместо положенных 10000 рублей шоколадку, а тоя голодный...?

GuAV (2005-08-02 00:49:00) [3]
доп к [2]

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

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

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

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

lookin (2005-08-02 00:43:00) [4]
кстати, мне так и не ясно, "что я пытаюсь сделать в этой прцедуре"

lookin (2005-08-02 00:39:00) [5]
Может и ошибаюсь, но

procedure TForm1.Edit1Change(Sender: TObject);
var i,w:integer; q:string;
begin
if listbox1.Items.Count>1 then
for w:= 1to 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:00) [6]
А что за ошибка???

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »