Zugriffsverletzung

[milos]

Delphi-Quellcode:

unit Unit2;

interface

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

type
  Tconfig = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  config: Tconfig;

implementation

{$R *.DFM}

procedure Tconfig.Button1Click(Sender: TObject);
begin
IF FileExists('PFAD') THEN
Memo1.Lines.SaveToFile('PFAD');

IF FileExists('PFAD') THEN
button1.visible := true;
end;

procedure Tconfig.Button2Click(Sender: TObject);
begin
IF FileExists('PFAD') THEN
Memo1.Lines.LoadFromFile('htdocs\include\config.php');

IF FileExists('PFAD') THEN
button1.visible := false;
end;

procedure Tconfig.FormCreate(Sender: TObject);
begin
IF FileExists('PFAD') THEN
Memo1.Lines.LoadFromFile('PFAD')

IF FileExists('PFAD') THEN
button1.visible := true;
end;

end.