Delphi'сты Помогите..., Маленький вопрос... Поделиться Опции

[Synergy]

Дпоустим у меня есть строка 'Filename.mp3'.
Как мне из нее получить строку 'Filename'.

То есть нормальным языком убрать расширение файла...

Пмогите... Заранее спасибо...

[azt59]

Приведённый пример ищет в строке точку, и Возвращает всё что до неё.

Код

function DelEx(source:string):string;
var
 i:integer;
begin
 i:=1;
 Result:='';

while source[i]<>'.' do
begin
 Result:=Result+source[i];
 inc(i);
 if i>=length(source) then Result:=source;
end;


end;

[AgentSlash]

А можна и проще:

var s,result:string;
begin
s:='test.mp3';
if pos('.',s)<>0 then
result:=copy(s,1,length(s)-4);
end;

или так:

s:='test.mp3';
if pos('.',s)<>0 then
delete(s,length(s)-3,4);

[Random]

Кому совсем лень, пишем ChangeFileExt(FileName,'');
и подключаем модуль SysUtils если надо.