Edit - Компоненты Delphi

PAVEL315 · 10.03.2007, 18:58

Как найти в editе какой либо символ? Например если в слове "ПРИВЕТ" есть буква "В" то i:=1

AntiGluk · 10.03.2007, 19:00

Не понял, в слове Привет - "В" - не 1 а 4 буква!

zetrix · 10.03.2007, 19:42

Цитата:

если в слове "ПРИВЕТ" есть буква "В" то i:=1

if pos('ПРИВЕТ','В') then i:=1;

PAVEL315 · 10.03.2007, 20:20

Про переменную,это так, для примера!
А как тогда вставить в Edit уже изменённое слово, например слово "GHBDTN" заменить на "ПРИВЕТ"?

zetrix · 10.03.2007, 20:52

Т.е заменить все англ. буквами согласно раскладке? Создаём 2 строки: в одной QWERTYU... в другой ЙЦУКЕНГ... потом в нужной строке берём i-ый символ, ищем его в одной из строк, находим символ в другой строке на этой же позиции и заменяем. (заменяем сначала delete потом insert)

Тебе полный код привести смены раскладки в строке?

BOBAH13 · 10.03.2007, 22:07

вообщем самый реальный способ ))) сам постоянно использую

пример поиска
ansipos(uppercase('тексn'),uppercas e('текст поиск'));

пример замены анологичен
stringreplace('текст','текст для изменния','текст изменения',[rfIgnoreCase]);

все ползуйтесь на здоровье

да забыл, такие способы игнорируют регистр букв

zetrix · 11.03.2007, 08:09

Цитата:

stringreplace

Хм... Сам не знал о такой функции. Спасибо

PAVEL315 · 11.03.2007, 19:35

Попробую с strignreplace!

Что-то не получается. Как делать перебор букв?

BOBAH13 · 11.03.2007, 20:08

var
i:integer;
s:string;
begin
s:='текст';
for i:= 1 to length(s) do
begin
s[i]='Ваша буква, под индексом i';
end;

PAVEL315 · 11.03.2007, 20:16

Я так и делал... Ну ладно, щас ещё раз попробую

10.03.2007, 18:58	#1
PAVEL315 Форумчанин Подтвердите свой е-майл Регистрация: 18.11.2006 Сообщений: 172	Edit Как найти в editе какой либо символ? Например если в слове "ПРИВЕТ" есть буква "В" то i:=1 дык!

10.03.2007, 20:20	#4
PAVEL315 Форумчанин Подтвердите свой е-майл Регистрация: 18.11.2006 Сообщений: 172	Про переменную,это так, для примера! А как тогда вставить в Edit уже изменённое слово, например слово "GHBDTN" заменить на "ПРИВЕТ"? дык! Последний раз редактировалось PAVEL315; 10.03.2007 в 20:23. Причина: Уточнение

10.03.2007, 22:07	#6
BOBAH13 Android Developer Старожил Подтвердите свой е-майл Регистрация: 19.02.2007 Сообщений: 3,708	вообщем самый реальный способ ))) сам постоянно использую пример поиска ansipos(uppercase('тексn'),uppercas e('текст поиск')); пример замены анологичен stringreplace('текст','текст для изменния','текст изменения',[rfIgnoreCase]); все ползуйтесь на здоровье да забыл, такие способы игнорируют регистр букв Home \| Android for food \| XWindows Dock \| github

11.03.2007, 19:35	#8
PAVEL315 Форумчанин Подтвердите свой е-майл Регистрация: 18.11.2006 Сообщений: 172	Попробую с strignreplace! Что-то не получается. Как делать перебор букв? дык! Последний раз редактировалось zetrix; 11.03.2007 в 20:27.

11.03.2007, 20:08	#9
BOBAH13 Android Developer Старожил Подтвердите свой е-майл Регистрация: 19.02.2007 Сообщений: 3,708	var i:integer; s:string; begin s:='текст'; for i:= 1 to length(s) do begin s[i]='Ваша буква, под индексом i'; end; Home \| Android for food \| XWindows Dock \| github

10.03.2007, 19:00	#2
AntiGluk Новичок Джуниор Регистрация: 10.03.2007 Сообщений: 1	Не понял, в слове Привет - "В" - не 1 а 4 буква!

10.03.2007, 20:52	#5
zetrix Delphi/C++/C# Участник клуба Регистрация: 29.10.2006 Сообщений: 1,972	Т.е заменить все англ. буквами согласно раскладке? Создаём 2 строки: в одной QWERTYU... в другой ЙЦУКЕНГ... потом в нужной строке берём i-ый символ, ищем его в одной из строк, находим символ в другой строке на этой же позиции и заменяем. (заменяем сначала delete потом insert) Тебе полный код привести смены раскладки в строке?

11.03.2007, 20:16	#10
PAVEL315 Форумчанин Подтвердите свой е-майл Регистрация: 18.11.2006 Сообщений: 172	Я так и делал... Ну ладно, щас ещё раз попробую дык!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Edit	Editor	Общие вопросы Delphi	10	25.06.2008 19:52
edit	moysey	Помощь студентам	2	26.11.2007 18:40
Edit!	Abbatik	Помощь студентам	7	25.11.2007 15:39
Edit	niva622	Помощь студентам	10	06.09.2007 17:36