Ошибка list index bound(0)

← →
Арт (2015-06-22 10:52) [0]

Как можно решить эту ошибку? Давно не занимался программированием на Дельфи... Помню что это переполнение буфера(по моему)? Ставлю код на таймер возникает ошибка 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;

← →
sniknik © (2015-06-22 10:59) [1]

> Помню что это переполнение буфера(по моему)?
выход за границы
вот тут
> FIO[0]+" "+FIO[1][1]+"."+FIO[2][1]+".";

← →
MBo © (2015-06-22 11:14) [2]

Нужно проверять FIO.Count перед использованием отдельных строк.

← →
Арт (2015-06-22 11:15) [3]

Спасибо! проверять будут сначала Count

> Ставлю код на таймер возникает ошибка List index bounds(0).
> На KeyPress в поле edit1 тоже

Другого места для этого кода не придумал?

Ошибка list index bound(0) Найти похожие ветки