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

[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