Registriert seit: 17. Feb 2010
15 Beiträge
|
Re: Open Dialog autoconnect
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
|
|
Zitat
|