OpenDialog FileName?

[Nalincah]

Gibt Verzeichnis zurück

Delphi-Quellcode:

function Verzeichnis(Filename:String):String;
var
  i :integer;
begin
  for i := length(Filename) downto 0 do
  begin
    if Filename[i] = '\' then
      break;
  end;
  Result := copy(Filename,1,i);
end;

Gibt Dateinamen zurück (Ext := true --> Mit Extension)

Delphi-Quellcode:

function Dateiname(Filename:String; Ext:Boolean):String;
var
  i : integer;
  datei:string;
begin
  if Ext = true then
  begin
    for i := length(Filename) downto 0 do
    begin
      if Filename[i] = '\' then
        break;
      result := copy(Filename,i,length(Filename));
    end;
  end else
  if Ext = false then
  begin
    for i := length(Filename) downto 0 do
    begin
      if Filename[i] = '\' then
        break;
      datei := copy(Filename,i,length(Filename));
      Result := copy(datei,1,pos('.',datei)-1);
    end;
  end;
end;

oder mach doch mit dem Filename ne DownTo schleife bist nen Punkt findest und dann weißt du doch wo die extension anfängt