access violation at address in module.

[inkubus]

здравствуйте. помогите определить, где ошибка.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PerlRegEx, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Regular:TStringList;
     FList: TStringList;
implementation

{$R *.dfm}
//условие
function TForm1.Regit(metin:string):boolean;
var
r: TPerlRegEx;
begin
  r:=TPerlRegEx.Create(nil);
  r.Options := [preCaseless];
  r.RegEx:='^mama';
  Regular := TStringList.Create;
  try
  if r.Match then
    begin
      repeat
        Regular.Add(r.MatchedExpression);
      until not r.MatchAgain;
    end
else
Result:=False;
  except
     Result:=False;
  end;
   end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Index: Integer;
  Temp: TStringList;
begin
Temp:= TStringList.Create();
//if Regit(FList.GetText)=False then //не нужно
//Temp.Add('данные не обнаружены') //не нужно
//else //не нужно
for Index:= 0 to Regular.Count - 1 do
begin
if (Regular[Index] <> '') and (Temp.IndexOf(Regular[Index]) = -1) then
Temp.Add(Regular[Index])
end;
try
begin
Temp.SaveToFile('result.txt');
  finally
    Temp.Free();
  end;
     end;
 //открыть
procedure TForm1.Button1Click(Sender: TObject);
var
  Temp: TStringList;
  Index: Integer;
begin
  if not OpenDialog1.Execute()
    then Exit;
     FList:= TStringList.Create();
  try
    for Index:= 0 to OpenDialog1.Files.Count - 1 do
      try
        Temp.LoadFromFile(OpenDialog1.Files[Index]);
        FList.AddStrings(Temp);
      except
      end;
  finally
    Temp.Free();
  end;
end;

end.

при нажатии на кнопку Button2Click, без открытия файла, появляется ошибка:

Acces violation at address 0046А899 in module 'Project1.exe'.
Read of Address 00000000

раньше такого небыло, а тут появилось как избавиться?

[Dj_smart]

Во первых функция Regit которая регистрирует жизненно важный огран вообще нигде не используется

[uberchel]

И зачем скобки там где не надо, это же не C++!

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PerlRegEx, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    function Regit(metin:string):boolean;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Regular:TStringList;
     FList: TStringList;
implementation

{$R *.dfm}
//условие
function TForm1.Regit(metin:string):boolean;
var
r: TPerlRegEx;
begin
  r:=TPerlRegEx.Create(nil);
  r.Options := [preCaseless];
  r.RegEx:='^mama';
  r.Subject:=metin;
  Regular := TStringList.Create;
  try
  if r.Match then
    begin
      repeat
        Regular.Add(r.MatchedExpression);
      until not r.MatchAgain;
      Result:=True;
    end
else
Result:=False;
  except
     Result:=False;
  end;
   end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Index: Integer;
  Temp: TStringList;
begin
Temp:= TStringList.Create;
Regular := TStringList.Create;
//if Regit(FList.GetText)=False then //не нужно
//Temp.Add('данные не обнаружены') //не нужно
//else //не нужно
for Index:= 0 to Regular.Count - 1 do
begin
if (Regular[Index] <> '') and (Temp.IndexOf(Regular[Index]) = -1) then
Temp.Add(Regular[Index]);
Regular.Ree;
end;
try
Temp.SaveToFile('result.txt');
  finally
    Temp.Free;
  end;
     end;
 //открыть
procedure TForm1.Button1Click(Sender: TObject);
var
  Temp: TStringList;
  Index: Integer;
begin
  if not OpenDialog1.Execute
    then Exit;
     FList:= TStringList.Create;
  Temp:= TStringList.Create;
  try
    for Index:= 0 to OpenDialog1.Files.Count - 1 do
      try
        Temp.LoadFromFile(OpenDialog1.Files[Index]);
        FList.AddStrings(Temp);
      except
      end;
  finally
    Temp.Free;
  end;
end;

end.

[Serge_Bliznykov]

Regular := TStringList.Create;
//if Regit(FList.GetText)=False then //не нужно
//Temp.Add('данные не обнаружены') //не нужно
//else //не нужно
for Index:= 0 to Regular.Count - 1 do

uberchel, а Вас ничего не смущает в Ваших исправлениях?
Тогда ответьте, после Regular := TStringList.Create;
сколько записей будет в Regular? сколько раз выполнится цикл for Index .... to Regular.Count ?
Хотя, безусловно, access violation не будет

правильно сказано, нужно вызывать функцию regit()

там же закомментарен код, который вызывает эту функцию... да ещё с пометкой "//не нужно"
ТС, нужно, да ещё как нужно!!

[мимо]

так я отрыл

if not Regit(FList.GetText) then
Temp.Add('данные не обнаружены')
else

все равно, если не открывать файл, а просто нажать на Button2Click выскакивает эта ошибка

[uberchel]

Сообщение от Serge_Bliznykov

Regular := TStringList.Create;
//if Regit(FList.GetText)=False then //не нужно
//Temp.Add('данные не обнаружены') //не нужно
//else //не нужно
for Index:= 0 to Regular.Count - 1 do

uberchel, а Вас ничего не смущает в Ваших исправлениях?
Тогда ответьте, после Regular := TStringList.Create;
сколько записей будет в Regular? сколько раз выполнится цикл for Index .... to Regular.Count ?
Хотя, безусловно, access violation не будет

правильно сказано, нужно вызывать функцию regit()

там же закомментарен код, который вызывает эту функцию... да ещё с пометкой "//не нужно"
ТС, нужно, да ещё как нужно!!

Ну поспешил, что первое бросилась в глаза и исправил.

[inkubus]

что с '//', что без них, все равно - ошибка

[Serge_Bliznykov]

Господи, inkubus, но неужели Вы программируете методом тыка?!
Ну расскомментарили Вы строки, Вы видите, ЧТО передаётся параметром в функцию regit() ?
FList.GetText
А что такое FList ? Это объект типа TStringList...
А где он создаётся? А создаётся он при нажатии на кнопку Button1
А что будет, если обратиться к методам НЕСОЗДАННОГО объекта?! Будет ACCESS VIOLATION!! Что Вы и имеете!

Логика Вашей программы такова, что пока не нажали на кнопку Button1 Вам НЕЧЕГО обрабатывать и анализировать... Хотите, чтобы Выдавалось сообщение,
так проверяйте в начале процедуры Button2Click:

if Not Assigned(FList) then begin
  Application.MessageBox('Вы ещё не загрузили файл','Ошибка',MB_Ok or MB_IconError);
  exit;
end;

[Teilon]

здесь банальная ошибка:
try
begin
Temp.SaveToFile('result.txt');
finally
Temp.Free();
end;
для чего лишний begin в procedure TForm1.Button2Click(Sender: TObject);??

[Пепел Феникса]

здесь банальная ошибка:

это не ошибка, просто лишний текст.