Hallo Leute!
Mein kleines Projekt stürzt nach rund 1min ab, nachdem ich versucht habe eine Datei zu öffnen. Kann mir jemand den Grund sagen?
Würde mich echt freuen. Ich bekomm schon graue Haare. Der Fehler sollte bei Open Dialog sein, denn ohne das öffnen einer Datei läuft es.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute()
then begin
end;
end;
end.
Danke schon mal !!