SRL Archive - Help and Support

Well, im making a form that has a menu and a sub menu , All is working fine. On the click i have it close the form then reload the form.

But everytime you do that, it erases any information that you could of inputted. My question is how do i save that information?

Write that information to an ini file and then load that information from the ini file into the text box upon re-opening.

Link in my signature, about INI's

Edit: … chris was faster

:p Negaal. Or you could just do writing to files in general, that would be more secure.. You write it to a .dat file and it is that much harder to read…

Choose program to open with –> notepad?

Yay. Data should be encrypted by you not file extension..no offence.

If in doubt, you can always just parse passwords through with a MD5hash but I doubt anyone would look in it anyway. Not to mention I would recommend an ini over writing files as it's much easier to access and write to etc.

Lol, i had no idea you could do that Negaal…

I use bitmaps in one of my private scripts. It seems to be faster for integers.

From: Negaal
Choose program to open with –> notepad?

Yay. Data should be encrypted by you not file extension..no offence.

it works like a charm , but everytime i try to load it its say scars trying to connect to the file, im saving it to the script path..

and how would i go about saving if a check box is checked..

Any file you access is caught, no matter where.

if (CheckBox1.checked) then //I can't remember true thingy

Any file you access is caught, no matter where.

if (CheckBox1.checked) then //I can't remember true thingy

I think something like this would work…

Players[CurrentPlayer].Active := Active.Checked;
for f:= 0 to HowManyPlayers - 1 do
  WriteFileString(charsfile, 'active' + IntToStr(f) + '=' + BoolToStr(players[f].active) + Chr(13))

But he wants to be able to programmatically read it too.

ReadFileString R0b0t1…. or he can just do WriteIni and do the same thing..

From: itschris917
ReadFileString R0b0t1…. or he can just do WriteIni and do the same thing..

Thanks guys..

itschris917, you kinda don't get it.

I meant he should use an INI, if he did it your way he'd have to create a text parser.



And writing INI's is different. It formats it for you, you tell it like 'ReadVar(Header, Sub, Name)' or something.

Not an intense string parser though.. Barely even one..

  ReadFileString(CharsFile, CharsFileString, FileSize(CharsFile));
  CloseFIle(CharsFile);
  Temp := CountPlayers(CharsFileString);
  If (Temp <= 0) then Temp:= 1;
  SetArrayLength(players, Temp);
  HowManyPlayers := GetArrayLength(players)
  for f := 0 to HowManyPlayers - 1 do
  begin
    players[f].Name := Between('name' + IntToStr(f) + '=', chr(13), CharsFileString);
//do the same thing for the other options like password etc...
  end;

But it is still more code than if he uses INI files, and it could be more if he wants to store integers or floats.

True true. I just used FileString because i used that in one of my scripts so i just copied and pasted.

procedure SaveTheSettings(Sender:TObject);
  var path:string;
      i:integer;
  begin
  Path := AppPath+'WidgetSettings.ini';
  WriteINI('Settings','StatsID',OtherEdits[1].Text,Path);
  WriteINI('Settings','StatsPass',Encrypt(OtherEdits[2].Text),Path);
  WriteINI('Settings','MouseSpeed',OtherEdits[3].Text,Path);
  WriteINI('Settings','Loads',OtherEdits[4].Text,Path);
  WriteINI('Settings','UsePouches',BoolToStr(Checks[1].Checked),Path);
  WriteINI('Settings','AutoRespond',BoolToStr(Checks[2].Checked),Path);
  WriteINI('Settings','Players',IntToStr(GetArrayLength(PlayerFormEdits[1])),Path);
  for i := 0 to (GetArrayLength(PlayerFormEdits[1])-1) do
    begin
    WriteINI('Player'+inttostr(i),'User',PlayerFormEdits[1][i].Text,Path);
    WriteINI('Player'+inttostr(i),'Pass',Encrypt(PlayerFormEdits[2][i].Text),Path);
    WriteINI('Player'+inttostr(i),'Nick',PlayerFormEdits[3][i].Text,Path);
    WriteINI('Player'+inttostr(i),'PIN',PlayerFormEdits[4][i].Text,Path);
    end;
  end;
procedure LoadTheSettings(Sender:TObject);
  var path:string;
      i:integer;
  begin
  Path := AppPath+'WidgetSettings.ini';
  if not FileExists(path) then Exit;
  OtherEdits[1].Text := ReadINI('Settings','StatsID',path);
  OtherEdits[2].Text := Decrypt(ReadINI('Settings','StatsPass',path));
  OtherEdits[3].Text := ReadINI('Settings','MouseSpeed',path);
  OtherEdits[4].Text := ReadINI('Settings','Loads',path);
  for i := 2 to GetArrayLength(PlayerFormEdits[1]) do
    SafeDeletePlayer(Form);
  for i := 0 to (StrToIntDef(ReadINI('Settings','Players',path),0)-1) do
    begin
    if (i>0) then
      SafeAddPlayer(Form);
    PlayerFormEdits[1][i].Text := ReadINI('Player'+inttostr(i),'User',path);
    PlayerFormEdits[2][i].Text := Decrypt(ReadINI('Player'+inttostr(i),'Pass',path));
    PlayerFormEdits[3][i].Text := ReadINI('Player'+inttostr(i),'Nick',path);
    PlayerFormEdits[4][i].Text := ReadINI('Player'+inttostr(i),'PIN',path);
    end;
  Checks[1].Checked := StrToBoolDef(ReadINI('Settings','UsePouches',path),False);
  Checks[2].Checked := StrToBoolDef(ReadINI('Settings','AutoRespond',path),False);
  end;

That's what I do :)

SaveSetting and LoadSetting?

No I mean like

  Path := AppPath+'WidgetSettings.ini';
  WriteINI('Settings','StatsID',OtherEdits[1].Text,Path);
  WriteINI('Settings','StatsPass',Encrypt(OtherEdits[2].Text),Path); // Encrypt is a seperate function I made
  WriteINI('Settings','MouseSpeed',OtherEdits[3].Text,Path);

BoolToStr and StrToBool will let you use Checkbox.Checked in there too