Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Access violation

Автор: F1reF0x 1.2.2006, 17:59

При выполнении этой процедуры выкакивает такая ошибка:
Access violation at address 0046E370 in module 'MyProject.exe'. Read of address FFFFFFFF.
Обычно, такие ошибки возникают при использовании не иницализираваного объекта, что я тут не иницализировал?
Find Error ясности не внёс.

Код


procedure TMainForm.FormatSBClick(Sender: TObject);
var
  Str: String;
  I:     Integer;
  J:    Integer;
begin
  For i:= 0 To MailsMemo.Lines.Count Do
  Begin
  Str:= MailsMemo.Lines.Strings[i];

  For J:= 0 To Length(Str) do
  Begin
  If Str[J] in ['a'..'z', 'A'..'Z', '0'..'9', '-', '_', '.', '@'] = False then // Find Error показывает на эту строку
  Begin
  Delete(Str, J, 1);
  MailsMemo.Lines.Strings[i]:= Str;
  End;
  End;
  End;

end;

Автор: Snowy 1.2.2006, 18:01

For i:= 0 To MailsMemo.Lines.Count-1 Do

Автор: F1reF0x 1.2.2006, 18:36

Забыл дописать))))) Спасибо

Автор: Rennigth 2.2.2006, 15:19

F1reF0x
кстати, еще
For J:= 1 To Length(Str) do
smile

Автор: Guedda 2.2.2006, 15:43

Это незначительная ошибка. Нулевой байт не будет считаться хоть так хоть так...

Автор: _hunter 2.2.2006, 15:56

ага. только доступ к нему запрещен...