Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Вниз

ошибка при работе с tstringlist & stringgrid   Найти похожие ветки 

← →
Тимон   (2006-04-14 20:37) [0]

не пойму в чем ошибка
edit1.text="0,5,0,5,5,5,5";
 try
 items := TStringList.Create;
 items.CommaText :=edit1.Text;
   StringGrid1.Cells[1,1] := items[0];
   StringGrid1.Cells[2,1] := items[1];
   StringGrid1.Cells[3,1] := items[2];
   StringGrid1.Cells[4,1] := items[3];
   StringGrid1.Cells[5,1] := items[4];
   StringGrid1.Cells[6,1] := items[5];
   StringGrid1.Cells[7,1] := items[6];
items.free;
 finally
end;
выводит все как надо без ошибок,а вот если так
 try
 items := TStringList.Create;
 q:=form2.StringGrid1.Row;
 items.CommaText :=form2.AdvStringGrid1.Cells[15,q];
   AdvStringGrid1.Cells[1,1] := items[0];
   AdvStringGrid1.Cells[2,1] := items[1];
   AdvStringGrid1.Cells[3,1] := items[2];
   AdvStringGrid1.Cells[4,1] := items[3];
   AdvStringGrid1.Cells[5,1] := items[4];
   AdvStringGrid1.Cells[6,1] := items[5];
   AdvStringGrid1.Cells[7,1] := items[6];
items.free;
 finally
end;

пишет ошибку
подскажите плиз как быть

---

← →
Kolan ©   (2006-04-14 20:53) [1]

пишет ошибку
Какую?

---

← →
Дарья   (2006-04-14 20:56) [2]

> пишет ошибку
> Какую?

я понял что ошибка появляеться только тогда,когда в ячейке нету данных,если есть то все работает на ура,а вот как нету так сразу ошибка

---

← →
kilkennyCat ©   (2006-04-14 21:00) [3]

где указано, что это на Form2?  
  AdvStringGrid1.Cells[1,1] := items[0];
  AdvStringGrid1.Cells[2,1] := items[1];
  AdvStringGrid1.Cells[3,1] := items[2];
  AdvStringGrid1.Cells[4,1] := items[3];
  AdvStringGrid1.Cells[5,1] := items[4];
  AdvStringGrid1.Cells[6,1] := items[5];
  AdvStringGrid1.Cells[7,1] := items[6];

---

← →
Дарья   (2006-04-14 21:01) [4]

> где указано, что это на Form2?  
>   AdvStringGrid1.Cells[1,1] := items[0];
>   AdvStringGrid1.Cells[2,1] := items[1];
>   AdvStringGrid1.Cells[3,1] := items[2];
>   AdvStringGrid1.Cells[4,1] := items[3];
>   AdvStringGrid1.Cells[5,1] := items[4];
>   AdvStringGrid1.Cells[6,1] := items[5];
>   AdvStringGrid1.Cells[7,1] := items[6];

на форм3 AdvStringGrid1 и на форм2 AdvStringGrid1
процедура работает с форм3.AdvStringGrid1 и загружает данные из форм2.AdvStringGrid1

---

← →
kilkennyCat ©   (2006-04-14 21:02) [5]

бррр
сам запутался...
имеем:

try
items := TStringList.Create;
q:=form2.StringGrid1.Row; - здесь стринггрид на ф2
items.CommaText :=form2.AdvStringGrid1.Cells[15,q]; здесь адвстрингрид на ф2
  AdvStringGrid1.Cells[1,1] := items[0]; здесь и далее адвстринггрид на ф1 ...
  AdvStringGrid1.Cells[2,1] := items[1];
  AdvStringGrid1.Cells[3,1] := items[2];
  AdvStringGrid1.Cells[4,1] := items[3];
  AdvStringGrid1.Cells[5,1] := items[4];
  AdvStringGrid1.Cells[6,1] := items[5];
  AdvStringGrid1.Cells[7,1] := items[6];
items.free;
finally
end;

---

← →
Тимон   (2006-04-14 21:11) [6]

> try
> items := TStringList.Create;
> q:=form2.AdvStringGrid1.Row; - здесь advстринггрид на ф2
> items.CommaText :=form2.AdvStringGrid1.Cells[15,q]; здесь
> адвстрингрид на ф2
>   AdvStringGrid1.Cells[1,1] := items[0]; здесь и далее адвстринггрид
> на ф1 ...
>   AdvStringGrid1.Cells[2,1] := items[1];
>   AdvStringGrid1.Cells[3,1] := items[2];
>   AdvStringGrid1.Cells[4,1] := items[3];
>   AdvStringGrid1.Cells[5,1] := items[4];
>   AdvStringGrid1.Cells[6,1] := items[5];
>   AdvStringGrid1.Cells[7,1] := items[6];
> items.free;
> finally
> end;


я накосячил тут неправильно написал

---

← →
kilkennyCat ©   (2006-04-14 21:27) [7]

> я понял что ошибка появляеться только тогда,когда в ячейке
> нету данных,если есть то все работает на ура,а вот как нету
> так сразу ошибка


ну разумеется. если нет данных, то как отработает items.CommaText ? появятся ли итемы вообще? и сколько?
var
 s : string;
 i : word;

items := TStringList.Create;
with form2 do s := AdvStringGrid1.Cells[15, AdvStringGrid1.Row];
if s <> "" then begin
 items.CommaText := s;
 for i := 0 to items.count -1 do AdvStringGrid1.Cells[i + 1,1] := items[i];
end;
items.free;

---

← →
Германн ©   (2006-04-15 02:31) [8]

А зачем термин Items, который является свойством многих VCL-компонент использовать как имя переменной?

---

← →
Gero ©   (2006-04-15 02:33) [9]

> Тимон   (14.04.06 20:37)

try...finally в данном коде не имеет сымсла.

---

← →
Anatoly Podgoretsky ©   (2006-04-15 11:58) [10]

Дашенька/Тимон/Новичек просто пока этого не понимает, чайник еще.

---

← →
Anatoly Podgoretsky ©   (2006-04-15 12:02) [11]

О обнаружил, что ты еще и Дарья.
Пожалуйста укажите полный список имен и пол каждого из них.

---

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

Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Наверх

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