IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> переводчик, опять велосипед...
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 111
Пол: Мужской
Реальное имя: Рома

Репутация: -  0  +


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


Прикрепленные файлы
Прикрепленный файл  Trans.rar ( 8.48 килобайт ) Кол-во скачиваний: 220


--------------------
Цитата
          .     .
           \__/
          (**)
(>:=:=:~~ 
  ^ ^ ^ ^ 

Креветка присваивания :DDD
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






kr3v3tkus, я бы на твоем месте вместо TMemo для хранения словаря использовал TValueListEditor... Придется чуть-чуть добавить кода при инициализации программы (читать файл и записывать в TValueListEditor вручную), зато потом основной цикл станет таким:

procedure TDictionary.TransClick(Sender: TObject);
var
i:integer;
SL: TStringList;
begin

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

end;
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.05.2024 14:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name