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... :roll:

Grüße, NeoDeluxe 8)

[MrSpock]

Hallo NeoDeluxe,

prinzipiell so, wie du es gemacht hast.

Was steht denn in sFileName?

[NeoDeluxe]

Zitat:

Zitat von MrSpock

Was steht denn in sFileName?

:wiejetzt: Das ist ne Variable, die am Angang deklariert wird :idea:
Falsch oder??? :roll:

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 :hi:

[Luckie]

Zitat:

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:

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 :stupid:

[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... :wink:

Grüße, NeoDeluxe 8)

[Daniel B]

Hai Sharky,

Zitat:

Zitat von Sharky

z.B.:

Delphi-Quellcode:

Code, Code, Code

Akzeptiert. ;) :oops:

Grüsse, Daniel :hi: