Hallo,
ich baue die radio group in der Laufzeit mit:
repeat
sHilfsstring:=sHilfsstring+'<p><input type="radio" value="V1"
name="R1">'+qEigenschaften.fields.fieldbyname('KRI T_EIGENSCHAFT').Value+'</p
>';
qEigenschaften.next;
until qEigenschaften.EOF;
Wenn ein Knopf gedrückt wird, wird folgende WebAction ausgelöst:
procedure TWebModule1.WebModule1waShowRecordAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Speichere(iPlatz, iFrage, strtoint(Request.ContentFields.Values['R1']));
Response.Content :=
ShowSingleRecord(strtoint(Request.QueryFields.Valu es['No']));
end;
Aber der Wert "R1" ist immer leer, d.h. "". Was mache ich falsch??
Danke,
Pascal
ich baue die radio group in der Laufzeit mit:
repeat
sHilfsstring:=sHilfsstring+'<p><input type="radio" value="V1"
name="R1">'+qEigenschaften.fields.fieldbyname('KRI T_EIGENSCHAFT').Value+'</p
>';
qEigenschaften.next;
until qEigenschaften.EOF;
Wenn ein Knopf gedrückt wird, wird folgende WebAction ausgelöst:
procedure TWebModule1.WebModule1waShowRecordAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Speichere(iPlatz, iFrage, strtoint(Request.ContentFields.Values['R1']));
Response.Content :=
ShowSingleRecord(strtoint(Request.QueryFields.Valu es['No']));
end;
Aber der Wert "R1" ist immer leer, d.h. "". Was mache ich falsch??
Danke,
Pascal
Comment