Kódim, kódim a zrazu problém... dokopal som sa k tomu, že chcem aby si program zapamätal, aké nastavenia si zvolil užívateľ priamo v ňom... napríklad aby mal aktivovaný skin pri spustení, aby sa nezobrazovali určité lišty a tak podobne... Vie mi s tým nie
wewo, vystihol si to presne. program zapisuje do externého súboru. lenže najprv som musel príjsť nato, ako ho ktomu donútiť... no a vyzerá to nasledovne:
procedure TForm2.SaveOptions;
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini');
presne ako povedal tikalok ... objektovo orientovaný pascal... ale ak chceš, môžem pohľadať na CDčkach a poslať ti mailom alebo cez skype Borland Pascal 7 pre Windows...
aby si aplikácie, ktoré normálne píšeš v dose a pre dos vedel spustiť pod Windowsom ... Ak máš aplikáciu napísanú pre dos, vložíš jej zdroják do BP 7 pre Windows, knižnicu napr CRT prepíšeš na WINCRT a aplikácia ti bude fungovať pod Windowsom ....
Roleta je špeciálny inkognito mód, ktorým skryješ obsah obrazovky pred samým sebou, alebo inou osobou v tvojej izbe (napr. mama). Roletu odroluješ tak, že na ňu klikneš.
13 komentov
ale napada ma jedine to ze tie hodnoty si si zapisal do externeho suboru ktory si potom nacital v programe? ci osm zle pochopil otazku?
procedure TForm2.SaveOptions;
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini');
try
ini.writeBool('Settings','Skin',progskin.checked);
finally
ini.Free;
end;
end;
procedure TForm2.GetOptions;
var
ini : TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini');
try
progskin.checked := ini.ReadBool('Settings','Skin',FALSE);
finally
ini.Free;
end;
end;
//SKIN PROGRAMU
if (ini.readBool('Settings','Skin',FALSE) then begin
Skindata1.Active := true;
end else begin
Skindata1.Active := false;
end;