Лана!Это мелочи...
Тут другая проблема нарисовалась! У моего файла настроек такая структура
1 строка: зашифрованный алфавит;
2 строка: путь к файлу(неважно какой =) )
3 строка: 0 или 1 может быть (положение чекбокса)
4 строка: порт (у меня прога для работы с сетью...)
Замучался короче! Начирикал пять процедур:
Процедура №1, загружает настройки:
| Код |
procedure TForm1.loadoptions;
var options:TStrings;
key:string;
begin
options:=TStringList.Create;
if not FileExists('options.dll') then begin //если файл настроек не существует, то...
form2.ShowModal; //...показываем окно настроек
if form2.ModalResult=mrOk then saveoptions // если нажата кнопка ОК, то сохраняем опции в файл
else close //... иначе закрываем прогу совсем
end
else begin //если файл сущесвует, то...
options.LoadFromFile('options.dll'); //загружаем файл настроек
key:=options.Strings[0]; //берём ключ
form2.LoginEdit.Text:=encrypt(options.Strings[1],key); //присваиваем эдиту тест после расшифровки...
if options.Strings[2]=encrypt('1',key) then form2.CheckBox2.Checked:=true // устанавливаем
else form2.CheckBox2.Checked:=False; // чекбокс и...
form2.PortSpin.Value:=strtoint(encrypt(options.Strings[3],key)) //... SpinEdit
end;
ServerSocket.Port:=form2.PortSpin.Value;
ClientSocket.Port:=form2.PortSpin.Value;
options.Free
end;
|
Процедура №2, сохраняет настройки:
| Код |
procedure TForm1.saveoptions;
var options:TStrings;
key:string;
begin
options:=TStringList.Create;
if not FileExists('options.dll') then begin //если файл настроек не существует, то...
key:=generator; //создаём ключ
options.Add(key); //добавляем
options.Add(crypt(progroot(form2.LoginEdit.Text),key)); //сохраням закодированной строку
if form2.CheckBox2.Checked then options.Add(crypt('1',key)) //сохраням положение
else options.Add(crypt('0',key)); //чекбокса, тоже кодируем
options.Add(crypt(inttostr(form2.PortSpin.Value),key)) //сохраням закодированным значение SpinEdit
end
else begin // .....если файл существует, то...
options.LoadFromFile('options.dll'); //загружаем файл...
key:=options.Strings[0]; //...и ключ
options.strings[1]:=crypt(form2.LoginEdit.Text,key); //всё олстальное, что и чуть выше
if form2.CheckBox2.Checked then options.strings[2]:=crypt('1',key) // в этой же процедуре... =)
else options.strings[2]:=crypt('0',key);
options.strings[3]:=crypt(inttostr(form2.PortSpin.Value),key)
end;
ServerSocket.Port:=form2.PortSpin.Value;
ClientSocket.Port:=form2.PortSpin.Value;
options.SaveToFile('options.dll');
options.Free
end;
|
Процедура №3, кодирование:
| Код |
function TForm1.crypt(strin,key:string):string;
var i:integer;
begin
for i:=1 to length(strin) do begin
insert(key[ord(strin[i])],strin,i);
delete(strin,i,1)
end;
Logedit.Lines.Add(strin);
result:=strin
end;
|
Процедура №4, декодирование:
| Код |
function TForm1.encrypt(strin,key:String):String;
var i:integer;
begin
for i:=1 to length(strin) do begin
Insert(chr(pos(strin[i],key)),strin,i);
delete(strin,i,1)
end;
Logedit.Lines.Add(strin);
result:=strin
end;
|
Процедура №5, проебразование строки вида %PROGROOT%\Login.bbq(для эдита):
| Код |
function TForm1.progroot(s: string): string;
begin
if pos('%PROGROOT%',s)=0 then begin
result:=s;
exit
end;
delete(s,1,10);
result:=extractfiledir(application.ExeName)+s
end;
|
У меня уже голова кругом... Ошибки пачками вылетают... Одну исправлю-новая появляется... Помогите плз! Может есть способ пооригинальней загрузки\сохранения опций?   |
)
Ага, "А ключ под ковриком"... 
