Savedialog Frage

[Apollonius]

Im Prinzip haben alle Vorgänger einen Code nahe der Lösung gepostet:
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

[Luckie]

Zitat von Apollonius:

Im Prinzip haben alle Vorgänger einen Code nahe der Lösung gepostet:
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 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

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