使用整數作爲主題

Question

嘗試使用一些主要模板來改變基於主編輯框中編號的組框的可見性。 EditDay是編輯框，其中只有數字在它

day:=DayOfTheYear(Now); 
EditDay.Text:=day; 

所以它的basicaly一年的日子。 無論如何，我需要一個groupbox（有幾個備忘錄）用於每年的每一天。由於這是一個帶有記錄的文件，另一個程序將讀取每天不同的信息，我首先需要該文件編寫器，所以我甚至可以創建一個。這就是這個是 因爲我正在創建一個記錄文件，所以在我寫入文件之前必須首先填充所有的框，所以我需要一次一個顯示Groupbox，每個我在一個主要的TEdit中指定了一天。 現在我堅持設置groupboxes的可見性;下面的代碼給我訪問衝突錯誤。

x是在TEdit中指定的編號EditDay。我想每隔一天做一個y，但在EditDay框中的一天，所以除了x;

x : Integer;  
y : Integer; 

procedure TWriteForm.DayCheckTimer(Sender: TObject); 
begin 
    x:=StrToInt(EditDay.Text); 
    y:=Not x; 
    (FindComponent('GroupBox'+IntToStr(x)) as TGroupBox).Visible := True; 
    (FindComponent('GroupBox'+IntToStr(y)) as TGroupBox).Visible := False; 

試圖設置y：= [1..365]而不是x; [1..365] - x;和其他幾個人，但他們都沒有工作。

我在哪裏錯了？ .. 任何幫助將不勝感激。 :)）

[我有點初學者，是的..]

Answer 1

下面一個小樣本項目來處理記錄了很多（365）遍歷您的成品的配件

For i := 1 to mCount 

，並設置公開程度。

unit RecordEdit_ViewU; 

interface 

uses 
    SysUtils, 
    Controls, Forms, Dialogs, StdCtrls, System.Classes; 

type 
    TPerson = record 
    Firstname : string[50]; // shortstring !! 
    Lastname : string[50]; // shortstring !! 
    end; 

    TRecordEdit_View = class(TForm) 
    Current_Edit : TEdit; 
    Data_Firstname_Edit : TEdit; 
    Data_Lastname_Edit : TEdit; 
    Data_Prev_Button : TButton; 
    Data_Next_Button : TButton; 
    Data_Save_Button : TButton; 
    procedure FormCreate(Sender : TObject); 
    procedure Current_EditChange(Sender : TObject); 
    procedure Data_Prev_ButtonClick(Sender : TObject); 
    procedure Data_Next_ButtonClick(Sender : TObject); 
    procedure Data_Save_ButtonClick(Sender : TObject); 
    private 
    FData : array [1 .. 365] of TPerson; 
    FCurrent : Integer; 
    procedure SetCurrent(const Value : Integer); 
    procedure InitData; 
    procedure StoreCurrent; 
    procedure LoadCurrent; 
    procedure SaveData; 
    public 
    property Current : Integer read FCurrent write SetCurrent; 
    end; 

var 
    RecordEdit_View : TRecordEdit_View; 

implementation 

{$R *.dfm} 

procedure TRecordEdit_View.Current_EditChange(Sender : TObject); 
begin 
    Current := StrToIntDef(Current_Edit.Text, 0); // convert text to integer 
end; 

procedure TRecordEdit_View.Data_Next_ButtonClick(Sender : TObject); 
begin 
    Current := Current + 1; // next record 
end; 

procedure TRecordEdit_View.Data_Prev_ButtonClick(Sender : TObject); 
begin 
    Current := Current - 1; // prev record 
end; 

procedure TRecordEdit_View.Data_Save_ButtonClick(Sender : TObject); 
begin 
    SaveData; 
end; 

procedure TRecordEdit_View.FormCreate(Sender : TObject); 
begin 
    InitData; 
end; 

procedure TRecordEdit_View.InitData; 
begin 
    FCurrent := Low(FData); // first record 
    LoadCurrent;    // load data from record 
end; 

procedure TRecordEdit_View.LoadCurrent; 
begin 
    // Data from record to controls 
    Data_Firstname_Edit.Text := FData[Current].Firstname; 
    Data_Lastname_Edit.Text := FData[Current].Lastname; 
    // Update the Current-Edit 
    Current_Edit.Text := IntToStr(Current); 
end; 

procedure TRecordEdit_View.SaveData; 
begin 
    ShowMessage('Needs to be implemented!'); 
end; 

procedure TRecordEdit_View.SetCurrent(const Value : Integer); 
begin 
    // check, if we have a change and if we can change to the new index 
    if (Value <> Current) and (Value >= Low(FData)) and (Value <= High(FData)) 
    then 
    begin 
     StoreCurrent;  // store data from controls 
     FCurrent := Value; // change current index 
     LoadCurrent;  // load data from record 
    end; 
end; 

procedure TRecordEdit_View.StoreCurrent; 
begin 
    // Data from controls to record 
    FData[Current].Firstname := Data_Firstname_Edit.Text; 
    FData[Current].Lastname := Data_Lastname_Edit.Text; 
end; 

end. 

而且形式

object RecordEdit_View: TRecordEdit_View 
    Left = 0 
    Top = 0 
    Caption = 'RecordEdit_View' 
    ClientHeight = 337 
    ClientWidth = 635 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'Tahoma' 
    Font.Style = [] 
    OldCreateOrder = False 
    OnCreate = FormCreate 
    PixelsPerInch = 96 
    TextHeight = 13 
    object Current_Edit: TEdit 
    Left = 107 
    Top = 16 
    Width = 75 
    Height = 21 
    TabOrder = 0 
    Text = 'Current_Edit' 
    OnChange = Current_EditChange 
    end 
    object Data_Firstname_Edit: TEdit 
    Left = 80 
    Top = 56 
    Width = 129 
    Height = 21 
    MaxLength = 50 
    TabOrder = 1 
    Text = 'Data_Firstname_Edit' 
    end 
    object Data_Lastname_Edit: TEdit 
    Left = 80 
    Top = 83 
    Width = 129 
    Height = 21 
    MaxLength = 50 
    TabOrder = 2 
    Text = 'Data_Lastname_Edit' 
    end 
    object Data_Prev_Button: TButton 
    Left = 80 
    Top = 16 
    Width = 21 
    Height = 21 
    Caption = '<' 
    TabOrder = 3 
    OnClick = Data_Prev_ButtonClick 
    end 
    object Data_Next_Button: TButton 
    Left = 188 
    Top = 16 
    Width = 21 
    Height = 21 
    Caption = '>' 
    TabOrder = 4 
    OnClick = Data_Next_ButtonClick 
    end 
    object Data_Save_Button: TButton 
    Left = 80 
    Top = 118 
    Width = 129 
    Height = 25 
    Caption = 'Save Data' 
    TabOrder = 5 
    OnClick = Data_Save_ButtonClick 
    end 
end 

你可以得到完整的源代碼和可執行here

Answer 2

view y：= Not x;在調試器中x = 1將是y = -2，您將不會找到具有此名稱的Compoentr。

您必須通過condtition

(FindComponent('GroupBox'+IntToStr(i)) as TGroupBox).Visible := y = i;