Program Save_experiment;
{ --------------- Переменные --------------- }
var
rs:recordStore;
index:integer;
name:string;
{ --------------- Процедуры --------------- }
Procedure save; forward;
Procedure load; forward;
{ --------------- Менюшка --------------- }
Procedure drawing;
begin
// Выводим на экран
SetColor(0,0,0);
FillRect(0,0,240,320);
SetColor(255,255,255);
end;
Procedure menu;
var
exit:boolean;
s4et4ik:integer;
key_clicked:integer;
begin
exit:=false;
s4et4ik:=1;
repeat
key_clicked:=GetKeyClicked;
SetColor(0,0,0);
FillRect(0,0,GetWidth,GetHeight);
SetColor(255,255,255);
DrawText('Сохранить',0,0);
DrawText('Загрузить',0,12);
DrawText('Выйти',0,24);
////////////////////////
if (key_clicked=KE_KEY2) then begin s4et4ik:=s4et4ik-1 end;
if (key_clicked=KE_KEY8) then begin s4et4ik:=s4et4ik+1 end;
//
if (key_clicked=KE_KEY5) and (s4et4ik=1) then begin exit:=true; save; end;
if (key_clicked=KE_KEY5) and (s4et4ik=2) then begin exit:=true; load; end;
if (key_clicked=KE_KEY5) and (s4et4ik=3) then begin halt; end;
/////////////////////////
if (s4et4ik=1) then begin DrawText('<--',GetStringWidth('Сохранить'),0); end;
if (s4et4ik=2) then begin DrawText('<--',GetStringWidth('Загрузить'),12); end;
if (s4et4ik=3) then begin DrawText('<--',GetStringWidth('Выход'),24); end;
////////////////////////////////
repaint;
delay(1);
until exit=true;
end;
{ --------------- Загрузка/сохранение --------------- }
Procedure save;
begin
// Записываем некие данные в хранилище
deleterecordstore('names');
rs:=openRecordStore('names');
index:=addRecordStoreEntry(rs,'John Smith');
closeRecordStore(rs);
//
SetColor(0,0,0);
FillRect(0,0,GetWidth,GetHeight);
SetColor(255,255,255);
DrawText('Данные сохранены успешно!',0,0);
repaint;
delay(3000);
halt;
end;
Procedure load;
begin
// Считываем данные
rs:=openRecordStore('names');
name:=readRecordStoreEntry(rs,index);
closeRecordStore(rs);
//
SetColor(0,0,0);
FillRect(0,0,GetWidth,GetHeight);
SetColor(255,255,255);
DrawText('Данные загружены',0,0);
repaint;
delay(2000);
// Отображаем данные
SetColor(140,0,0);
FillRect(0,0,GetWidth,GetHeight);
SetColor(255,255,255);
DrawText(''+(name),0,0);
repaint;
delay(999999);
end;
{ --------------- Делаем тут всё --------------- }
begin
menu;
repeat
repaint;
delay(1);
until false;
end.