
   
    str ,     ,        ,   ,    .
     ,     ( halt).
    .    
 (     ,    ) 
   str  .     ,      (1&gt;2), ..
 .   
, ..   
-   ,,  .  ,
   
  . 
ChoiceAppendStringImage  MenuAppendStringImage.      
  , ,     ,  .
  -  
  image,,     
(  ,     ,   
 ).  
,   
 ,   GetTextBoxString.
 .
       -
.       .
   
    -
   
 - .
  
     .   
   , 
     1.
  , 
  .     
  .


program SampleProgram;
var rs:RecordStore;
 c,s1,s2:integer;
 str1,str2:string;
begin
 rs:=OpenRecordStore('New');
 c:=GetRecordStoreNextId(rs);
 if c=1 then begin
  s1:=AddRecordStoreEntry(rs,'String1');
  s2:=AddRecordStoreEntry(rs,'String2');
 end;
 DeleteRecordStoreEntry(rs,1);
 ModifyRecordStoreEntry(rs,'String3',2);
 str1:=ReadRecordStoreEntry(rs,1);
 str2:=ReadRecordStoreEntry(rs,2);
 DrawText(str1,10,10);
 DrawText(str2,10,30);
 CloseRecordStore(rs);
 DeleteRecordStore('New');
 repaint;
 delay(1000);
end.


 rs  RecordStore     
 , ..    . 
    
 New,   
,   .      
     
  GetRecordStoreNextId,
   
 .   
,    
 AddRecordStoreEntry.
 - ,
-,  
.    
   rs
(DeleteRecordStoreEntry(rs,1))., 
 ModifyRecordStoreEntry,
,   2,
 rs  String3.     - str1  1   ( 
 ,   , 
  ), str2  ,
  .  
,   
 str1    str2 . 
 String3 .. 
  ,  
  String2  String3.
   
(CloseRecordStore)    (DeleteRecordStore).