![Фотография](https://vse.kz/public/style_images/osnovnoi34/profile/default_large.png)
Delphi строкаподсчитать кол-ко символов и заменить их
#1
Отправлено 26.08.2011, 14:42:12
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Например: Кому отправил #fio################ в город #gorod#######.
здесь надо заменить Fio b Gorod а символ # это кол-во букв которыми будеть заменять. и притом что знаки могут быть разные. заранее благодарю.
P.S. Delphi 7 среда разработки
#2
Отправлено 26.08.2011, 14:57:41
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
есть функции Pos() и Length(). Первая возвращает позицию подстроки, а вторая возвращает длину строки.Добрый день! У меня возникла проблема не могу понять как можно подсчитать кол-ко символов и заменить их.
Например: Кому отправил #fio################ в город #gorod#######.
здесь надо заменить Fio b Gorod а символ # это кол-во букв которыми будеть заменять. и притом что знаки могут быть разные. заранее благодарю.
P.S. Delphi 7 среда разработки
#3
Отправлено 31.08.2011, 14:14:29
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Добрый день! У меня возникла проблема не могу понять как можно подсчитать кол-ко символов и заменить их.
Например: Кому отправил #fio################ в город #gorod#######.
здесь надо заменить Fio b Gorod а символ # это кол-во букв которыми будеть заменять. и притом что знаки могут быть разные. заранее благодарю.
P.S. Delphi 7 среда разработки
function getCountAndReplace(var AValue:string;ASeparator:Char):Integer;
var
i:Integer;
begin
Result := 0;
for i:=1 to Length(AValue) do
if (AValue[i]<>ASeparator) then
begin
inc(Result);
AValue[i] := ASeparator;
end;
end;
Количество пользователей, читающих эту тему: 1
пользователей: 0, неизвестных прохожих: 1, скрытых пользователей: 0