Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.013 c
4-1139395573
rOOse
2006-02-08 13:46
2006.04.30
PopUp Menu


15-1144299862
Ega23
2006-04-06 09:04
2006.04.30
Тьфу, блин!!! С Днём рождения! 6 апреля


15-1144630836
mio
2006-04-10 05:00
2006.04.30
загрузочный диск


10-1117664614
SerJ23
2005-06-02 02:23
2006.04.30
Выделение повторяющихся слов в Word


15-1144612282
SAK
2006-04-09 23:51
2006.04.30
Написание оптимального кода под Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский