не могу назначить свойство field.value в Tfield внутри списка. Всегда появляется ошибка нарушения прав доступа, как решить эту проблему.

у меня есть имя формы brazil и кнопка сохранения (Button3Click) и 4 поля Tedit (Edit1Coach,Edit2Vice,Edit3Captain,Edit4Keeper), чтобы вставлять в нее значения, когда пользователь нажимает кнопку, сохраните это, что должно произойти

      procedure TBrazil.Button3Click(Sender: TObject);
var
  FieldList: TList<TStringField> ;
  Field: TField;
  Paramters: DataBase_Param;
  i : integer ;
  x : Variant  ;
begin
  FieldList := TList<TStringField>.Create;
  try
    //Paramters.Create(Self);
    FieldList.Add(TStringField.Create(nil));
    FieldList.Add(TStringField.Create(nil));
    FieldList.Add(TStringField.Create(nil));
    FieldList.Add(TStringField.Create(nil));
    FieldList.Add(TStringField.Create(nil));
Field := FieldList[0];
    Field.FieldName :='Coach';
    Field.Value:=(Edit1Coach.Text);

    Field := FieldList[1];
    Field.FieldName := 'Vice';
    Field.Value :=(Edit2Vice.Text);

    Field := FieldList[2];
    Field.FieldName := 'Captain';
    Field.Value :=(Edit3Captain.Text);

    Field := FieldList[3];
    Field.FieldName := 'Keeper_coach';
    Field.Value :=(Edit4Keeper.Text);

    Field := FieldList[4];
    Field.FieldName := 'Country';
    Field.Value :=('Brazil');

  save_record_to_Db_theory(Paramters, FieldList ) ;

  finally

    for Field in FieldList do
    Field.Free;
    FieldList.Free;
  end;
end;

Я создал в этом списке методов TStringField, и каждое значение будет вставлено в него, проблема в том, что когда я пытаюсь установить значение ошибки нарушения доступа, возникает ошибка, хотя когда я устанавливаю значениеField.FieldNameэто лаконично назначено, что должно произойти ??

я изменил список сTList<Field> кTList<TStringField> и я меняюсьField.Valueс Field.AsStringиField.textно всегда эта ошибка появляется и проверяетсяif (FieldList.Count > 0) and (FieldList[i] is TStringField)и они всегда возвращают true, и та же ошибка повторяется

0 ответов

Другие вопросы по тегам