[Noooob]

Помогите пожалуйста. Как мне удалить символы после последнего \. Если так:

Код:

1 2 3

S := Edit1.Text;  P := Pos('\', S);  Edit1.Text := Copy(S, 0, P);

то удаляет все после первого.

[NumLock]

Код:

1	function StrRScan(const Str: PChar; Chr: Char): PChar;