Поиск и перевод слов в TStringList

[sariman]

Здравствуйте, такая задача, реализовать функцию, которая ищет слова например 'Preparing spawn area' на 'Подготовка области спавна' в TStringList и еще, чтобы все было записано в текстовый документ и оттуда бралось слово и перевод

Preparing spawn area = Подготовка области спавна
и так далее

Заранее спасибо)

[artemavd]

StringReplace

[Rock-n-Rolla]

в текстовой документе прописываешь список замен в формате

Preparing spawn area = Подготовка области спавна

str - строка для замены
list.LoadFromFile(....);
for i:=0 to list.Count()-1 do
  str  := StringReplace(str, list.Names[i], list.ValueFromIndex[i]
                           [rfReplaceAll, rfIgnoreCase]);
в str всё заменено

[sariman]

большое спасибо)

[sariman]

Вот такая функция но почему-то не работает(

function TFormMain.Translate(Word: String): string;
var List: TStringList;
    i: Integer;
begin
List:=TStringList.Create;
List.LoadFromFile(FileName);
for i:=0 to List.Count-1 do
Word:=StringReplace(Word, List.Names[i], List.ValueFromIndex[i], [rfReplaceAll, rfIgnoreCase]);
end;

[Stilet]

почему-то не работает

Ай печалька...
А протрассировать по шагам и посмотреть как отрабатывает код не судьба?

P.S. Кстати обрати внимание - твоя функция ничего не возвращает

[sariman]

хм, а почему не возвращает? там же все обьявлено

[Stilet]

Где? Не вижу там инструкции Result

[sariman]

короче у меня прога типо консоли, исходник вот, функция не помогает, ввожу Preparing to spawn area и ничего не происсходит(

[Stilet]

Ясно. Ты все делаешь не так. У тебя Word мало того что зарезервированное слово, так еще и обьявлена как константа, а значит никакими силами не может быть изменено на выход. К тому же утечка памяти - ты List не освобождаешь.

Вот как нужно:

function TFormMain.Translate(AWord: String): string;
var    i: Integer;
begin
with TStringList.Create do begin
 LoadFromFile(FileName);
 Result:=AWord;
 for i:=0 to Count-1 do
  Result:=StringReplace(Result, trim(Names[i]),
  Values[Names[i]],  [rfReplaceAll, rfIgnoreCase]);
 Free;
end;
end;