OpenDialog öffnen

[pseudo-nym]

Guten Morgen,

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

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

[Sharky]

Zitat:

Zitat von pseudo-nym

... aber das geht nicht. ...

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

[mOzZzI]

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

[Valle]

Also ich weis zwar nicht was "EPfad" :gruebel: ist aber wenn du ein Label hinstezt
dann kannst du ja das schreiben:

Delphi-Quellcode:

If OpenDialog1.Execute then Label1.Caption := OpenDialog1.FileName;

[pseudo-nym]

:shock:
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.

:-D

[mOzZzI]

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

[PierreB]

Andere Möglichkeit:

Delphi-Quellcode:

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

[Helmi]

Zitat:

Zitat von PierreB

Andere Möglichkeit:

Delphi-Quellcode:

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

Was willst du damit bezwecken?

[PierreB]

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. :roll:

[faux]

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

[PierreB]

Zitat:

Zitat von faux

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

Das ist wohl menschliches Versagen...

//Edit: Ist es des weiteren nicht auch völlig egal ? :gruebel: Hauptsache man hat immer was worüber man sich aufregen kann. :stupid:

[Thanatos81]

Zitat:

Zitat von PierreB

//Edit: Ist es des weiteren nicht auch völlig egal ? :gruebel: Hauptsache man hat immer was worüber man sich aufregen kann. :stupid:

Will mich nicht über deinen Code aufregen, aber ein klitzekleiner Hinweis meinerseits: Der Vorteil eines

Delphi-Quellcode:

if OpenDialog1.Execute then
  begin
    //mach was auch immer
  end;

ist numal das er nur ausgeführt wird, wenn im OpenDialog auch Öffnen betätigt wurde aber nicht, wenn auf Abbrechen geklickt wurde. Das geht bei deinem Konstrukt leider verloren.