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

[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

[kr3v3tkus]

вольвыыыыч позялста последние 2 вопроса

Код

    SL.Delimiter := ' ';
    SL.DelimitedText := StringReplace(Input.Text, '  ', ' ', [rfReplaceAll]);
    for i := 0 to pred(SL.Count) do
      Output.Text := Output.Text + ValueListEditor1.Values[SL[i]] + ' ';

допустим мы ввели слово "собака" - как мы тут узнаём что ему соответствует слово "dog"?
SL.DelimitedText := StringReplace(Input.Text, ' ', ' ', [rfReplaceAll]); - мы же просто в DelimitedText передаём текст, только с переносом строки заменённым на пробел?
и второй вопрос - допустим мы знаем какая раскладка - если она англ и ввели слово "dog" то как вывести "собака"? с помощью ValueListEditor1.Names? я непойму какие параметры там ставить

Сообщение отредактировано: kr3v3tkus - 6.10.2007 3:06