Сообщений в теме: 3

[erkanat79]

Добрый день! У меня возникла проблема не могу понять как можно подсчитать кол-ко символов и заменить их.
Например: Кому отправил #fio################ в город #gorod#######.
здесь надо заменить Fio b Gorod а символ # это кол-во букв которыми будеть заменять. и притом что знаки могут быть разные. заранее благодарю.

P.S. Delphi 7 среда разработки

[vladimir55]

Добрый день! У меня возникла проблема не могу понять как можно подсчитать кол-ко символов и заменить их.
Например: Кому отправил #fio################ в город #gorod#######.
здесь надо заменить Fio b Gorod а символ # это кол-во букв которыми будеть заменять. и притом что знаки могут быть разные. заранее благодарю.

P.S. Delphi 7 среда разработки

есть функции Pos() и Length(). Первая возвращает позицию подстроки, а вторая возвращает длину строки.

[RiP]

Добрый день! У меня возникла проблема не могу понять как можно подсчитать кол-ко символов и заменить их.
Например: Кому отправил #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;

[рюмка]

что вернёт result:=x=y;
если x не равен y. помогите плз, лень tp качать?
зы: вопрос снят, проверила....

Сообщение отредактировал рюмка: 19.11.2011, 05:12:32