| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поиск слова в тексте и удаление его !!! [D7, WinXP]

Страницы:   < 1 2 >

Николай,гер ©   (2005-06-12 01:23:00) 

Доброго времени суток мне нужна программа которая  бы удаляла слова  
в фаиле , которые присутсвуют там неколько раз. Я тут попытался сам такое написать но оно, как вы уже догодалисьс не работает. Может подскажет кто где здесь  ошибка ?
код :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
text,Stext ,aus   : String;
Mystart, Myend: integer;
Found         : integer;
gk             :TSearchTypes;
textlenge ,i,t     :integer;
begin
text:=Richedit1.Text;
aus:='';

textlenge:= length(text);
for i:=0 to textlenge do

begin
t:=0;
repeat
t:=t+1;
until  (' '= Copy(text,t,1));

stext:= Copy (text, 0 ,t);
aus:=aus+stext+ ' ';
text := Copy (text,length(stext),textlenge );
Richedit1.Text:=text;
MyStart:=0;
MyEnd := Length(Richedit1.text);
for mystart:=0 to myend do
begin
Found :=Richedit1.FindText(Stext,MyStart,Myend,gk);
if (Found <>-1 ) then

begin

Richedit1.SelStart:=Found;
Richedit1.SelLength:=Length(Stext);
Delete(Text,Found,Length(Stext));
end;

end;
Richedit2.Text:= aus;
end;
end;

---

Плохиш   (2005-06-12 10:43:00) [21]

>Николай,гер   (12.06.05 10:21) [3]

А посмотреть в справке, какие параметры требует функция StringReplace, ну совсем западло?

---

Николай,гер   (2005-06-12 10:21:00) [22]

Спасибо за ответы , но у меня Дельфи на этой фунции StringReplace(); ругатся начинает :)

"[Error] Unit1.pas(93): Not enough actual parameters"

какие параметры я должен ей передавать ?

заранее спасибо

---

ssk   (2005-06-12 02:10:00) [23]

брррр........!
может лучше сделать так?

var
 s: string;

RichEdit1.Lines.LoadFromFile();
s:= RichEdit1.Text;
s := StringReplace();
RichEdit1.Text := s;
RichEdit1.Lines.SaveToFile();

---

Германн   (2005-06-12 02:08:00) [24]

Ну на вскидку.
Позиция 0 в строке всегда (в паскале) имела особое значение. Реально не относящееся к "содержимому строки".

---

Страницы:   < 1 2 >

Наверх