Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.011 c
2-1133993645
RX
2005-12-08 01:14
2005.12.25
Assignment to FOR-Loop variable n


4-1129997833
Боян Георгиев
2005-10-22 20:17
2005.12.25
Как установить и сменить резолюцию


2-1133879662
VIB
2005-12-06 17:34
2005.12.25
Работа с большими таблицами


4-1129213569
IceBeerg
2005-10-13 18:26
2005.12.25
"Перезапуск" иконок в трее


1-1133332283
Piton X
2005-11-30 09:31
2005.12.25
Вопрос о сортировке значений.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский