Сортировка в строке

← →
Diman (2004-08-10 15:01) [0]

Как в строку формата "11111<TAB><TAB><TAB>55555<TAB>77777
ПРИВЕСТИ К ФОРМАТУ "11111 0 0 0 55555 0 77777", т.е. найти TAB в строке и заменить его на 0 ?

← →
46_55_41_44 © (2004-08-10 15:39) [1]

Вставь эту функцию в свой проект!

function ReplaceStr(const S, Srch, Replace: string): string;
var
I: Integer;
Source: string;
begin
Source := S;
Result := "";
repeat
I := Pos(Srch, Source);
if I > 0 then begin
Result := Result + Copy(Source, 1, I - 1) + Replace;
Source := Copy(Source, I + Length(Srch), MaxInt);
end
else Result := Result + Source;
until I <= 0;
end;

а потом:
S2 := ReplaceStr(S, #9, " 0"); где s2 твоя форматированная строка, а S неформатированная!

← →
Sandman25 © (2004-08-10 15:40) [2]

StringReplace

← →
Наталия © (2004-08-10 15:40) [3]

StringReplace ?

← →
46_55_41_44 © (2004-08-10 15:41) [4]

Да кстати Диман...
#9 адо заменить именно на <пробел><0>, чтобы вся строка пришла к формату: <число><пробел><число>...<пробел><число>

← →
Diman (2004-08-10 16:09) [5]

Спасибо Fuad! Щас попробую.

ну-ну... Дерзай...

← →
Diman (2004-08-10 16:34) [7]

Получилось!!!
Еще раз BIG THANKS!

Рад за тебя...

P.S. Да кстати поздравляю, ты кажется женишься!

Сортировка в строке Найти похожие ветки