|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Anton Martynov 2:5080/1003 09 Jun 2003 12:00:01
To : All
Subject : TABs -> Spaces
--------------------------------------------------------------------------------
привет всем...
боже мой. устал, наверное... в отпуск..........
есть файл. текстовый. кое-где в строках встречаются TABы,
которые мне надо преобразовать в пробелы... пользуюсь функцией:
function ReplaceTabs(s: string): string;
var
SpaceCount: integer;
Spaces: string;
NextTabPosition: integer;
i: integer;
ss: string;
j: integer;
begin
Result:=s;
if (Pos(#9, s) = 0) then
Exit;
ss:='';
for i:=1 to Length(s) do begin
if (s[i] <> #9) then begin
ss:=ss + s[i];
continue;
end;
NextTabPosition:=9 - (i mod 8) + i;
SpaceCount:=NextTabPosition - i;
Spaces:='';
for j:=1 to SpaceCount do
Spaces:=Spaces + ' ';
ss:=ss + Spaces;
end;
Result:=ss;
end;
и чего у меня не так? почему текст, который я получаю выглядит
совсем не так в стандартном TMemo, как если бы я не конвертил
строки этой функцией...
устал, наверное...
--
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
