Savedialog Frage

[Apollonius]

Im Prinzip haben alle Vorgänger einen Code nahe der Lösung gepostet:

Delphi-Quellcode:

savedialog1.filename:=listbox1.Items[0];//hier das, was in der ersten Zeile steht, sonst eben ein anderes Item.

Also, ein bisschen extrapolieren täte dir gut :warn:

[Luckie]

Zitat:

Zitat von Apollonius

Im Prinzip haben alle Vorgänger einen Code nahe der Lösung gepostet:

Delphi-Quellcode:

savedialog1.filename:=listbox1.Items[0];//hier das, was in der ersten Zeile steht, sonst eben ein anderes Item.

Genau das habe ich doch in meinem korrigiertem Code gepostet. :?

[Apollonius]

Tschuldingung. [Haarspalterei] Auch wenns bei dir ein Opendialog war, obwohl man doch deutlich sieht, dass es ein savedialog sein soll. [/Haarspalterei]

[darkblog]

geht alles nicht :/

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.Execute then
savedialog1.filename:=listbox1.Items[0];
  ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

[Apollonius]

Den Filename musst du natürlich vor dem Aufruf von execute setzen:

Delphi-Quellcode:

savedialog1.filename:=Listbox1.Items[0];
if savedialog1.execute then
  //Aktion

[jfheins]

Zitat:

Zitat von darkblog

geht alles nicht :/

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.Execute then
savedialog1.filename:=listbox1.Items[0];
  ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

Probiers mal so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
savedialog1.filename:=listbox1.Items[0];
if savedialog1.Execute then
  ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

Kaum macht man's richtig, schon geht's :stupid:

(Wenn du das Feld vorbelegen möchtest, wäre es sinnvol, dies vor dem Anzeigen mittels .Execute() zu tun ;)