09.07.2009, 22:28
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
Провел на форуме:
243951
Репутация:
1
|
|
подскажите.
Код:
procedure TForm1.button1Click(Sender: TObject);
var
Index: Integer;
Temp: TStringList;
begin
Temp:= TStringList.Create();
for Index:= 0 to Bana.Count - 1 do
begin
if (Bana[Index] <> '') and (Temp.IndexOf(Bana[Index]) = -1) then
Temp.Add(Bana[Index])
end;
try
begin
Temp.SaveToFile...
и при нажатии на кнопку выходит ошибка:
Project raised exception class EAccessViolation with message...
и становиться на строку for Index:= 0 to Bana.Count - 1 do
в чем проблема? |
|
|