|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Anton Martynov 2:5080/1003 19 Jun 2003 10:50:20
To : Alexander Chelmodeev
Subject : Re: TABs -> Spaces
--------------------------------------------------------------------------------
"Alexander Chelmodeev" <Alexander.Chelmodeev@p5.f17.n5062.z2.fidonet.org>
wrote in message news:1055978159@p5.f17.n5062.z2.fidonet.ftn...
> >> Function tab2space(s:String; i:integer):string;
> >> begin
> >> result:=copy(s,1,i-1)+copy(' ',1,9-(i mod 8));
> >> result:=result+copy(s, i+1, maxint);
> >> end;
>
> AM> привет...
>
> AM> не, александр, это не катит. в твоем примере неаакуратная замена
> AM> происходит. я сделал так:
>
> AM> function ReplaceTabs(s: string): string;
> AM> var
>
> Hаконец-то я собрался проверить работу твоей функции (свою-то я давно
> проверил). Оказалось, что твоя где-то глючит. Вроде бы на строках, где
более
> одного символа табуляции и строка начинается с него же.
>
> Вот вызов моей функции:
>
> While Pos(#9, stroka)>0 do stroka:=Tab2Space(stroka, Pos(#9, stroka));
привет, александр...
сорри. невнимателно смотрел твой код. прошу прощения.
не заметил
copy(' ',1,9-(i mod 8));
точнее - глянув на строку пробелов - подумал, что ты просто меняешь
#9 на 8 пробелов.
--
enjoy with a poison...
injected with a poison ... d909 (ua)
--- ifmail v.2.15dev5
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
