не могу назначить свойство 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, и та же ошибка повторяется