Что за ошибка такая

← →
Тимоха (2007-08-12 10:34) [0]

Добрый день мастера !
при компиляции ошибка:

Access violation at adress 00ACB815 in module dcc70.dll.
Write of addres 00000010.

зы. Это демка ABMRU.DPR

← →
Riply © (2007-08-12 10:40) [1]

Не туда обратились, куда можно :)
P.S. Прошу любить и жаловать. На первых порах, ты с ней будешь встречаться чаще чем с другими :)

← →
Anatoly Podgoretsky © (2007-08-12 10:42) [2]

Удаляй для начала кривые компоненты, у тебя явно зоопарк на палитре.

← →
Тимоха (2007-08-12 10:42) [3]

Я же не изменял файл, только хотел проверить что она (демка делает) ?

← →
Тимоха (2007-08-12 10:46) [4]

> Удаляй для начала кривые компоненты, у тебя явно зоопарк
> на палитре.

Я еще не добавлял чужих компонентов, все что было с инсталяцией дельфи и только.

← →
Anatoly Podgoretsky © (2007-08-12 10:48) [5]

> Тимоха (12.08.2007 10:46:04) [4]

В этом случае кривая инсталяция или кривой этот ABMRU.DPR

← →
Тимоха (2007-08-12 10:50) [6]

program ABMRU;

