Форум: "Начинающим";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Вниззамена букв Найти похожие ветки
← →
replace (2005-12-08 23:50) [0]
function Transliterate(s: string): string;
var
i: integer;
t: string;
begin
for i:=1 to Length(s) do
begin
case s[i] of
"c": T:=T+"j";
"j": T:=T+"c";
else t:=t+s[i];
end;
end;
Result:=t;
end;
procedure TfmMain.Button1Click(Sender: TObject);
var
i: integer;
begin
TntMemo2.Lines.Clear;
for i:=0 to TntMemo1.Lines.Count-1 do
TntMemo2.Lines.Add(Transliterate(TntMemo1.Lines.Strings[i]));
end;
как можна доделать этот код чтоб "с" и "j" заменялись не в TntMemo2 а на TntMemo1. вроде, нашол в слове "с" земеняем его на "j" , а когда в слове находем "j"земеняем на "с". вожно то что кроме этих букв все остались на месте.
← →
Anatoly Podgoretsky © (2005-12-09 00:13) [1]Как то смутно задан вопрос.
Может тебе надо это
TntMemo1.text := Transliterate(TntMemo1.text);
← →
replace (2005-12-09 00:41) [2]проблема в том,что ваша строка помимо с "c" и "j" заменяет и другие буквы .самими собой,но повторном записе некоторые Unicodovskiye буквы не правильно отображаются
а мне нужно чтоб на Мемо земенялись только "c" и "j".
← →
Германн © (2005-12-09 01:03) [3]Ну если пример в посте [0] работает так как нужно, то может поможет замена
> for i:=0 to TntMemo1.Lines.Count-1 do
> TntMemo2.Lines.Add(Transliterate(TntMemo1.Lines.Strings[i]));
>
наfor i:=0 to TntMemo1.Lines.Count-1 do
?
TntMemo1.Lines[i]:=Transliterate(TntMemo1.Lines.Strings[i]);
Не работал никогда ни с Unicode, ни c "динамит-компонентами". :-)
← →
replace (2005-12-09 01:53) [4]нет,то же результат.заменяет все буквы.вот то что пишем
http://aprel-az.com/forum/uploads/post-15-1134081432.gif
после клика
http://aprel-az.com/forum/uploads/post-15-1134081962.gif
ещо раз подчеркиваю.проблема в том,что ваша строка помимо с "c" и "j" заменяет и другие буквы ,самими собой.но повторном записе некоторые Unicodovskiye буквы не правильно отображаются
а мне нужно чтоб на Мемо земенялись только "c" и "j".
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c