2 Einträge statt 1 mit Items.Append und OpenDialog

[Gustav Gans]

Code: Alles auswählen

procedure TForm1.OpenDialog1Close(Sender: TObject);
begin
  Form1.CheckListBox1.Items.Append(Form1.OpenDialog1.FileName);
end;

Das ist meine Prozedur, die auch an sich funktioniert, aber irgendwie bekommt die CheckListBox1 immer 2 Einträge gleichzeitig spendiert. Wenn ich im OpenDialog z.B. "test" eingebe und auf OK gehe, dann landet in der CheckListBox 2 mal "test".

Ich habe als Ereignis für die Prozedur "OnClose" genommen vom OpenDialog.

Was nun?

[Christian]

Kann sein, das OnClose fälschlicherweise 2x aufgerufen wird. Mach doch bitte nen Bugreport dazu und viele Wege führen nach rom. Ich weiss nicht warum du das auf eine solche "komische" art machst

Im Normalfall funktioniert

if OpenDialog1.execute then
CheckListBox1.Items.Append(OpenDialog1.FileName);

perfekt wie geagt weiss ja nicht was du machen willst

[Gustav Gans]

Danke. Ich glaube, jetzt habe ich den Fehler verstanden. Ich habe nämlich noch das hier drin (damit rufe ich den Dialog auf):

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.OpenDialog1.Execute;
end;

Das wird wohl der Fehler sein. Aber mit welchem Befehl ruft man denn stattdessen auf Buttonklick einen OpenDialog auf?

Nachtrag: Jetzt habe ich's kapiert:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form1.OpenDialog1.Execute then
    Form1.CheckListBox1.Items.Append(Form1.Opendialog1.FileName);
end;

Klappt! Aber, was ich noch nicht erwähnt habe: Ich bekomme nach wie vor eine Exception, wenn ich das Programm mit F9 erstelle und dann noch im Debugger im Programm den OpenDialog aufrufe. Dann hängt das Programm und ich muss den Debugger anhalten.
Wenn ich aber nun ins Ausgabeverzeichnis gehe und dort die erstellte .exe aufrufe, kommt keine Exception. Ist das ein Bug, oder habe ich da wieder irgendwo was falsch gemacht?

[af0815]

Klappt! Aber, was ich noch nicht erwähnt habe: Ich bekomme nach wie vor eine Exception, wenn ich das Programm mit F9 erstelle und dann noch im Debugger im Programm den OpenDialog aufrufe. Dann hängt das Programm und ich muss den Debugger anhalten.
Wenn ich aber nun ins Ausgabeverzeichnis gehe und dort die erstellte .exe aufrufe, kommt keine Exception. Ist das ein Bug, oder habe ich da wieder irgendwo was falsch gemacht?

Wenn es OHNE debugger (direkt von der Console gestartet) funktioniert, es gibt da (schön formuliert) noch einige Ungereimtheiten mit den gdb (Debugger) und den Dialogen. Scheint aber in der Bug-Liste irgendwo weit hinten zu liegen.

Momentan liegt da eher Quantität als Qualität bei den Entwicklern an.

[Christian]

Momentan liegt da eher Quantität als Qualität bei den Entwicklern an.

Die Exceptions kommen vom gdb nicht von Lazarus

[af0815]

Aber der gdb ist eingebaut worden, weiters sind die Dialoge auch Bestandteil des Systems.

Wenn die Dialoge also mit dem gdb nicht funktionieren, dann ist entweder der gdb auszutauschen oder die Dialoge oder ein vernünftiger Workaround zu finden. Es ist mühsam jedesmal zuz hinterfragen, ist ein Problem von mir oder von Lazarus.

[Christian]

Das find ich jetzt ungerecht. Man bedenke Lazarus ist OpenSource und wird freiwillig und in Freizeit betreut. Bezahls mir und ich seh zu das ich die Probleme finde und eliminiere egal ob in gdb oder der LCL oder Freepascal.

Kannst auch Borland oder Codegear das Geld in den Rachen werfen aber ich bezweifel das du da viel weniger Probleme haben wirst.

Ebenso kannst du gern einen neuen Debugger schreiben oder den angefangenen fertig entwickeln.

Aber Meckerei über die Arbeit der anderen an der man sich kostenlos bereichert find ich ungerecht.

[af0815]

EOT hier. Geht bei Dies&Das weiter