Name einer einer Datei herausfinden...

[NeoDeluxe]

Servus.
Ich will mit dem OpenDialog denNamen einer Datei herrausfinden. ich glabu das geht so:

Code:

Label1.Caption:=ExtractFileName(sFileName);

Wobei sFileName ein String ist Aber irgendwie klapp s bei mir net, oda es ist eindeutig falsch.
Fräge=> Wie kann ich die Name der Datei in einen Label imprtieren???
Selbstverständlich über OpenDialog.Execute...

Grüße, NeoDeluxe 8)

[MrSpock]

Hallo NeoDeluxe,

prinzipiell so, wie du es gemacht hast.

Was steht denn in sFileName?

[NeoDeluxe]

Zitat von MrSpock:

Was steht denn in sFileName?

Das ist ne Variable, die am Angang deklariert wird
Falsch oder???

Grüße, NeoDeluxe 8)

[Sharky]

Geht bei mir ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sFileName  : String;
begin
 if (OpenDialog1.Execute) then
  begin
   sFileName := OpenDialog1.FileName;
   Label1.Caption := ExtractFileName(sFileName);
  end;
end;

[Daniel B]

Hai Sharky,

wozu denn noch zwischenspeichern?!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Label1.Caption := ExtractFileName(OpenDialog1.FileName);
  end;
end;

Grüsse, Daniel

[Luckie]

Zitat von Daniel B:

Hai Sharky,

wozu denn noch zwischenspeichern?!

Um Neo nicht zu verwirrren, er hatte es ja so probiert. Weil es übersichtlicher ist. Weil er noch was mit sFilename vor hat. ...

[Sharky]

Zitat von Daniel B:

Hai Sharky,

wozu denn noch zwischenspeichern?!

....

Hai Daniel B.

hätte ich ja auch nicht so gemacht. Aber ich denke Neo möchte mit der ausgewählten Datei mehr machen als nur den Namen in einem Label anzuzeigen.

z.B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sFileName: string;
begin
 if (OpenDialog1.Execute) then
  begin
   sFileName := OpenDialog1.FileName;
   if MessageDlg('Soll die Datei '
    + sFileName
    + ' in der verknüpften Anwendung geöffnet werden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
     shellexecute(handle, 'open', PChar(sFileName), nil, nil, sw_show);
    end;
   Label1.Caption := ExtractFileName(sFileName);
  end;
end;

Auch hier müsste es zwar nicht sein. Macht den Code aber IMHO übersichtlicher

[EDIT-ON] Und wieder hat einer gepostet als ich noch getippt habe *snief* [EDIT-OFF

[NeoDeluxe]

Jo, ich hatte alles ausser

Code:

sFileName:=OpenDialog.FileName;

Ansonsten alles sowie s war...

Grüße, NeoDeluxe 8)

[Daniel B]

Hai Sharky,

Zitat von Sharky:

z.B.:Code, Code, Code

Akzeptiert.

Grüsse, Daniel