удаление текста с конца

[Lonix]

Я знаю как удалить с начала, допутим слово "Привет" воспользуемся так
edit1.Text:=copy(edit1.Text,1,3) то получится "При", а как сделать так чтобы отсчет шел с конца допустим слово "керамика</td>" мне надо удалить с конца </td>, если удалять как первым способом нельзя потому что слова меняются а в конце </td> это не меняется как эот можно удалить?

[Квэнди]

s,s1:string;
i:integer;
begin
for i:=length(s) downto 1 do
s1:=s[i];
.....
end;

[Lonix]

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

s,s1:string;
i:integer;
begin
for i:=length(s) downto 1 do
s1:=s[i];
.....
end;

а можно чуть подробнее а то я новичёк в этом деле. Допустим на форме у нас кнопка и одно поле edit. Можно расписать. Плиззз.

[_SERGEYX_]

Здесь много разных способов...
Например, так

var s: string;
begin
   s := Edit.Text;
   Edit.Text := Copy(s, 1, Length(s) - 5);
end;

или так

function StrReplace(const Str, Str1, Str2: string): string;
// str - исходная строка
// str1 - подстрока, подлежащая замене
// str2 - заменяющая строка
var
   P, L: Integer;
begin
   Result := str;
   L := Length(Str1);
   repeat
      P := Pos(Str1, Result);
      if P > 0 then
      begin
         Delete(Result, P, L);
         Insert(Str2, Result, P);
      end;
   until P = 0;
end;
//пример
 edit.Text := StrReplace(edit.Text, '</td>', '');

А вообще есть написанные процедуры и готовые компоненты для удаления HTML-тегов из текста

[Квэнди]

Сообщение от Lonix

а можно чуть подробнее а то я новичёк в этом деле. Допустим на форме у нас кнопка и одно поле edit. Можно расписать. Плиззз.

этот код просто переворачивает слово, далее делайте с ним все что уже нужно

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=Edit1.Text;
delete(s,pos('<',s),length(s)+1-pos('<',s));
edit1.Text:=s;
end;

[Xandr]

Так смысл, нужно удалять слово с конца или теги, как в примере.
Если теги то это на много проще.

[Andrei]

Сообщение от Lonix

Я знаю как удалить с начала, допутим слово "Привет" воспользуемся так
edit1.Text:=copy(edit1.Text,1,3) то получится "При", а как сделать так чтобы отсчет шел с конца допустим слово "керамика</td>" мне надо удалить с конца </td>, если удалять как первым способом нельзя потому что слова меняются а в конце </td> это не меняется как эот можно удалить?

Если твое </td> встречается в строке только один раз и только в конце, тогда

edit1.Text:=StringReplace(edit1.Tex t,'</td>','',[]);