pobranie nazwy pliku?

Jak pobrać nazwę pliku ale bez ROZSZERZENIA !???

moze

uses StrUtils;

LeftStr(ExtractFileName(nazwa),Length(nazwa)-4);

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

gizmo napisał:
Jak pobrać nazwę pliku ale bez ROZSZERZENIA !???

np dla wlasnego pliku EXE.
var
EXEk: String;
S: String;
begin
EXEk := ExtractFileName(Application.ExeName);

S := Copy(EXEk, 1, Length(EXEk)-4);
end;--[ Delphi... i wszystko jasne ]

uses StrUtils;

function ExtractFileNameWOExtension(FileName : string) : string;
begin
Result:=LeftStr(FileName, Length(FileName)-Pos('.',ReverseString(FileName)));
end;

zadziala nawet jak roszerzenie bedzie mialo nie 3 znaki--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1