Соединение строк (Lazarus)

[Taner]

не получается соединить строки к примеру

 m_word:= abc;
  m_change:= qwe;
  m_puck:= m_word + m_change;
  mmResult.Lines.Add(m_puck); //выводит abcqwe
  InS:= m_puck;

как уже было написано для проверка я просто сделал вывод переменной m_puck, оно вроде и соединило строки, а вроде и нет. Все дальнейшие действия производятся со строкой "qwe" не понятно почему ведь я присваиваю InS уже строку "abcqwe".
m_word у меня берется из тхт файла, m_change из edit.
сам код

procedure TForm1.FormCreate(Sender: TObject);
begin
.... 
AssignFile(f1, 'word.txt');
  Reset(f1);
  While not EOF(f1) do
  begin
    Readln(f1, m_word);
    mmResult.Lines.Add(m_word);
  end;

procedure TForm1.bbSelectionOfWordsClick(Sender: TObject);
begin
...
m_change:= LEditChange.Text;
  mmResult.Clear;
  m_puck:= m_word + m_change;
  mmResult.Lines.Add(m_puck);
  InS:= m_puck;
  {заполняем массив символов для генерации, пропуская одинаковые символы}
  Gen_CharArray := InS[1];
    for I := 2 to length (InS) do
     begin
       if not (InS[I] in [Gen_CharArray[1]..Gen_CharArray[length (Gen_CharArray)]]) then
       Gen_CharArray := Gen_CharArray + InS[I];
     end;
  Gen_Length := length(Gen_CharArray);
  {запускаем генерацию Gen_LastCharNo - последний символ будет иметь номер 1
  Gen_Str - пока строка пуста }
GenNext(1, '');
CloseFile(f);
CloseFile(f1);
end;

[Stilet]

вроде и соединило строки, а вроде и нет.

Так а всетки? Отладка что говорит?

[Taner]

переустановил систему, при компиляции выдает ошибку "lazutf8.pas(144,3) Fatal: Can not find unit gettext used by LazUTF8." и, бросает на модуль LazUTF8 а именно на строчку

uses
  gettext
{$IFDEF Darwin}, MacOSAll{$ENDIF}
  ;

{$ifdef windows}
  {$i winlazutf8.inc}
{$else}
  {$i unixlazutf8.inc}
{$endif}

[Utkin]

Когда переустанавливал старую удалял? Там при установке есть пункт "Удалить все предыдущие установки"

[Stilet]

Бог мой зачем систему дергать? Ну раз переустановил попробуй в меню Сервис нажать Пересмотр исходного для FPC/
У меня твоя прога скопилилась норм.

[Taner]

Пересмотр исходного кода не помогло, сейчас что-нибудь придумаем

[Utkin]

сейчас что-нибудь придумаем

Вероятно дело в разнице кодировок. Попробуйте везде английские буковы. Они, по-моему, во всех кодировках одинаковы. Если все сработает, то дело точно в кодировке символов при вводе и при чтении из файла. И мне не понравилась Ваша методика загрузки данных в Мемо/StringList.
Попробуйте при создании формы просто:

mmResult.LoadFromFile('word.txt');

Данный класс имеет встроенные методы для записи (SaveToFile) и чтении строк, к чему изобретать велосипед? К тому же, вероятно, там загрузка организована через потоки, а не построчно, что всяко быстрей Вашего варианта.

[Taner]

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

Данный класс имеет встроенные методы для записи (SaveToFile) и чтении строк, к чему изобретать велосипед? К тому же, вероятно, там загрузка организована через потоки, а не построчно, что всяко быстрей Вашего варианта.

Переустановил lazarus все с компилировалось, в отладчике переменной InS:= boxqu, т.е. дальнейший полный перебор должен быть со словом "boxqu" а перебирает только box.

[Utkin]

как теперь взять от туда 1..n строку и загружать в переменную?

x:=mmResult.Lines[i];

Где i переменная цикла for от 1 до n. Помните - Lines нумеруется от нуля, а не от единицы. Возможно Ваш диапазон 0..n-1.

т.е. дальнейший полный перебор должен быть со словом "boxqu" а перебирает только box.

Покажите алгоритм перебора, скорее всего ошибка там. И вообще, чего Вы пытаетесь добиться с помощью данного алгоритма? Вряд ли виноват Лазарус.

[Taner]

спасибо, убрал loadfromfile, сделал как было, работает трогать не буду)