Замена слов по словарю, Простейший переводчик Опции

[Незнакомец]

Здравствуйте. Не могли бы подсказать как сделать вот такую штуку: замешательство
в TMemo находится английский текст (например:

Hello world

), как сделать так чо бы считывать слова и вставлять их перевод в др мемо из файла-словаря?
В файле слова находятса в таком виде:


..................
hello привет
..................
..................
world мир
...............



И результат получался бы типа такого:

привет мир

[hiv]

но выводится какая то чуш:

Как запрограммировал - так и выводит! Вот так надо:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, next_word, next_word_rus, t: string;
  i: byte;
  currLine: integer;
begin
  Memo2.Lines.Clear;
  ER:=TStringList.Create;
  ER.LoadFromFile('voc.txt');
  for currLine := 0 to Pred(memo1.Lines.Count) do
  begin
    s := memo1.Lines.Strings[currLine];
    t:=''; i := 1; next_word := '';
    while i <= length(s) do
    begin
      while (i <= length(s)) and (upcase(s[i]) in ['A'..'Z']) do
      begin
        next_word := next_word + s[i];
        inc(i);
      end;
      if next_word<>'' then
      begin
        next_word_rus:=ER.Values[next_word];
        if next_word_rus='' then next_word_rus:=next_word;
        t:= t +  next_word_rus;
        next_word := '';
      end;
      if i <= length(s) then t:= t +  s[i];
      inc(i);
    end;
    Memo2.Lines.Add(t);
  end;
  ER.Free;
end;

Сообщение отредактировано: hiv - 7.09.2005 8:41