Delphi. Помогите плиз нужно написать простейший переводчик!

[diablist]

Реализация очень простая. Загружаю в memo или richedit текстовый файл,
и по зараннее заготовленной базе или текстового файла с словами, проверяю если слово в базе есть, то заменить в моем загруженном файле. Вот и все никаких наворото ничего только основу расскажите или дайте ссылку!!

[diablist]

Никто не отвечает на мои мольбы
Ну хоть подскажите как зделать массовый search-replace в RichEdit'е?

diablist
Хе.... )))) Прикольно написал )))
А вот я бы не парился и БД слепил... по-моему, так красивше будет...

[diablist]

sasa001
Дык подскажы как Яж для того и помощи спрашую.

[donatas]

хэлпы рулят

procedure TForm1.Button1Click(Sender: TObject);

begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then

      StartPos := SelStart + SelLength;
    else

      StartPos := 0;

    { ToEnd is the length from StartPos to the end of the text in the rich edit control }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

[diablist]

donatas
Спасибо, но это не совсем то. Мне не нужно чтобы вылазил диалог. Нужно чтобы молча заменил указанные слова в документе

[donatas]

var
strfrom,strto:string
str:string;
i:integer;
--------------
for i:=0 to memo1.lines.count-1 do
begin
str:=memo1.lines[i];
if pos(strfrom,str)>0 then
memo1.lines[i]:=
copy(str,0,pos(strfrom,str)-1)+strto+copy(str,pos(strfrom,str)+length(strfrom)),length(str)-(pos(strfrom,str)+length(strfrom)));
end;

вот,писал прямо тут,значит мог в количестве скобок ошибиться =\ но в целом должно работать
strfro - что ищем
strto - на что заменяем....
я думаю в цикле сможешь запускать,и подставлять from/to

[diablist]

ПАсибо!!!
Бум копатЦА