Чёто не так делаю! 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;

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