Wyszukiwanie słów w RichEdit DELPHI

Witam
Mam następujący problem:
Na formie w delphi mam komponent RichEdit1, Button4, Button5, oraz Edit1.Text
Moj program ma odczytywać plik tekstowy (klikając w Button4), wyświetlać zawartość w polu RichEdit1, oraz po kliknięciu w przycisk Button5 ma na sztywno znalezc dane słowo np 'nowy' (zakładając ze te slowo jest na 100% załadowane w RichEdit1), oraz ma te słowo zastąpić słowem wpisanym w Edi1.Text i na końcu zapisać jako nowy plik

Z odczytaniem i załadowanie pliku już sobie poradziłem, tzn: użyłem procedury:

procedure TForm1.Button4Click(Sender: TObject);
var
InFile:TextFile;
Data:string;
begin
RichEdit1.Lines.Clear();
if OpenDialog1.Execute then
Button4.Caption:='Plik otwarty';
begin
AssignFile(InFile, OpenDialog1.FileName);
Reset(InFile);
while not EOF(InFile) do
begin
Readln(InFile, Data);
RichEdit1.Lines.Add(Data);
end;
CloseFile(InFile);
end;

Teraz tylko nie wiem, jakiej użyć procedury by program znalazł na sztywno określone słowo, oraz zastąpił je słowem z Edit1 i zapisał na dysku jako nowy plik...

Prosze o pomoc
Pozdrawiam

nic prostszego...
używasz funkcji pos...
Robisz mniej więcej tak:

var
a:integer;
s:string;
begin
s:=richedit1.text;
while pos('nowy',s)<>0 do
begin
a:=pos('nowy',s);
delete(s,a,4);
insert(edit1.text,s,a);
end;
richedit1.text:=s;
end;

Musisz tylko uważać, bo jak np. 'nowy' będzie podciągiem to też go zamieni

czy ta procedura, będzie tez działała, jesli załaduje do pola richedit1 plik tekstowy ktory ma np 100 linijek tekstu?

mozesz mi wyjasnić co oznacza '4' w Delete? długość łancucha?

adiek napisał(a)

czy ta procedura, będzie tez działała, jesli załaduje do pola richedit1 plik tekstowy ktory ma np 100 linijek tekstu?

Oczywiście ;) Sam przetestuj jak nie wierzysz ;)

Większość źródeł podaje, iż długość zmiennej typu String (a więc de facto AnsiString lub WideString - w zależności od wersji Delphi) jest ograniczona jedynie dostępną pamięcią, z tym jednak bywa różnie - Windows na przykład domyślnie pozwala aplikacji adresować maksymalnie 2GB. Do normalnych zastosowań to zupełnie wystarcza więc jest to jedynie ciekawostka.

adiek napisał(a)

mozesz mi wyjasnić co oznacza '4' w Delete? długość łancucha?

Tak, oznacza ona długość łańcucha 'nowy' czyli 4...

dziękuje za pomoc:) już wstawiłem procedure do programu i wszystko działa łącznie z zapisywaniem do pliku:)
[browar] Pozdrawiam

nie ma za co... A tak w ogóle to mogłeś ten plik otwierać poprzez:

richedit1.lines.loadfromfile();

i zapisywa poprzez:

richedit1.lines.savetofile();

;-P