begin
st:=':';
with Memo1.Lines do
for i:=Count-1 downto 0 do
begin
s:=Strings;
ndx:=Pos(st,s);
if ndx>0 then
begin
Delete(s,ndx-1,1);
Insert(s,ndx,'-');
end;
end;
end;
процедуры Delete и Insert при работе со строками
Мне необходимо сделать простую манипуляцию.. . Стереть из строки один знак и вставить на его место другой.. . И всё было бы нормально, если б не микрософт и борланд..).
в цикле с memo подчеркнутые команды не выполняются, ибо подразумевают другие параметры. Можно ли как-нибудь всё-таки осуществить задуманное?..).
Код:
в цикле с memo подчеркнутые команды не выполняются, ибо подразумевают другие параметры. Можно ли как-нибудь всё-таки осуществить задуманное?..).
после Insert допиши:
Strings:=s;
Strings:=s;
[QUOTE=zercalo]Можно ли как-нибудь всё-таки осуществить задуманное?..).[/QUOTE]
Над задуманным тобой способом думай сам. Есть более простой путь:
Над задуманным тобой способом думай сам. Есть более простой путь:
Код:
s := StringReplace(s, st, '-', []);
2hardcase
нет.. . Тут дело в том, что при в данном случае процедуры Delete и Insert не проходят компиляцию в том виде, в котором представил я.. . У процедуры Delete почему то вместо трех параметров становится возможным записать только один (саму строку). Типа Delete(Index:Integer).. А у Insert остается возможным два параметра Insert(Index:Integer,S:Integer).. . Поэтому, я просто не могу сделать то что хочу в цикле Memo
2Freeman
Эта одна строчка заменяет все мои потуги и прокатывает в цикле Memo.. . Спасибо, я не знал этой процедуры.. . Единственно, я не понял последнего параметра этой процедуры, определяемого как Flags:TReplaceFlags . Но всё работает..
нет.. . Тут дело в том, что при в данном случае процедуры Delete и Insert не проходят компиляцию в том виде, в котором представил я.. . У процедуры Delete почему то вместо трех параметров становится возможным записать только один (саму строку). Типа Delete(Index:Integer).. А у Insert остается возможным два параметра Insert(Index:Integer,S:Integer).. . Поэтому, я просто не могу сделать то что хочу в цикле Memo
2Freeman
Эта одна строчка заменяет все мои потуги и прокатывает в цикле Memo.. . Спасибо, я не знал этой процедуры.. . Единственно, я не понял последнего параметра этой процедуры, определяемого как Flags:TReplaceFlags . Но всё работает..
у тебя произошло замещение оласти видимости на TStrings в экземпляре Lines, так как ты написал with конструкцию и Insert и Delete ссылались на методы Memo1.Lines, а не на традиционные паскалёвские функции.
Используй полные имена
Код:
System.Delete( s, ndx - 1, 1 );
System.Insert( s, ndx, '-' );
System.Insert( s, ndx, '-' );
2hardcase
2Sagittarius
спасибо.. . А System обязательно учту на будущее.. .
2Sagittarius
спасибо.. . А System обязательно учту на будущее.. .