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

Чёто не так делаю! ListView1.items.Add.Caption   Найти похожие ветки 

← →
officeman   (2004-07-27 12:52) [0]

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

На форме размещается 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;



---

← →
MU ©   (2004-07-27 12:56) [1]

TListView + F1
Items Example!!!

---

← →
officeman   (2004-07-27 12:58) [2]

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

---

← →
begin...end ©   (2004-07-27 13:05) [3]

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

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

---

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

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

---

← →
Sun bittern ©   (2004-07-28 06:00) [5]

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

---

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

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



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