Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Replace 'À....þ' with АБВ.....абв.... / 10 сообщений из 10, страница 1 из 1
29.05.2003, 11:06
    #32171562
vergil
vergil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
Дорогие друзя, помогите Replace '192....254' with 'АБВ.....абв....'
в Memo в Delphi6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 11:17
    #32171576
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
А по конкретней ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 11:37
    #32171621
vergil
vergil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
имею символ скажем - 192 и хо4у Replace with bukwa - A
Izvinite za plahoi russkii ezik !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 11:53
    #32171654
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
Код: 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, 12:02
    #32171672
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
А непроще Chr()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 12:09
    #32171684
vergil
vergil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
Извините за мою невежество,
но можете написат то4ную процедура за Button.OnClick
каторая Replace '192' with 'А' в Memo1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 12:52
    #32171744
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
> JibSkeart
А не проще было челу ответить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 12:56
    #32171751
vergil
vergil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
S - заменит с чего в project?
с Memo1.Text ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2003, 13:01
    #32171762
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
гы, ну канечно:

Код: 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:11
    #32171777
vergil
vergil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Replace 'À....þ' with АБВ.....абв....
Очен благодарен за ваше содействие.
Желаю Вам всево добрава !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Replace 'À....þ' with АБВ.....абв.... / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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