[cyborgg4655]

Сообщение от M.A.D.M.A.N.

Жми F1 или в исходник перейди, увидишь как реализовано.

Щас установлю документацию и гляну. Надеюсь я найду там решение)

[cyborgg4655]

Нет, не нашел ничего интересного(

[Alegun]

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

[code]...после того как я закрываю программу это значение не сохраняется там.

И не сохранится - при завершении всё, что отличается от начальных параметров (значений переменных) уничтожается. Начальные параметры прописаны в файле *.dfm, можно там глянуть и после компиляции не изменяются.

[cyborgg4655]

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

И не сохранится - при завершении всё, что отличается от начальных параметров (значений переменных) уничтожается. Начальные параметры прописаны в файле *.dfm, можно там глянуть и после компиляции не изменяются.

очень жаль( Придется воспользоваться запороленным сторониим файлом..

[Alegun]

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

очень жаль( Придется воспользоваться запороленным сторониим файлом..

Это правильное решение.

Можно правда ещё дописывать к файлу текст

Код:

...
const
  metka = 'MyText:';

  procedure StrToFile (FileName, s :string);
var
  pst: longword;
  psb: string;
begin
  with TFileStream.Create(FileName, fmOpenReadWrite) do
   try
    try
      if Size < SizeOf(pst) then Abort;
      Seek( - SizeOf(pst), soFromEnd);
      ReadBuffer(pst, SizeOf(pst));
      if  pst + longword(length(metka)) + SizeOf(pst) > Size  then Abort;
      Position:= pst;
      SetLength(psb, length(metka));
      ReadBuffer(psb[1], length(metka));
      if  psb <> metka then Abort;
       except on eAbort  do
     begin
      pst:= Size;
      Position:= pst;
      WriteBuffer(metka[1], length(metka));
     end;
    end;
    WriteBuffer(s[1], length(s));
    WriteBuffer(pst, SizeOf(pst));
    Size:= Position;
  finally
    Free;
  end;
end;

и потом его считывать

Код:

...

const
  metka = 'MyText:';

function StrFromFile (FileName: string): string;
var
  pst: longword;
  psb: string;
begin
  with TFileStream.Create(FileName, fmOpenRead) do
   try
     try
      if Size < SizeOf(pst) then Abort;
      Seek( -SizeOf(pst), soFromEnd);
      ReadBuffer(pst, SizeOf(pst));
      if pst + Longword(Length(metka)) + SizeOf(pst) > Size then Abort;
      Position:= pst;
      SetLength(psb, length(metka));
      ReadBuffer(psb[1], length(metka));
      if psb <> txt then Abort;
      SetLength(Result, Size - pst - length(metka) - SizeOf(pst));
      if length(Result) > 0  then ReadBuffer(Result[1], length(Result));
    except on eAbort  do Result:= '';
    end;
  finally
    Free;
  end;
end;

но для этого тогда ещё нужно засунуть в ресурсы спец прогу которая будет появляться на диске, запускаться и после "отпускания" оськой основного файла дописывать к нему инфу, а затем батником самоуничтожаться, одним словом, гимор.

[angvelem]

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

Ну не совсем так. Можно то, можно...

Знаю, именно из-за антивирусов не стал давать другого ответа.

[NumLock]

не хочешь как все хранить настройки локально, храни удаленно: на сервере в локалке, ftp-, web-сервере.

[Alegun]

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

не хочешь как все...

Хозяин-барин