Вопрос Как внести изменения в dat файл (открывается блокнотом)?

[ExPlayer]

Доброго времени суток! Подскажите, как можно внести изменения в .dat файл (в нем только 1 строчка - ru или en, открывается обычным блокнотом)?

 

[YURSHAT]

SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'ru', False);

 

[ExPlayer]

YURSHAT, спасибо

 

[ExPlayer]

Что-то я туплю... Как сделать, что бы при выборе русского в .dat записывалось значение "ru", а при выборе английского соответственно "en"?

 

[Хамик]

ExPlayer,

if Rus.Checked then
SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'ru', False);
if Eng.Checked then
SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'en', False);

 

[ExPlayer]

Хамик, пишет неизвестный идентификатор, я правильно понимаю, что:
Rus.Checked - это имя чекбокса?

 

[sergey3695]

ExPlayer, Rus имя, Checked - переводится как выбран (да там и точка между ними).

 

[ExPlayer]

Rus имя, Checked - переводится как выбран (да там и точка между ними).

Да это понятно, я просто не могу понять, куда именно это (тот код, что привел @Хамик и @YURSHAT ) вставлять и почему Inno ругается на неизвестный идентификатор.

При этом в глобальных переменных нет ни TCheckbox, ни TRadiobutton, НО выбор компонентов работает нормально:

[Components]
Name: Text; Description: {cm:GUILanguage}; Types: full; Flags: fixed
Name: Text\rus; Description: {cm:Russian}; Flags: exclusive;
Name: Text\eng; Description: {cm:English}; Flags: exclusive;

<..>

//переменные
var
   ISInit, ISDoneError: boolean;
   WizardImage, Logo, GameIMG, DirEditIMG, CancelButton, NextButton, BackButton, MinButton, ExitButton,
      DirBrowseButton, ProgressBarBkg, ProgressBarImg, PBOldProc, PauseButton, MusicButton, oggHandle: Longint;
   WizardLabel, WelcomeLabel, SelectDirLabel, NeedSpaceLabel, FreeSpaceLabel, PathLabel, UnpackingArcLabel,
      RemainingTimeLabel, ElapsedTimeLabel: TLabel;
   ButtonsFont: TFont;
   FreeMB, TotalMB: Cardinal;
   DirTreeView: TFolderTreeView;
   BrowseForm, ExitForm: TSetupForm;
   Edit: TNewEdit;
   ISDoneCancel, CurrentPicture: integer;
   TimerID: LongWord;
   PCFVer: double;
   ISDoneProgressBar: TNewProgressBar;
   oggName, MusicStatus: string;
   PicList: TStringList;

 

[PUNISHER]

if IsComponentSelected('Text\rus') then
SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'ru', False);

if IsComponentSelected('Text\eng') then
SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'en', False);

 

[Хамик]

ExPlayer,

[Setup]
AppName=My Programm
AppVersion=1.1
DefaultDirName={pf}\My Programm
OutputDir=.

[Components]
Name: Text; Description: GUILanguage; Types: custom;  Flags: fixed
Name: Text\rus; Description: Russian;  Flags: exclusive;
Name: Text\eng; Description: English;  Flags: exclusive;

[Code]

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
  ssDone:
         begin
         if IsComponentSelected('Text\rus') then
          SaveStringToFile(ExpandConstant('{app}\file.dat'), 'ru', False);
         if IsComponentSelected('Text\eng') then
          SaveStringToFile(ExpandConstant('{app}\file.dat'), 'en', False);
         end;
end;
end;

 

[ExPlayer]

if IsComponentSelected('Text\rus') then
SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'ru', False);

if IsComponentSelected('Text\eng') then
SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'en', False);

ExPlayer,

[Setup]
AppName=My Programm
AppVersion=1.1
DefaultDirName={pf}\My Programm
OutputDir=.

[Components]
Name: Text; Description: GUILanguage; Types: custom;  Flags: fixed
Name: Text\rus; Description: Russian;  Flags: exclusive;
Name: Text\eng; Description: English;  Flags: exclusive;

[Code]

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
  ssDone:
         begin
         if IsComponentSelected('Text\rus') then
          SaveStringToFile(ExpandConstant('{app}\file.dat'), 'ru', False);
         if IsComponentSelected('Text\eng') then
          SaveStringToFile(ExpandConstant('{app}\file.dat'), 'en', False);
         end;
end;
end;

Спасибо))) Всё работает)) Я просто код не туда писал

 

[Хамик]

Как создать такую структуру файла? Интересует пробел между строками...Как его записать?

Good

Easy

Pro

 

[Kotyarko_O]

Как создать такую структуру файла? Интересует пробел между строками...Как его записать?

'Good' + #13#10#13#10 + 'Easy' + #13#10#13#10 + 'Pro'

Это имеете ввиду?

 

[sergey3695]

Хамик, пробел или с новой строки?

 

[Хамик]

Это имеете ввиду?

Нет! Надо тот же dat файл с такой структурой как я выше привел.

Добавлено:

пробел или с новой строки?

Пустая строка

 

[Kotyarko_O]

Нет! Надо тот же dat файл с такой структурой как я выше привел.

Ну так я вам всё правильно подсказал:

SaveStringToFile(ExpandConstant('{app}\myfile.dat'), 'Good' + #13#10#13#10 + 'Easy' + #13#10#13#10 + 'Pro', False);

 

[Хамик]

Как можно дополнять текстовый файл? Допустим вот такой пример

if Rus.Checked then
SaveStringToFile(ExpandConstant('{app}\myfile.txt'), 'Rus', False);
if Rusik.Checked then
SaveStringToFile(ExpandConstant('{app}\myfile.txt'), 'Rusik', False);

rus и rusik это чекбоксы и если они оба отмечены то создавался такой .txt файл

rus
rusik

 

[Kotyarko_O]

Как можно дополнять текстовый файл?

Типо такого?

if Rus.Checked then
SaveStringToFile(ExpandConstant('{app}\myfile.txt'), 'Rus' + #13#10, False);
if Rusik.Checked then
SaveStringToFile(ExpandConstant('{app}\myfile.txt'), 'Rusik', True);