Filnavn uden sti

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpstr: String;
  extlen: Integer;
begin
  tmpstr := ExtractFileName(Table1Titel.Text);
  ShowMessage('Med efternavn: ' + tmpstr);
  extlen := Length(tmpstr) - Pos(ExtractFileExt(tmpstr),tmpstr);
  Delete(tmpstr, Pos(ExtractFileExt(tmpstr),tmpstr),extlen+1);
  ShowMessage('Uden efternavn: ' + tmpstr);
end;

Snowball

Får kun Messageboxe frem. Prøver at arbejede videre på dit forslag

Du skal selvfølgelig lige sætte Table1Titel.text:=(dlgOpenPicture.FileName); ind inden du kører mit eksempel sådan så der også står det rigtige i Table1Titel

Snowball

Ok Prøver

Får altså stadig hele stien med:

Table1Titel.text:=(dlgOpenPicture.FileName);
tmpstr := ExtractFileName(Table1Titel.Text);
// ShowMessage('Med efternavn: ' + tmpstr);
  extlen := Length(tmpstr) - Pos(ExtractFileExt(tmpstr),tmpstr);
  Delete(tmpstr, Pos(ExtractFileExt(tmpstr),tmpstr),extlen+1);
  //ShowMessage('Uden efternavn: ' + tmpstr);

Hvis jeg kører nedenstående, så står der "Clipboard1" i boksen til sidst. Prøv og kør eksemplet helt som vist nedenfor. Hvis det virker der men ikke i dit eget program, så må det være fordi du ikke får en korrekt værdi ind fra din opendialog

var
  tmpstr: String;
  extlen: Integer;
begin
  Table1Titel.Text := 'C:\nu\Clipboard1.jpg';
  tmpstr := ExtractFileName(Table1Titel.Text);
  extlen := Length(tmpstr) - Pos(ExtractFileExt(tmpstr),tmpstr);
  Delete(tmpstr, Pos(ExtractFileExt(tmpstr),tmpstr),extlen+1);
  ShowMessage(tmpstr);
end;

Snowball

Nu har jeg fundet ud af det

Tak skal du have!!