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

ошибка при работе со строками и компонентом 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

---

← →
Digitman ©   (2004-04-08 09:02) [8]

Search -> Find Error .. -> 00408e5

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

---

← →
ЮЮ ©   (2004-04-08 09:06) [9]

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;

---

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

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



Память: 0.47 MB
Время: 0.024 c