Конвертор

[Uliy]

Не могу понять почему выдает ошибки в функции
SOS

http://www.fayloobmennik.net/4057549

[Serge_Bliznykov]

вы пароль на закачку поставили.

Копия Konvertor.rar
На данный файл установлен пароль.
Чтобы скачать его необходимо ввести пароль:

[Uliy]

Сообщение от Serge_Bliznykov

вы пароль на закачку поставили.

ой извиняюсь забыла сказать пароль - 12345

[evg_m]

1. result это зарезервированное имя для обозначения результата функции. И лучше его НЕ ИСПОЛЬЗОВАТЬ для име своих переменных (параметров).

     function GetfieldName(name, result: string): string;
       function GetfieldName(name, x: string): string;

2. если мы объявляем какой-то параметр, то НЕ НУЖНО его дублировать в описаниях локальных переменных.

function TForm1.GetfieldName(name, result: string): string;
var
  Xml, strok, s: TStringList;
////  result, name: string;
  i: integer;
begin

3. чтения файла с абзацами в коде функции GetFiedName нет. (он есть в начале заполнения до первого вызова).

  strok:=TStringList.Create;
  strok.LoadFromFile(....);

для того чтобы использовать прочитанный файл (точнее заполненный Strok: TStringList) его надо передать в функцию GetfieldName (использовать как фактический параметр).

  function GetfieldName(strl: TStringList; name: string): string;//таким должно быть объявление

  strok:=TStringList.Create;
  strok.LoadFromFile(....);
.....
... + GetfieldName(strok, 'ne_en') + ....// а так ее надо будет вызывать
....

3. опечатка lenght = length

итого исправленный

function TForm1.GetfieldName(strl: TStringList; name: string): string;
var
  s: string;
  i: integer;
begin
  //result:='';
  for i:=0 to strl.count-1 do begin
    s:=strl.string[i];
    if copy(s,1,4)=name then  //нужная строка по имени
      result:=copy(s,5,length(s)); //копируется нужный фрагмент из этой строки
  end;
end;

[Uliy]

evg_m
спасибо большое за помощь!

[Uliy]

Теперь докумет формируется как раньше, но добавление строк не происходит, почему так?
http://www.programmersforum.ru/attac...1&d=1409122845

[evg_m]

   Xml.Add ('       <seg>'+GetFieldName(strok, 'result')+'</seg>');  //поле name_ru
   Xml.Add ('     </tuv>');
   Xml.Add ('     <tuv xml:lang="RU-RU">');
   Xml.Add ('       <seg>'+GetFieldName(strok, 'result')+ '</seg>'); //из поля name_en

у вас нет поля result а есть (или должно по крайней мере быть) name_ru

P.S. вы можете формировать файл "напрямую" в Мemo1 (без использования переменной xml).

Memo1.Lines.Clear; //на всякий случай очищаем
...
Memo1.Lines.add( .......); //так заменяем каждый xml.Add(....);
...
Memo1.Lines.SavetoFile(...); //так записываем

[Uliy]

в коде ниже есть строка:

Xml.Add (' <tuv xml:lang="RU-EN" >');
Xml.Add (' <seg>'+GetFieldName(strok, 'Ab1_ru')+ '</seg>'); //из поля Ab1_en
Xml.Add (' </tuv>');

но при выводе текст не добовляется в данное поле, испробовала все

а спомощью этой команды - "Node.Text:=" получится добавить? пытаюсь ей воспользоваться не выходит

[evg_m]

в коде ниже есть строка:

в коде есть а есть ли соответствующая строка в текстовом файле.

Xml.Add (' <seg>'+GetFieldName(strok, 'Ab1_ru')+ '</seg>'); //из поля Ab1_en

где-то здесь опечатка.

if copy(s,1,4)=name

НО...
Length('Ab1_en') =6
copy('Ab1_en',1,4)='Ab1_' <>'Ab1_en'
т.е. проверка не сработает.

if copy(s,1,length(name)) =name then // проверяем ровно столько символов сколько есть в имени

и соответственно надо менять выбор нужного куска

copy(s, length(name)+???{начинаем с какого-то(???) после имени}, length(s));

[Uliy]

я так понимаю что с i-ого значения по последнее значение(count-1) происходит копирование строки, если первые четыре буквы соответствуют значению name?