| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ошибка list index bound(0) [D2005, XP]
Арт © (2015-06-22 10:52:00)Как можно решить эту ошибку? Давно не занимался программированием на Дельфи... Помню что это переполнение буфера(по моему)? Ставлю код на таймер возникает ошибка List index bounds(0). На KeyPress в поле edit1 тоже...
вот код:
var
FIO:TStrings;
begin
FIO :=TStringList.Create;
FIO.Delimiter :=' '; //разделитель - пробел
FIO.DelimitedText :=edit1.Text; //разделяемый текст Ф.И.О.
Label4.Caption :=FIO[0]+' '+FIO[1][1]+'.'+FIO[2][1]+'.'; //вывод с инициалами
FIO.Free;
end;
Германн (2015-06-22 12:08:00) [1]
> Ставлю код на таймер возникает ошибка List index bounds(0).
> На KeyPress в поле edit1 тоже
Другого места для этого кода не придумал?
Арт (2015-06-22 11:15:00) [2]Спасибо! проверять будут сначала Count
MBo (2015-06-22 11:14:00) [3]Нужно проверять FIO.Count перед использованием отдельных строк.
sniknik (2015-06-22 10:59:00) [4]> Помню что это переполнение буфера(по моему)?
выход за границы
вот тут
> FIO[0]+' '+FIO[1][1]+'.'+FIO[2][1]+'.';
| |
