li: TListItem; begin ss:=s; for i:=0 to 5 do begin j:=Pos(SEP,ss); cs[i]:=Copy(ss,1,j-1); Delete(ss,1,j); end; cs[6]:=ss; cs[0]:=ss;
if id=-1 then begin li := ListView_Card.Items.Add; li.Caption := cs[0]; for i:=1 to 6 do li.SubItems.Add(cs[i]); end else begin ListView_Card.Items[id].Caption:=cs[0]; for i:=1 to 6 do begin ListView_Card.Items[id].SubItems.Strings[i-1]:=cs[i]; showmessage(cs[i]); end; end; end;
----------------------------------------------
-