Einzelnen Beitrag anzeigen

bigmatze

Registriert seit: 29. Jan 2008
11 Beiträge
 
#1

Zugriffsverletzung TStringList

  Alt 24. Mai 2009, 13:24
Hallo!

Ich war mir nicht sicher in welches SubForum ich das hier posten sollte, also wenns flasch ist bitte nicht schimpfen und verschieben^^

Ich hab folgendes Problem bei diesem Code:

Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  k: tstringlist;
  ini: Tinifile;
  pfad: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ini.readsection('Pfad',k);
  Pfad := k[1];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'Pfad.ini');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ini.Free;
end;

end.
Ich hab in das Verzeichnis von demprojekt eine Pfad.ini datei gelegt, die aus diesen 2 Zeilen besteht:

[Pfad]
c:\xyz\qod\irgendwas.exe=1

Ich bekomme keinen Fehler wenn ich das ganze kompiliere, aber wenn ich dann auf den Button klicke, der das ganze Auslösen soll, bekomme ich eine Zugriffsverletzung-Fehlermeldung...
Woran könnte das liegen?^^

Danke schonmal im Voraus!
  Mit Zitat antworten Zitat