Filename without extension

hi,

How do I get the Filename without the extension from the opendialog1.Filename

So I get Label.Caption := ...
Thanks
hellfire052497Asked:
Who is Participating?
 
interConnect With a Mentor Commented:
Hi,
This is the code fragment

var
  L : integer;
  S: string;
begin
...
  S := OpenDialog1.FileName;
  L := Length(S);
  while (L > 0) and ( S[L] <> '.') do  Dec(L);
  if L <> 0 then SetLength(S, L-1);
  Label1.Caption := S;
..
end;
Regards
Igor  
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.