переводчик, опять велосипед... Опции

[kr3v3tkus]

нужно сделать переводчик, слова берёт из тхт, слова разных языков разделены пробелом.
подскажыте плз что за косяк в цикле (и ваще я так делаю или нет? >__> )
плюс интересная штука в последней строке переменную f почемуто принимает за стринг, хотя везде описал как буль

Код

  Output.Text:='';
  f:=false;
  repeat

  if BaseField.Text[i]<>' ' then Str:=Str+BaseField.Text[i]
  else
  begin
    if BaseField.Text=Str then
    begin
    f:=true;
      repeat
        Output.Text:=Output.Text+BaseField.Text[i];
        inc(i);
      until BaseField.Text[i]=' ';
      Str:=''
    end;
  end;


  inc(i);
  until BaseField.Text[i]=''{ or f=true};

Сообщение отредактировано: kr3v3tkus - 5.10.2007 16:24

[volvo]

А нельзя всё таки какнить с мемо?

Можно. "В принципе, можно и зайца научить курить" (С), но только вот у тебя код неправильный, в этом все дело... Тебе придется каждый раз (для каждого слова, фигурирующего в поле Input) проходить по всему Memo, в каждой строке брать ту часть, которая до пробела, сравнивать ее с самим выделенным словом, и если есть совпадение - то брать часть строки Memo после пробела и добавлять ее к полю Output...

Что я тебе предлагаю: при инициализации (т.е., один раз) делаешь так:

procedure TDictionary.FormCreate(Sender: TObject);
var
  i, p:integer;
  SL: TStringList;
begin
  SL := TStringList.Create; // Создаем StringList
  SL.LoadFromFile('base.txt'); // Читаем файл в StringList

  for i := 0 to pred(SL.Count) do begin // для каждой строки ...
    p := Pos(' ', SL[i]);
    ValueListEditor1.InsertRow(
      copy(sl[i], 1, p - 1),
      copy(sl[i], p + 1, length(sl[i]) - p),
      true
    ); // ... заполняем ValueEditor
  end;
    SL.Free; // Освобождаем StringList
end;

, и у тебя есть готовый массив с индексами-строками, никаких велосипедов...

Сообщение отредактировано: volvo - 6.10.2007 0:01