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

Вниз

ListBox   Найти похожие ветки 

← →
DelphiNew   (2004-01-29 09:24) [0]

Возник такой вопрос.... мне нужно сравнить стринговую переменную и выделенную запись в листбоксе и если они одинаковые вставить в другой листбокс запись вот что у меня получилось

if Tabl = FrmEdit.ListBTabl.Items.Strings[ListBTabl.ItemIndex] then
FrmEdit.ListBField.Items[i]:=Field;

Но это проходит только если я выбираю записи по очереди... если я например сразу выбираю 5 запись выскакивает ошибка Unable to insert a line

---

← →
SPIRIT   (2004-01-29 09:38) [1]

т.е. чтобы выбрать пятую запись тебе приходиться вибирать 1,2,3,4 поочереди ??? .. как я тебе сочувствую

---

← →
REP   (2004-01-29 09:39) [2]

А хде ты вставляешь запись? может у тебя в ListBField нет пяти элементов? И что такое i?

---

← →
SPIRIT   (2004-01-29 09:43) [3]

если тебе одну запись надо сравнить тогда на
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if listbox1.Items.Strings[listbox1.ItemIndex]=edit1.Text then
listbox2.Items.Add(edit1.Text)
end;

---

← →
SPIRIT   (2004-01-29 09:43) [4]

i - это количество кликов по листбоксу :\

---

← →
AGN   (2004-01-29 09:58) [5]

если я правильно понял.....

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to (ListBox1.Items.Count - 1) do
begin
if ListBox1.Selected[i] then
if ListBox1.Items[i] = edit1.Text then
ListBox2.Items.Add(ListBox1.Items[i]);
end;
end;

---

← →
SPIRIT   (2004-01-29 10:07) [6]

Мы тут все ничего не поняли... мы можем только догадываться, что нашему уважаемому Товарисчу надо.

---

← →
DelphiNew   (2004-01-29 10:15) [7]

вот полная процедура

procedure TFrmEdit.ListBTablClick(Sender: TObject);
var
i: integer;
begin
AssignFile(F,FileName);
Reset(F);
i:=0;

while not Eof(F) do
Begin
Read (F, PTF);
Tabl:=PTF.ATab;
Index:=PTF.AInd;
Field:=PTF.AFld;
if Tabl = FrmEdit.ListBTabl.Items.Strings[ListBTabl.ItemIndex] then
Begin
FrmEdit.ListBField.Items[i]:=Field;
end;
i:=i+1;
end;
closefile(f);
end;

---

← →
DelphiNew   (2004-01-29 10:18) [8]

Всё люди спасибо разобрался.....

---

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

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

Наверх

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