поиск и замена текста в RichEdit

[Vasya]

Здравствуйте ув. спецы, помогите пожалуйста решить такую задачку: Створити текстовий редактор, в котрому паралельно з набором тексту, автоматично виконується перевірка тексту на наявність пробілів після знаків пунктуації в внесення відповідних правок.

[wiskas]

тут тебе никто готовый редактор невикинет напсаный таким путем. могут толька лишь намекнуть, подсказать к и что делать.

могу подсказать немного, ибо преставляю как оно должно выглядить, и думаю это просто будет. Вот чем ты можешь воспользоватся:

1. редактор запехни в RichEdit1
2. тебе нада будет воспользоватся onChange
3. чтоб не перебирать весь масив строк - воспользуйся проверкой символа, перед вводимой кореткой и вставляй туда пробелы, буквы, короче то что тебе нада.

Все это вроде нетрудно, сможешь разобратся.

[Vasya]

Вот написал код для поиска : и проверки нахождения пробела перед и после него, если пробел перед ним то удаляем его, если после : отсутствует то вставляем. Вот только что то он не работает ошибка Access Violation. Подскажите пожалуйста где я ошибся? Ниже приведен код:

procedure search (str : array of char);
var
str1: array of string;
i, index: integer;
begin
str1[i]:=Form1.RichEdit1.Text;
for i:= 0 to Form1.RichEdit1.Lines.Count do
begin
index:=pos (str[i], str1[i]);
if index <> 0 then
index:=index+1;
if str1[index] <> ' ' then
insert (' ',str1[index],index)
else
index:=index-1;
if str1[index] = ' ' then
delete (str1[i], index, index);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str: array of char;
i:integer;
begin
str[i]:=':';
search (str[i]);
end;

[Vasya]

Help me!

[zetrix]

Не паникуй
1) Что-то уж больно сложная процедура поиска
2) Отлаживал код? (F7) Где ошибка именно?

Вот, я тут немного накодил:

S  - строка которую ищем;
S1 - на что заменяем
procedure search(S,S1:string);
var str:string;
    i,index:integer;
begin
for i:=0 to Form1.RichEdit1.Lines.Count-1 do //Count-1 - обрати внимание!!! 
 begin
 str:=Form1.RichEdit1.Lines.Strings[i];
 while pos(S,str)<>0 do
  begin
  index:=pos(S,str);
  delete(str,index,length(S));
  insert(S1,str,index);
  end;
 Form1.RichEdit1.Lines.Strings[i]:=str;
 end;
end;

Вызываем так: search('!','?');
Все восклицательные знаки заменятся знаками вопроса. (Конечно вместо '!' можно написать 'fg;lkgk')

[Vasya]

Спасибо Zetrix

1) Что-то уж больно сложная процедура поиска

Может я не совсем понятно описал суть вопроса, но тут ведь еще нужно анализировать есть ли пробел перед и после знаком препинания, если перед знаком - то пробел удалить, если отсутствует после знака то вставить.

2) Отлаживал код? (F7) Где ошибка именно?

программа на выполнение запускается, а при вызове обработчика нажатия кнопки появляется сообщение о ошибке.
Если можно подскажите пожалуйста как решить эту задачку

[Vasya]

Вот дописал код:

procedure search_space (index:integer);
var
str1,str,space: string;
begin
space:=' ';
str1:=Form1.RichEdit1.Lines.Strings[index-1];
if str1 = space then //если пробел перед : то удаляем его
begin
delete(str,index-1,1);
end;
str1:=Form1.RichEdit1.Lines.Strings[index+1];
if str1 <> space then // если пробела после : нет то вставляем
begin
insert (space,str,index+1);
end;
end;

procedure search(S:string);
var str:string;
i,index:integer;
begin
for i:=0 to Form1.RichEdit1.Lines.Count-1 do
begin
str:=Form1.RichEdit1.Lines.Strings[i];
while pos(S,str)<>0 do
begin
index:=pos(S,str);
Search_space (index);
end;
Form1.RichEdit1.Lines.Strings[i]:=str;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
search (':');
end;

Но видно я где то ошибаюсь, программа просто зависает при нажатии кнопки . Подскажите в чем ошибка?

[Vasya]

Уже дым с ушей идет,а ниче не выходит, при вызове процедуры просто вешается прога и усе. Помооогитеее!!!

[Malice]

Сообщение от zetrix

Вот, я тут немного накодил:
Вызываем так: search('!','?');
Все восклицательные знаки заменятся знаками вопроса. (Конечно вместо '!' можно написать 'fg;lkgk')

Немного не правильный подход, возможна неправильная замена, связанная с многократным поиском в одной и той же строке..
Например, текст был такой:

ппппппопапапапапа

вызвали так:
search('попа','о');
Результат, совсем не тот..

2Vasya: Естественно вешается, ты же делаешь

 
while pos(S,str)<>0 do begin
index:=pos(S,str);
Search_space (index);
end;

т.е. пока есть символ : пытаться удалить пробелы.. Он же останется на месте, да и search_space результат все равно никуда не сохраняет.
Попробуй просто взять без переделок функцию Search (c) zetrix и вызови ее так:

 
search (' :',':');
search (':','@f@ ');
search ('  ',' ');
search ('@f@',':');

Выглядит прикольно, но работать будет

[Vasya]

Malice пасибо, как это я сам не додул . Прикольно и просто
а что означают эти символы '@f@ '?