Problem mit Code

[mOzZzI]

Aloha, und guten Morgen!!^^

kurze Frage ich habe mir hier einen Code zusammengebastelt, der alles macht
was ich ihm sage, aber nachdem er das gemacht hat, zeigt er das Prog nichtmehr an :shock:
Hier:

Delphi-Quellcode:

procedure TForm1.Neu1Click(Sender: TObject);
var ini: TiniFile;
begin
 if not OpenDialog1.Execute then //nix
 else
  begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Einstellungen\'+'config.dat');
   try
     with ini do
      begin
        WriteString('FILENAME', 'SpeedButton1', OpenDialog1.FileName);
      end;
   finally
    Free;
  end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ForceDirectories(ExtractFilePath(ParamStr(0))+'Einstellungen');
end;

[dizzy]

Delphi-Quellcode:

procedure TForm1.Neu1Click(Sender: TObject);
var ini: TiniFile;
begin
 if not OpenDialog1.Execute then //nix
 else
  begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Einstellungen\'+'config.dat');
   try
     with ini do
      begin
        WriteString('FILENAME', 'SpeedButton1', OpenDialog1.FileName);
      end;
   finally
    Free; // <------
  end;
end;
end;

Dein "Free" steht ausserhalb des "with ini do"-Blocks, und somit steht dort eigentlich "self.Free". "self" ist in diesem Fall "TForm1" ;)
Einfach das "Free;" durch "ini.Free;" ersetzen.

[mOzZzI]

jap, thx, das wars...

mmmhh...kann ich jetzt hier noch ne Frage stellen?, ne lieber net ich mach
einen neuen Thread auf^^ :stupid: