Zerknijcie w źródła - nawalił ListView

procedure....var....
plik:boolean;
begin
tmp:=text;
if polecenie='PLIK' then
begin
pliki:=parametr;
plik:=true;
tmp:='';
for i:=1 to length(pliki) do
begin
if pliki[i]='/' then
begin
if plik=true then
begin
ListView1.Items.Add;
ListView1.Items.Item[j].Caption:=tmp;
tmp:='';
j:=j+1;
plik:=false;
end
else
if plik=false then
begin
<font color="red">ListView1.Items.Item[j].SubItems.Add(tmp); </span>//!!!

oki już sobie poradziłem...

W takim razie napisz jak. Może komuś kiedyś się przyda.

no bo miałem liste pl;lików w jednym stringu tak zapisaną (to jest program wymiana plików w necie między mną a kumplem taki dla bajeru ;-) ) i miałem liste plików w takiej postaci:

PLIK/plik1.bmp|1534KB/róża.zip|22KB/

i chodziło o to, by program sprawdzał każdą litere a jak trafi na | to wpisywał do pozycji w listboxie a jak na / to żeby te literki które mijał po drodze wpisał do tej samej linii ale w subitemie. Dzięki temu miałbym w kolumnach plik i rozmiar. ale ja cudowałem ze zmiennycmi jak wyżej widzicie to coś sie je...jechało, to postanowiłem najpierw pociąć na:

plik1.bmp|1534KB/
róża.zip|22KB/

a potem obciąć to i za jednym zamachem wstawić do ListView'a. Kod macie niżej. musicie zrozumieć, bo wyjaśniania by było za dużo... :-)

if polecenie='PLIK' then
begin
pliki:=parametr;
tmp:='';
for i:=1 to length(pliki) do
begin
if pliki[i]='/' then
begin
ListView1.Items.Add;
ListView1.Items.Item[j].Caption:=copy(tmp,1,pos('|',tmp)-1);
ListView1.Items.Item[j].ImageIndex:=1;
ListView1.Items.Item[j].SubItems.Add('sub');
delete(tmp,1,pos('|',tmp));
ListView1.Items.Item[j].SubItems.Add(tmp);
tmp:='';
j:=j+1;
end else tmp:=tmp+pliki[i];
end;
end
end;

to wszystko... [cya] jeśli coś niejasne to prosze dopisać do tego wątku...