Как распарсить строку (WideString)?

← →
dr D (2006-01-11 14:22) [0]

Если быть точным, то из строки надо удалить определённые символы.
Символы зазаны юникодовскими кодами.
Как имея строку и код символа удалить этот символ из стоки? Подскажите пожалуйста.

← →
Digitman © (2006-01-11 14:39) [1]

в простейшей реализации :

1. Преобразовать WideString-оригинал в AnsiString-оригинал

2. Использовать StringReplace для удаления нужных символов из AnsiString-оригинала

3. После удаления выполнить обратное преобразование AnsiString-результата в WideString-результат

← →
begin...end © (2006-01-11 14:44) [2]

> dr D (11.01.06 14:22)
> Как имея строку и код символа удалить этот символ из стоки?

Примерно так же, как и в случае строк, состоящих из однобайтовых символов. Например, у процедуры Delete и функции Pos есть WideChar-версии, поэтому они прекрасно работают с WideString.

var
WS: WideString;
I: Integer;
begin
for I := Length(WS) downto 1 do
if WS[I] = WideChar(код_символа) then
Delete(WS, I, 1)
end

← →
dr D (2006-01-11 15:12) [3]

Спасибо.
Сделал так:
PosInStr:=Pos(WideString("#AA"),MyWSting);
Delete(MyWSting,PosInStr,1);

Как распарсить строку (WideString)? Найти похожие ветки