Jeżeli chcę obciąć ścieżkę dostępu do pliku i pozostawić samą jego nazwę, robię ExtractFileName(nazwa_pliku: string).
A co zrobić, jeżeli chcę obciąć rozszerzenie pliku?
0
0
procedure TForm1.FormCreate(Sender: TObject);
var
S, T : String;
P, I : Integer;
begin
S := 'Dokument.txt';
P := Pos('.', S);
Delete(S, P, Length(s));
ShowMessage(s);
end;
UWAGA!!! W NAZWIE PLIKU NIE MOZE BYC KROPEK!!!
P.S. mam nadzieje, ze bedziesz umial przetworzyc to na swoje potrzeby:)
0
ChangeFileExt(ExtractFileName('C:\katalog\jakis.plik.rozszerzenie'),'')
i mogą być kropki.