Thema: Delphi Open Dialog autoconnect

Einzelnen Beitrag anzeigen

SnakeSchitt

Registriert seit: 17. Feb 2010
15 Beiträge
 
#4

Re: Open Dialog autoconnect

  Alt 26. Mär 2010, 15:10
hier mal mein Quelltext:

Delphi-Quellcode:
procedure TNeuenbeitraganlegen.Button_beitrag_freistellungClick(
  Sender: TObject);
var FileName:OleVariant;
  vWhat, vBookmark:OleVariant;
  p1, p2, p3, t1, t2, t3, u1, u2, u3 : integer;
  s, titel, untertitel, titelneu1, titelneu2, untertitelneu1, untertitelneu2 : string;
begin
  if OpenDialog1.Execute then
    FileName := OpenDialog1.FileName
  else
    exit;
...
Nur den Ausschlaggebenden Teil ...

Oder sollte ich einfach nur opendialog1.execute nehmen?

Ohne die if anweisung
  Mit Zitat antworten Zitat