Guten Morgen,

Ich bin gerade dabei einen Button zu schreiben, der einen OpenDialog öffnet...

markieren

Delphi-Quellcode:

procedure TFEinstellungen.BSuchenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then EPfad.Text:=OpenDialog1.FileName;
end;

... aber das geht nicht.
Ich habe das Gefühl irgendetwas ziemlich einfaches falsch gemacht zu haben, aber ich weis einfach nicht mehr weiter.

Danke im Voraus

Zitat von pseudo-nym:

... aber das geht nicht. ...

WAS geht denn nicht?
Eigentlich sieht der Code okay aus.

Ich hab gerade deinen Code getestet, und er klappt bei mir...
Ich kann mich nur sharky anschließen

Also ich weis zwar nicht was "EPfad" ist aber wenn du ein Label hinstezt
dann kannst du ja das schreiben:
If OpenDialog1.Execute then Label1.Caption := OpenDialog1.FileName;

Ja, ihr hab wohl recht. - Es geht.
Obwohl ich mir nicht erklären kann, warum ich 2 Stunden an genau diesen Code rumgebastelt hab.

Trotzdem danke.

2 Stunden? Naja wenigstens geht's jetzt...

Andere Möglichkeit:

markieren

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
with OpenDialog1 do begin
Execute;
Caption := OpenDialog1.FileName;
end
end;

Zitat von PierreB:

Andere Möglichkeit:

markieren

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
with OpenDialog1 do begin
Execute;
Caption := OpenDialog1.FileName;
end
end;

Was willst du damit bezwecken?

Zitat:

Was willst du damit bezwecken?

Nichts. Als ich diesen Post geschrieben habe war ich noch in der Annahme das sein obiger Code bei ihm nicht zu laufen scheint, deshalb habe ich ihm eine Alternative geschrieben. Ich bitte dies zu entschuldigen, falls es dir nicht passt.

@PierreB's-Code:
Wieso machst du eine with-Direktive und schreibst dann erst wieder OpenDialog1.FileName?