EInvalidPointer при закрытие проекта даже если отсутствует код...

[munthrekosh]

Каждый раз как я закрываю проект появляется ошибка:


Даже при том что отсутствует какой либо код. Он раньше был, но я его абсолютно весь закомментировал.

unit Unit1;

interface

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


type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Bevel1: TBevel;
    Memo1: TMemo;
    Button5: TButton;
    Button6: TButton;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    {procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);}
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{procedure Open1(FileName:PANSIString; ObjName:TMemo);
  stdcall; external 'Project3.dll';
procedure Save1(FileName:PANSIString; ObjName:TMemo);
  stdcall; external 'Project3.dll';
function Double(N: Integer): Integer;
  stdcall; external 'Project2.dll';
function Triple (N: Integer): Integer;
  stdcall; external 'Project2.dll';
function DoubleString(S: string; Separator: Char): string;
  stdcall; external 'Project2.dll';
function DoublePChar(BufferIn, BufferOut: PChar;
  BufferOutLen: Cardinal; Separator: Char): LongBool;
  stdcall; external 'Project2.dll';



procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Double(StrToInt(Edit1.Text)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := IntToStr(Triple(StrToInt(Edit2.Text)));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit3.Text:=DoubleString(Edit3.Text, ';');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  Buffer: string;
begin
  SetLength (Buffer, 1000);
  if DoublePChar(PChar(Edit3.Text),PChar(Buffer),1000,'/')
    then
      Edit4.Text:= Buffer;

end;

procedure TForm1.Button5Click(Sender: TObject);
var
  s:ANSIstring;
begin
  s:=Edit5.Text;
  Open1(PANSIString(s),Memo1);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  s:ANSIstring;
begin
  s:=Edit6.Text;
  Save1(PANSIString(s),Memo1);
end;}

end.

Работаю с двумя DLL.

library Project1;

uses
  ShareMem,
  Windows,
  SysUtils,
  Classes,Controls, StdCtrls, ExtCtrls;

{$R *.res}

{function Triple (C: Char): Longint; stdcall; overload;
begin
  MessageBox (0, 'Вызвана функция Triple',
    'First DLL', mb_OK);
  Result := Ord (C) * 3;
end;

function Triple (N: Longint): Longint; stdcall; overload;
begin
//  ShowMessage ('Triple function called');
  MessageBox (0, 'Вызвана функция Triple',
    'First DLL', mb_OK);
  Result := N * 3;
end;

function Double (N: Longint): Longint; stdcall;
begin
  MessageBox (0, 'Вызвана функция Double',
    'First DLL', mb_OK);
  Result := N * 2;
end;

function DoubleString (s: string; Separat: Char): string; stdcall;
begin
  Result:= s+Separat+s;
end;

function DoublePChar (BufferIn, BufferOut: PChar;
  BufferOutLen: Cardinal; Separator: Char): LongBool; stdcall;
var
  SepStr: array [0..1] of Char;
begin
  if BufferOutLen > StrLen (BufferIn) * 2 + 2 then
  begin
    StrCopy (BufferOut, BufferIn);
    SepStr [0] := Separator;
    SepStr [1] := #0;
    StrCat (BufferOut, SepStr);
    StrCat (BufferOut, BufferIn);
    Result := True;
  end
  else
    Result := False;
end;

exports
  Triple (N: Longint),
  Triple (C: Char) name 'TripleChar',
  Double, DoubleString, DoublePChar; }

end.

library Project1;

uses
  ShareMem,
  Windows,
  SysUtils,
  Classes,Controls, StdCtrls, ExtCtrls;

{$R *.res}

{procedure Open1(FileName:PANSIString; ObjName:TMemo);stdcall; overload;
begin
  If ANSIString(FileName)=''
    then
      begin
        MessageBox (0, 'Введите пожалуйста имя файла','MyDLL', mb_OK);
        EXIT;
      end;
  If FileExists(ANSIString(FileName))
    then
      ObjName.Lines.LoadFromFile(ANSIString(FileName))
    else
      MessageBox (0, 'Файл не найден','MyDLL', mb_OK);
end;

procedure Save1(FileName:PANSIString; ObjName:TMemo);stdcall; overload;
begin
  ObjName.Lines.SaveToFile(ANSIString(FileName));
end;

exports
  Open1 (F:PANSIString; O:TMemo),
  Save1 (F:PANSIString; O:TMemo);}
end.

Помогите пожалуйста разобраться.

[GunSmoker]

Invalid pointer означает попытку выполнения операции освобождения памяти по недействительному указателю. Может ты мусор туда передаёшь, может указатель испорчен, а может ты дважды освобождаешь один и тот же блок.

Менеджер памяти в отладочном режиме тебе в помощь.

P.S. "ShareMem", "FileName:PANSIString; ObjName:TMemo" - рыдаю в истерике. Чему после такого вообще удивляться?

[munthrekosh]

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

P.S. "ShareMem", "FileName:PANSIString; ObjName:TMemo" - рыдаю в истерике. Чему после такого вообще удивляться?

Не мои свистопляски. Препод: "Так будет лучше!"

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

Invalid pointer означает попытку выполнения операции освобождения памяти по недействительному указателю. Может ты мусор туда передаёшь, может указатель испорчен, а может ты дважды освобождаешь один и тот же блок.

Итак всё это знаю

P.S. Чушь и абсурдность ситуации ещё в том, что я сей час переписал всё с нуля, делая при этом те же действия, и всё работает нормально, ошибки нет!

[GunSmoker]

Где-то забыл код, старые dcu, не пересобрался код и т.п....