[Lazarus] Не изменяется переменная

[ZwS]

Столкнулся с проблемой. Написал такой код

Код: (pascal) [Выделить]

procedure SettingsSave(Find, Value : ansistring);
var S : ansistring;
    Flag : boolean;
    SettingsFile, SettingsFileOld : TextFile;
begin
   S := '';
   Flag := False;
   AssignFile(SettingsFile, 'some.conf');
   AssignFile(SettingsFileOld, 'some.conf.old');
   Rewrite(SettingsFile);
   Reset(SettingsFileOld);
   while not eof(SettingsFileOld)  do
      begin
         readln(SettingsFileOld, S);
         if (Pos(Find + '=', S) <> 0) then
            begin
               Flag := True;
               S := Find + '=' + Value;
            end;
         writeln(SettingsFile, S);
      end;
   if Flag <> True then writeln(SettingsFile, Find + '=' + Value);
   Close(SettingsFile);
   Close(SettingsFileOld);
end;Смысл его в том, чтобы при нахождении определенной строки в конфигурационном файле переписывать ее, в ином случае дописывать. Но проблема в том что переменная Flag не изменяется, и по этому строка

Код: (pascal) [Выделить]

   if Flag <> True then writeln(SettingsFile, Find + '=' + Value);не работает. Может кто подсказать где я туплю?

[truegeek]

я не особо силен в pascal

1. вы можете перед этой строкой сделать вывод этой переменной и посмотреть какое она имеет значение
2. в паскале нет операции "!="? Не то "<>" для переменной такого типа как то не айс ИМХО, лучше уж Flag = False

[vanili]

!= - это из Си, в Паскале именно <>. Только вот к переменным буленовского типа такое применять нельзя (по крайней мере в fpc только что протестил). Так что поддерживаю предыдущего оратора -
If Flag=False ...

[Guranvir]

Можно еще if not flag then тра ля ля

[ZwS]

до этого была проверка if Flag = False then writeln(SettingsFile, Find + '=' + Value); но результат функции от этого не менялся.

просмотрел значение переменной. меняется. но запись в фаил не происходит. оО

[Protopopulus]

ZwS, опиши сам алгоритм, а не цель алгоритма.

Просто я не понял почему у тебя в цикле переменная не возвращается в false. Естественно, что после цикла она всегда будет true и:

Код: [Выделить]

if Flag <> True then writeln(SettingsFile, Find + '=' + Value);никогда не сработает.

[Guranvir]

Ну похоже того такой подстроки просто нет в файле

[vanili]

она всегда будет true и:

Код: [Выделить]

if Flag <> True then writeln(SettingsFile, Find + '=' + Value);никогда не сработает.

На сколько я понял, в этом и заключается смысл: если строка Find + '=' найдена в файле, то она заменяется на Find + '=' + Value, при этом изменяется значение флага, в противном случае, значение флага не меняется, что и ведёт к добавлению Find + '=' + Value в конец файла.

[Protopopulus]

Как вариант - попробовать:

Код: [Выделить]

if NOT Flag then WriteLn(SettingsFile, Find, '=', Value);

[vanili]

Странно, проверил всю процедуру в точности как в первом посте (за исключением AssignFile заменил на Assign) в fpc 2.2.4-3 (понимаю, что не Lazarus, но Lazarus тот же компилятор и использует). Так вот, всё работает как положено, может проблемы с доступом к файлу???

[ZwS]

На сколько я понял, в этом и заключается смысл: если строка Find + '=' найдена в файле, то она заменяется на Find + '=' + Value, при этом изменяется значение флага, в противном случае, значение флага не меняется, что и ведёт к добавлению Find + '=' + Value в конец файла.

именно так оно и должно работать.

if not тоже не дает никаких результатов.

с доступом к файлу все в порядке, более того в фаил записывается от рута.

заметил что если файла нет или он пустой, то процедура срабатывает раз и все.

[ShadowUser15]

Со строками (точнее с кодировками) в лазаре дикий бардак, пробовал использовать - ничего не пашет (в делфях сразу заработало), из-за того что в части функций кодировка родная линуховая, в части - виндовая... вот и получается что ни открыть файл, ни найти подстроку толком без МЕГАбубна (в коде) не получается.

Плюнул, тотже код проверил в делфях - все работает.
Задача была - загрузить текст в мемо из файла (диалог -> .loadfromfile), найти в нем подстроку.
Первая часть была решена (слава поиску) - с перекодировками имени файла и самого загруженного текста (т.е. без loadfromfile, :=-м), а вот на найти подстроку все и застопорилось.

[Ururu_2]

А я, кажется, нашёл косяк. 
Попробуй так:

Код: [Выделить]

   CloseFile(SettingsFile);
   CloseFile(SettingsFileOld);
Скорее всего у тебя просто не закрываются файлы, а Линукс любит записывать всё и сразу, вот и ждёт закрытия.

И странный какой-то у тебя алгоритм. Он дописывает/записывает строку не в конфигурационный файл, а в новый, свежесозданный, записывает ровно 1 строку.

[ZwS]

И странный какой-то у тебя алгоритм. Он дописывает/записывает строку не в конфигурационный файл, а в новый, свежесозданный, записывает ровно 1 строку.

Таки да, я в алгоритме лапухнулся . У меня ведь весь фаил переписывается, по этому записывается только то значение, которое записывается последним вызовом процедуры. Спасибо =)