ЗАменить буквы

@EFEFEFEF · Регистрация: 12.10.2009

Author24 — интернет-сервис помощи студентам

Нужно заменить букву опрделенную на другую делаю так..

Delphi

s:=Memo1.text;
   ShowMessage('  '+s);
    for i:=0 to Length(s) do
    begin
 if s[i]='9' then begin s[i]:='6'; continue; end;
end;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Добавлено через 9 минут

Сообщение от EFEFEFEF

Нужно заменить букву опрделенную на другую делаю так..

Delphi

s:=Memo1.text;
   ShowMessage('  '+s);
    for i:=0 to Length(s) do
    begin
 if s[i]='9' then begin s[i]:='6'; continue; end;
end;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Но он не хочет изменять

@Lord_Voodoo · 09.12.2009, 16:53

EFEFEFEF, так вы бы потом Memo присваивали строку после конвертации и тогда все изменения отображались бы

@Grass-snake · 09.12.2009, 18:44

ага. и еще если хочешь все это можно заменить в одну строку, вот так:

Delphi

1	Memo1.text:= StringReplace(Memo1.text,'9','6',[rfReplaceAll]);

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	09.12.2009, 16:53	2
	EFEFEFEF, так вы бы потом Memo присваивали строку после конвертации и тогда все изменения отображались бы 0

	09.12.2009, 18:44