ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Replace 'À....þ' with АБВ.....абв....
10 сообщений из 10, страница 1 из 1
Replace 'À....þ' with АБВ.....абв....
    #32171562
vergil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vergil
Участник
Дорогие друзя, помогите Replace '192....254' with 'АБВ.....абв....'
в Memo в Delphi6
...
Рейтинг: 0 / 0
29.05.2003, 11:06
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171576
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
А по конкретней ?
...
Рейтинг: 0 / 0
29.05.2003, 11:17
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171621
vergil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vergil
Участник
имею символ скажем - 192 и хо4у Replace with bukwa - A
Izvinite za plahoi russkii ezik !
...
Рейтинг: 0 / 0
29.05.2003, 11:37
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171654
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
var Count :Integer;
begin
  for Count :=  1  to Length (S) do
    case Ord (S[Count])
       192  : S[Count] := 'А';
      else S[Count] := '?';
    end;
end;
...
Рейтинг: 0 / 0
29.05.2003, 11:53
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171672
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
А непроще Chr()
...
Рейтинг: 0 / 0
29.05.2003, 12:02
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171684
vergil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vergil
Участник
Извините за мою невежество,
но можете написат то4ную процедура за Button.OnClick
каторая Replace '192' with 'А' в Memo1
...
Рейтинг: 0 / 0
29.05.2003, 12:09
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171744
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
> JibSkeart
А не проще было челу ответить?
...
Рейтинг: 0 / 0
29.05.2003, 12:52
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171751
vergil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vergil
Участник
S - заменит с чего в project?
с Memo1.Text ли?
...
Рейтинг: 0 / 0
29.05.2003, 12:56
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171762
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
гы, ну канечно:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var Count :Integer;
 S :string;
begin
  S := Edit1.Text;
  for Count :=  1  to Length (S) do
    case Ord (S[Count]) of
       192  : S[Count] := 'А';
//       192  : S[Count] := chr (КодСимовола);
      else S[Count] := '?';
    end;
end;
...
Рейтинг: 0 / 0
29.05.2003, 13:01
| Ответить | Цитировать | Написать  
Replace 'À....þ' with АБВ.....абв....
    #32171777
vergil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vergil
Участник
Очен благодарен за ваше содействие.
Желаю Вам всево добрава !
...
Рейтинг: 0 / 0
29.05.2003, 13:11
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Replace 'À....þ' with АБВ.....абв....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]