Скачать: CL | DM;

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

← →
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;
должно работать

---

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

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

---

← →
TUser ©   (2006-06-13 18:07) [7]

> 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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c