разделители триад

← →
dim2001 © (2006-06-13 14:54) [0]

уважаемые спецы!! меня заклинило, как убрать символ разделителя триад " при считывании из файла переменной типа string

← →
Александр Иванов © (2006-06-13 15:04) [1]

replace

← →
dim2001 © (2006-06-13 15:08) [2]

мне бы попроще я нашел номер этого символа AnsiPos() а какой функцией его экстракт забыл

← →
novill © (2006-06-13 15:26) [3]

что может быть проще Stringreplace?

← →
dim2001 © (2006-06-13 16:10) [4]

попробовал
mys:=StringReplace( mystr,"""","",[ ]);
где mystr числа вроде 11"222.33 mys=1122233 съедает точку
что за ерунда ??? точно сегодня 13-е .......

← →
tButton © (2006-06-13 16:33) [5]

n:=1; while n<length(s) do begin if s[n]="""" then begin delete(s, n, 1) continue; end; n:=n+1; end;
должно работать

проверил, работает:
m:="11"#39"222.33";
ShowMessage(StringReplace(m, #39, "", []));

> n:=1;
> while n<length(s) do begin
> if s[n]="""" then begin
> delete(s, n, 1)
> continue;
> end;
> n:=n+1;
> end;
> должно работать

не должно, если символ """" - первый или последний в строке, и в других случаях также черевато ошибкой.

n:=1;
while n <= length (s) do
if s[n] = """" then
delete (s, n, 1)
else inc (n);

n := 1;
for i := 1 to length (s) do begin
if s[i] <> """" then
s[n] := s[i]
else dec (n);
inc (n);
end;
SetLength (s, n-1);

разделители триад Найти похожие ветки