uses
Forms,
main in "main.pas" {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

← →
Тимоха (2007-08-12 10:50) [7]

{
NOTE: To add more items to the reopen menu simply add more actions to the
ReopenActionList and set their OnExecute event to the ReopenActionExecute
event.

Also, in order for the settings file to be saved you must run and
close this application at least one time. So, to see the reopen
items working run the application and shut it down first then use
it normally.

ISSUE: If you allow customizations in your application there is potential
for the user to delete the Reopen menu item or the Open toolbar button
which this application does NOT take into account.
}
unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, StdActns, ToolWin, ActnMan, ActnCtrls, ActnMenus,
StdCtrls, ImgList, ComCtrls, ExtActns, XPStyleActnCtrls, BandActn,
StdStyleActnCtrls;

type
TForm1 = class(TForm)
ActionManager1: TActionManager;
ActionMainMenuBar1: TActionMainMenuBar;
Action1: TAction;
Action2: TAction;
Action3: TAction;
ReopenActionList1: TActionList;
Action4: TAction;
Action5: TAction;
Action6: TAction;
Action7: TAction;
Action8: TAction;
ActionToolBar1: TActionToolBar;
ImageList1: TImageList;
FileOpen1: TFileOpen;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditUndo1: TEditUndo;
EditDelete1: TEditDelete;
RichEditBold1: TRichEditBold;
RichEditItalic1: TRichEditItalic;
RichEditUnderline1: TRichEditUnderline;
RichEditStrikeOut1: TRichEditStrikeOut;
RichEditBullets1: TRichEditBullets;
RichEditAlignLeft1: TRichEditAlignLeft;
RichEditAlignRight1: TRichEditAlignRight;
RichEditAlignCenter1: TRichEditAlignCenter;
SearchFind1: TSearchFind;
SearchFindNext1: TSearchFindNext;
SearchReplace1: TSearchReplace;
SearchFindFirst1: TSearchFindFirst;
FileSaveAs1: TFileSaveAs;
FilePrintSetup1: TFilePrintSetup;
FileRun1: TFileRun;
FileExit1: TFileExit;
Action9: TAction;
RichEdit1: TRichEdit;
CustomizeActionBars1: TCustomizeActionBars;
procedure FormCreate(Sender: TObject);
procedure FileOpen1Accept(Sender: TObject);
procedure ReopenActionExecute(Sender: TObject);
private
{ Private declarations }
ReopenMenuItem: TActionClientItem;
OpenToolItem: TActionClientItem;
procedure FindReopenMenuItem(AClient: TActionClient);
procedure FindOpenToolItem(AClient: TActionClient);
procedure UpdateReopenItem(ReopenItem: TActionClientItem);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FindReopenMenuItem(AClient: TActionClient);
begin
// Find the Reopen item by looking at the item caption
if AClient is TActionClientItem then
if Pos("Reopen...", TActionClientItem(AClient).Caption) <> 0 then
ReopenMenuItem := AClient as TActionClientItem
end;

procedure TForm1.FindOpenToolItem(AClient: TActionClient);
begin
// Find the Open item by looking at the item caption
if AClient is TActionClientItem then
if Pos("Open", TActionClientItem(AClient).Caption) <> 0 then
OpenToolItem := AClient as TActionClientItem;
end;

procedure TForm1.FormCreate(Sender: TObject);

procedure SetupItemCaptions(AnItem: TActionClientItem);
var
I: Integer;
begin
if Assigned(AnItem) then
for I := 0 to AnItem.Items.Count - 1 do
TCustomAction(ReopenActionList1.Actions[I]).Caption :=
Copy(AnItem.Items[I].Caption, 5, MaxInt);
end;

begin
RichEdit1.Align := alClient;
// Find the Reopen... menu item on the ActionMainMenu
ActionManager1.ActionBars.IterateClients(ActionManager1.ActionBars[0].Items,
FindReopenMenuItem);
// Find the Reopen... menu item on the ActionToolBar
ActionManager1.ActionBars.IterateClients(ActionManager1.ActionBars[1].Items,
FindOpenToolItem);
// Set the captions of the actions since they are used to open the file
SetupItemCaptions(ReopenMenuItem);
SetupItemCaptions(OpenToolItem);
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
var
I: Integer;
Found: Boolean;
begin
Found := False;
// If the filename is already in the list then do not add it again
for I := 0 to ReopenActionList1.ActionCount - 1 do
if CompareText(TCustomAction(ReopenActionList1.Actions[I]).Caption,
FileOpen1.Dialog.FileName) = 0 then
begin
Found := True;
break;
end;
if not Found then
begin
// Update the Reopen menu...
UpdateReopenItem(ReopenMenuItem);
UpdateReopenItem(OpenToolItem);
end;
// ...then actually open the file
RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
end;

procedure TForm1.UpdateReopenItem(ReopenItem: TActionClientItem);
var
I: Integer;
begin
if ReopenItem = nil then exit;
// Add thew new filename to the beginning of the list and move other items down
for I := ReopenActionList1.ActionCount - 1 downto 0 do
if I = 0 then
TCustomAction(ReopenActionList1.Actions[I]).Caption := FileOpen1.Dialog.FileName
else
TCustomAction(ReopenActionList1.Actions[I]).Caption :=
TCustomAction(ReopenActionList1.Actions[I - 1]).Caption;
// Add new items to the reopen item if necessary
if ReopenItem.Items.Count < ReopenActionList1.ActionCount then
ReopenItem.Items.Add;
// Set the item captions by appending a number for use as the shortcut
// This change will cause them to be streamed which allows us to store the
// filenames when the application is shutdown
for I := 0 to ReopenItem.Items.Count - 1 do
begin
ReopenItem.Items[I].Action := ReopenActionList1.Actions[I];
ReopenItem.Items[I].Caption := Format("&%d: %s", [I,
TCustomAction(ReopenActionList1.Actions[I]).Caption]);
end;
end;

procedure TForm1.ReopenActionExecute(Sender: TObject);
begin
// Set the reopened filename into the FileOpen action and call OnAccept to open the file normally
FileOpen1.Dialog.FileName := (Sender as TCustomAction).Caption;
// Execute the action"s OnAccept logic
FileOpen1.OnAccept(nil);
end;

end.

Тимоха (12.08.07 10:34)

случай видимо уникален.
с установлеными DSpeedUP, DDevExt, RxLib, JVCL, glscene и ещё много чего, всё нормально компилиться и запускается.

Что за ошибка такая Найти похожие ветки