| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Чёто не так делаю! ListView1.items.Add.Caption [D6, Win95/98, WinME, Win2k, WinXP]

officeman ©   (2004-07-27 12:52:00) 

Доброе время суток! объясните что я делаю не так и как надо сделать чтобы всё работало верно!

На форме размещается TListView1, создаю Colums: code, name, fasovka, cena
и кнопку, задача которой загрузить строку 's' в TListView1 разбив по соответствующим столбцам.
а у меня почемуто выводится всё в один столбец(в первый)  в виде одного item-а... в четыре строки =((
как решить такую несложную задачку.?


procedure TForm1.Button1Click(Sender: TObject);
var
i,bPos,Counter,count: Integer;
s:string;
begin
count:=0;
s:='004;Лак НЦ-218;14кг;146.20;';
if s='' then Exit;
bPos := 1;
for i := 1 to Length(s) do
begin
  if s[i]=';' then
  begin


// Вот здесь пытаюсь записать по столбцам.
           Form1.ListView1.items.Add.Caption:=(Trim(Copy(s,bPos,i-bPos)));


    Inc(Counter);
    if count=Counter then begin exit
    end else begin
    count:=count+1;
    end;
    bPos := i+1;
 end;
end;
end;



---

Sun bittern   (2004-07-28 06:00:00) [1]

Как ни странно, но всеже этот пример подходит для данной задачи
MU ©   (27.07.04 12:56) [1]

---

Господин со спичками   (2004-07-28 04:29:00) [2]

with ListView1.Items.Add do begin
 caption:='Stolbik1';
 subitems[0].add('Stolbik2');
 // И так далее
end;

---

begin...end   (2004-07-27 13:05:00) [3]

Ну так ведь ты же каждый раз добавляешь новый Item!
А надо добавить Item, потом сделать ему Caption (это 1-й столбец будет), а затем добавлять SubItems'ы (2-й, 3-й столбец и т. д.).

P.S. А код - ужасный. Уж извини.

---

officeman   (2004-07-27 12:58:00) [4]

тот пример мне неподходит!

---

MU   (2004-07-27 12:56:00) [5]

TListView + F1
Items Example!!!

---

Наверх