加載動態的.ini標識符

Question

我創造我的學生策劃者基本上可以讓一個虛擬版本，讓你有什麼功課什麼科目的筆記。

這裏是接口：

用戶從在相鄰的備忘錄一些音符的組合框和類型的主題。完成後，他們將點擊「保存」按鈕，將其保存到.ini文件中。所選日期將成爲部分名稱，主題將成爲標識符，備忘錄中的文本將成爲每個標識符的值。

注：有7個可能的主題。

我的問題是當選擇日期時加載組合框和備忘錄，因爲每個日期的標識符總是不同。

例如：

二月用戶輸入（接口）的16：

英語 - 閱讀最多小說127頁。
數學 - 完成第6章

二月份的16日它看起來像這樣在.ini文件：

[16/02/12]
英語=讀取高達127頁小說。
數學=完成第6

在2月20日用戶輸入（界面）：

SOSE - 讀教科書。
法律研究 - 填寫在線調查。

對於月20日它看起來像這樣在.ini文件：

[20/02/12]
SOSE =讀教科書。
法律研究=填寫在線調查。

現在，您會看到如果用戶選擇2月16日查看他們的任務是什麼，那麼將無法加載，因爲每個標識符都會發生變化。

是否有.ini文件一個更好的選擇？我該如何去實現這個目標？

Answer 1

您可以使用TIniFile.ReadSections獲取單個日期，並使用TIniFile.ReadSection獲取該部分中的單個項目。這裏有一個簡單的例子：

// Sample ini file 

[16/02/12] 
English=Read up to page 127 of novel. 
Maths=Complete chapter 6. 

[20/02/12] 
SOSE=Read textbook. 
Legal Studies=Fill in online survey. 

代碼：

unit Unit2; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, IniFiles; 

type 
    TForm2 = class(TForm) 
    ListBox1: TListBox; 
    Memo1: TMemo; 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure ListBox1Click(Sender: TObject); 
    private 
    { Private declarations } 
    FIni: TMemIniFile; 
    public 
    { Public declarations } 
    end; 

var 
    Form2: TForm2; 

implementation 

{$R *.dfm} 

const 
    IniName = 'd:\Temp\SampleNotes.ini'; 

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    FIni.Free; 
end; 

procedure TForm2.FormCreate(Sender: TObject); 
begin 
    FIni := TMemIniFile.Create(IniName); 
    Memo1.Lines.Clear; 
    FIni.ReadSections(ListBox1.Items); 
end; 

procedure TForm2.ListBox1Click(Sender: TObject); 
var 
    Section: string; 
begin 
    if ListBox1.ItemIndex > -1 then 
    begin 
    Section := ListBox1.Items[ListBox1.ItemIndex]; 
    FIni.ReadSection(Section, Memo1.Lines); 
    end; 
end; 

end. 

上述方法產生這樣的：

Answer 2

沒有使用此一TIniFile沒有問題。該課程有一個方法ReadSections()，您可以使用該方法閱讀所有帶作業的日子，並使用方法ReadSection()讀取給定日期的所有條目。
您也可以使用ReadSectionValues()來讀取完整的行（主題和任務），然後您需要在first = char處進行拆分。