ошибка при работе со строками и компонентом ListView

← →
vasil (2004-04-08 08:29) [0]

Подскажите кто знает почему этот текст выдает ошибку
при выполнении. и как это можно обойти или исправить?

s:= ListView1.Items.Item[i].SubItems.Text; for i:=1 to length(s) do begin s1:=copy(s,i,1); if s1<>chr(13) then sar[j]:= sar[j]+s1 else j:=j+1; end;

а используется он так:

for si:=1 to ListView1.Items.Count do begin j:=1; for i:=1 to 4 do sar[i]:=""; s:= ListView1.Items.Item[1].SubItems.Text; for i:=1 to length(s) do begin s1:=copy(s,i,1); if s1<>chr(13) then sar[j]:= sar[j]+s1 else j:=j+1; end; end;

заранее благодарен.

← →
Digitman © (2004-04-08 08:36) [1]

так и пишет, мол, "ошибка" ?
или все же сподобишься конкретный текст ошибки привести здесь ?

← →
ЮЮ © (2004-04-08 08:37) [2]

j:=1;
for i:=1 to 4 do sar[ i]:="";

А на предупреждения компилятора надо обращать внимание

← →
ЮЮ © (2004-04-08 08:38) [3]

Сорри, i я не заметил :-)
а sar - это что

← →
Digitman © (2004-04-08 08:44) [4]

нумерация эл-тов в списке TListItems начинается с 0

← →
vasil (2004-04-08 08:53) [5]

sar: array[1..4] of string;

← →
MBo © (2004-04-08 08:57) [6]

Цель кода?

← →
vasil (2004-04-08 08:58) [7]

выдает ошибку вида:
Access violation at adress 00408e5 in module "Project1.exe". Read of adress FFFFFFFF

Search -> Find Error .. -> 00408e5

отладчик покажет строчку, при выполнении которой произошло исключение

for si := 0 to ListView1.Items.Count - 1 do begin
j := 1;
for i := 1 to 4 do sar[i]:="";
s := ListView1.Items.Item[1].SubItems.Text;
for i := 1 to length(s) do begin
if s[i] <> chr(13) then
sar[j]:= sar[j] + s[i]
else begin
j := j + 1;
if j > 4 then Break;
end;
end;
end;

ошибка при работе со строками и компонентом ListView Найти похожие ветки