работа с текстом string

[Квэнди]

а не проще исключить из строки результат ExtractFileExt

[Квэнди]

кстати и не зря в этой функции (extractfileext) используется LastDelimiter
ведь очень удобная вещь, зачем городить....

LastDelimiter Routine

Returns the byte index of the last character that matches any character in a specified set of delimiters.

Unit
SysUtils

Syntax


[Delphi] function LastDelimiter(const Delimiters: string; const S: string): Integer;


Description
Call LastDelimiter to locate the last delimiter in a specified string.

Delimiters is a string where each character is a valid delimiter.

S is the string to search for delimiters.

For example, the line

MyIndex := LastDelimiter('\.:','c:\filename.ex t'); // Delphi

[mutabor]

Сообщение от Квэнди

а не проще исключить из строки результат ExtractFileExt

А как это сделать? В смысле удалить из строки определенную подстроку?

Serge_Bliznykov, PosEx описана в модуле StrUtils, в D5 нет ни того ни другого.
Добавляй в проект и пользуйся (лучше конечно хотя бы D7 поставить, и та устарела уже)

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
begin
  if Offset = 1 then
    Result := Pos(SubStr, S)
  else
  begin
    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S) - LenSubStr + 1;
    while I <= Len do
    begin
      if S[I] = SubStr[1] then
      begin
        X := 1;
        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
          Inc(X);
        if (X = LenSubStr) then
        begin
          Result := I;
          exit;
        end;
      end;
      Inc(I);
    end;
    Result := 0;
  end;
end;

[Квэнди]

var s,s1,sr:string;
begin
s:='name.jpg';
s1:=extractfileext(s);
delete(s,pos(s1,s),length(s1));
showmessage(s);
end;